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



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

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

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 »
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 


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