ตุณ PNR ครับ
เครื่องผมก็ลง Office 2010 แล้วครับ

เรียนคุณ PNR ครับ
คือผมได้เข้าไปแล้วครับแต่ถูกปิดไว้หมดเลยครับ ไม่สามารถเลือกประเภทได้เลยครับ
ไม่ทราบว่ามีวิธีไหนบ้างครับ

คุณ PNR คับ ผมรบกวนสอบถามอีกครั้งครับ
ถ้าผมต้องการ Copy ข้อมูลดังข้างต้นแต่เปลี่ยนชื่อฟิวด์ล่ะครับ ดังตัวอย่างนี้ครับ
Cmd Code , Cmd Title , Cmd Price , Cmd Date

ให้เป็น Bacode , Description , UnitPrice , Date

ต้องแกไขโค๊ดอย่างไรครับ

ผมรบกวนสอบถามอีกครั้งครับ
ถ้าชื่อฟิวด์ เป็นดังนี้ล่ะครับ
Cmd Code , Cmd Title , Cmd Price , Cmd Date

คือมีเว้นวรรคครับ จะต้องแก้ไขโค๊ดอย่างไรครับเพราะตารางต้นทางเขา
เว้นวรรคชื่อฟิวด์ไว้ครับ

ตามโค๊ดนี้ไม่ทราบว่าจะต้องเพิ่มอย่างไรเพื่อจะให้เปิดไปที่ ไดร์ 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

เรียนท่านอาจารย์ทุกท่านครับ
       คือผมเปิด 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

ขอบคุณมากครับผม คุณปิ่นณรงค์
ที่ได้ให้ความรู้ดีๆแก่ผมครับ
ขอบคุณครับ

รบกวนส่งไฟล์ให้ดูได้ไหมครับ Piyaphan@se-ed.com