ขอโทษครับมือเผลอไปโดนโพส


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

09 มี.ค. 63 , 18:20:30
อ่าน 915 ครั้ง

Eid

ขอโทษครับมือเผลอไปโดนโพส
« เมื่อ: 09 มี.ค. 63 , 18:20:30 »
เรียนท่านอาจารย์ทุกท่านครับ
       คือผมเปิด File Dialog ได้แล้วครับ แต่พอเลือกไฟล์แล้ว ไม่แสดงที่ Text Box ที่ชื่อ txtFolderPath
ครับ ไม่ทราบว่าผมใส่โค๊ดผิดตรงไหนครับ รบกวนด้วยครับ
โค๊ดที่ปุ่ม Browse ดังนี้ครับ
Dim f As Object
    Dim fileAddress As String
    Dim strFilter As String
   
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    If f.Show Then
        fileAddress = f.SelectedItems(1)
        strFilter = "All File (*.*)" & vbNullChar
        buff = ShowOpenFileDlg(Me.Hwnd, strFilter, "D:\Stock")
        Me.txtFolderPath = buff
    End If

 

09 มี.ค. 63 , 19:09:20
ตอบกลับ #1

PNR

: ขอโทษครับมือเผลอไปโดนโพส
« ตอบกลับ #1 เมื่อ: 09 มี.ค. 63 , 19:09:20 »
แบบนี้หรอเปล่าครับ
ใช้ Reference ตัว Microsoft Office 16.0 Object Library  ด้วยนะครับ

โค๊ด: [Select]
Dim fd As FileDialog
Dim filePath As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = False
fd.InitialFileName = "D:\Stock"
If fd.Show = True Then
    If fd.SelectedItems(1) <> vbNullString Then
        filePath = fd.SelectedItems(1)
        FollowHyperlink filePath
        Me.txtFolderPath = filePath
    End If
Else
End If
Set fd = Nothing

« แก้ไขครั้งสุดท้าย: 09 มี.ค. 63 , 19:32:46 โดย PNR »
Time to stop for me  :dizzy:
 

12 มี.ค. 63 , 09:03:37
ตอบกลับ #2

Eid

: ขอโทษครับมือเผลอไปโดนโพส
« ตอบกลับ #2 เมื่อ: 12 มี.ค. 63 , 09:03:37 »
ครับผมใช่เลยครับ แต่ผมรบกวนอีกนิดนึงครับ
คือไม่ต้องให้เปิดไฟล์ Excel Stock แต่แค่เอา Path มาใส่ที่ Textbox ก็พอครับผม
รบกวนด้วยครับ
ขอบคุณครับ

 

12 มี.ค. 63 , 09:23:34
ตอบกลับ #3

PNR

: ขอโทษครับมือเผลอไปโดนโพส
« ตอบกลับ #3 เมื่อ: 12 มี.ค. 63 , 09:23:34 »
ครับผมใช่เลยครับ แต่ผมรบกวนอีกนิดนึงครับ
คือไม่ต้องให้เปิดไฟล์ Excel Stock แต่แค่เอา Path มาใส่ที่ Textbox ก็พอครับผม
รบกวนด้วยครับ
ขอบคุณครับ
เหลือแค่นี้ครับ

Dim fd As FileDialog
Dim filePath As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = False
fd.InitialFileName = "D:\Stock"
If fd.Show = True Then
    If fd.SelectedItems(1) <> vbNullString Then
        filePath = fd.SelectedItems(1)       
        Me.txtFolderPath = filePath
    End If
Else
End If
Set fd = Nothing
Time to stop for me  :dizzy:
 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5