รบกวนสอบถามครับ


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

18 ม.ค. 64 , 10:56:07
อ่าน 935 ครั้ง

Eid

รบกวนสอบถามครับ
« เมื่อ: 18 ม.ค. 64 , 10:56:07 »
ตามโค๊ดนี้ไม่ทราบว่าจะต้องเพิ่มอย่างไรเพื่อจะให้เปิดไปที่ ไดร์ D:\Work ครับตามที่เราต้องการ
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
If f.Show Then
      Me.txtFolderPath = f.SelectedItems(1)
End If
Set f = Nothing

 

18 ม.ค. 64 , 12:22:25
ตอบกลับ #1

PNR

: รบกวนสอบถามครับ
« ตอบกลับ #1 เมื่อ: 18 ม.ค. 64 , 12:22:25 »
โค้ดปรับใหม่ได้แบบนี้ครับ

โค๊ด: [Select]
Dim F As FileDialog
 Set F = Application.FileDialog(msoFileDialogFilePicker)
        F.AllowMultiSelect = False
        F.InitialFileName = "D:\Work\"
If F.Show Then
      Me.txtFolderPath = F.SelectedItems(1)
End If
Set F = Nothing

โดยต้องเพิ่มในส่วนของ Reference ใส่ตัว
Microsoft Office XX Object Libary ไว้ด้วย
โค้ดจะสามารถทำงานได้

« แก้ไขครั้งสุดท้าย: 18 ม.ค. 64 , 12:31:06 โดย PNR »
Time to stop for me  :dizzy:
 


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


 

Sitemap 1 2 3 4 5