กระทู้เก่าบอร์ด อ.Yeadram
1,494 4
URL.หัวข้อ /
URL
สร้างคีย์ลัด การนำเข้าที่บันทึกไว้
รบกวนอีกแล้วครับ ต้องขออภัยอย่างสูง ที่ไม่พยายามทำเอง
ผมสร้างการนำเข้าที่บันทึกไว้ ใน access แล้ว เป็นการนำเข้าจาก excel
ทีนี้ อยากจะทำคีย์ลัด หรือปุ่มเรียก เพื่อเก็บใว้หน้าฟอร์มแรก
user จะได้เปิดเฉพาะ ฟอร์มแรก ในการทำงาน
รบกวนขอโค้ด สร้างปุ่มลัดด้วยครับ
ผมสร้างการนำเข้าที่บันทึกไว้ ใน access แล้ว เป็นการนำเข้าจาก excel
ทีนี้ อยากจะทำคีย์ลัด หรือปุ่มเรียก เพื่อเก็บใว้หน้าฟอร์มแรก
user จะได้เปิดเฉพาะ ฟอร์มแรก ในการทำงาน
รบกวนขอโค้ด สร้างปุ่มลัดด้วยครับ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R21525
ต้องขอโทษ อาจารย์ ด้วยครับ ที่ลงคำถามกำกวม
ที่อาจารย์ อธิบายมาถูกต้องแล้วครับ
อยากสร้าง command button บนฟอร์ม เมื่อคลิกให้ import จาก excel
ทีนี้ ผมได้บันทึกการนำเข้านี้ไว้แล้ว เวลาเรียก กดเมนู "ข้อมูลภายนอก" > "การนำเข้าที่บันทึกไว้" > "เรียกใช้"
ผมลองสร้างจากโค้ดนี้
============================
Private Sub Command22_Click()
On Error GoTo Err_Command22_Click
DoCmd.TransferText acImportDelim, "StandardInput", "TableItem", "\\ชื่อโฟลเดอร์\ชื่อไฟล์", False
Exit_Command22_Click:
Exit Sub
Err_Command22_Click:
MsgBox Err.Description
Resume Exit_Command22_Click
End Sub
========================
ปรากฎว่า ขึ้นเตือนว่า "ไม่มีสเปคข้อความ "StandardInput""
ผมต้องแก้ StandardInput เป็นอะไรดีครับ
ที่อาจารย์ อธิบายมาถูกต้องแล้วครับ
อยากสร้าง command button บนฟอร์ม เมื่อคลิกให้ import จาก excel
ทีนี้ ผมได้บันทึกการนำเข้านี้ไว้แล้ว เวลาเรียก กดเมนู "ข้อมูลภายนอก" > "การนำเข้าที่บันทึกไว้" > "เรียกใช้"
ผมลองสร้างจากโค้ดนี้
============================
Private Sub Command22_Click()
On Error GoTo Err_Command22_Click
DoCmd.TransferText acImportDelim, "StandardInput", "TableItem", "\\ชื่อโฟลเดอร์\ชื่อไฟล์", False
Exit_Command22_Click:
Exit Sub
Err_Command22_Click:
MsgBox Err.Description
Resume Exit_Command22_Click
End Sub
========================
ปรากฎว่า ขึ้นเตือนว่า "ไม่มีสเปคข้อความ "StandardInput""
ผมต้องแก้ StandardInput เป็นอะไรดีครับ
3 @R21526
ถ้าเรากด Ctrl-G เพื่อเปิด Immediate Windows แล้วพิมพ์คำสั่ง
DoCmd.TransferText acImportDelim, "StandardInput", "TableItem", "\\ชื่อโฟลเดอร์\ชื่อไฟล์", False
จะขึ้นข้อความที่ว่าไหมครับ
พารามิเตอร์ตัวที่ 2 ของคำสั่งนี้ (ที่คุณใส่ "StandardInput" นั่นแหล่ะครับ) มันต้องการ Import/Export Specification ซึ่งเป็นชื่อที่เราเก็บรายละเอียดที่บ่งบอกว่าจะ Import/Export จากฟิลด์ไหนจากต้นทางไปยังฟิลด์ไหนในปลายทาง ตอนที่เราทำด้วยแมนวล เราจะเห็นหน้าจอสำหรับการกำหนดที่ว่านี้ แต่ถ้าเราไม่ได้ทำเก็บไว้แล้วมันยังทำงานได้ถูกต้อง ก็ให้ละพารามิเตอร์ตัวที่ 2 นี้ไปเลย คำสั่งจะเป็น
DoCmd.TransferText acImportDelim, , "TableItem", "\\ชื่อโฟลเดอร์\ชื่อไฟล์", False
DoCmd.TransferText acImportDelim, "StandardInput", "TableItem", "\\ชื่อโฟลเดอร์\ชื่อไฟล์", False
จะขึ้นข้อความที่ว่าไหมครับ
พารามิเตอร์ตัวที่ 2 ของคำสั่งนี้ (ที่คุณใส่ "StandardInput" นั่นแหล่ะครับ) มันต้องการ Import/Export Specification ซึ่งเป็นชื่อที่เราเก็บรายละเอียดที่บ่งบอกว่าจะ Import/Export จากฟิลด์ไหนจากต้นทางไปยังฟิลด์ไหนในปลายทาง ตอนที่เราทำด้วยแมนวล เราจะเห็นหน้าจอสำหรับการกำหนดที่ว่านี้ แต่ถ้าเราไม่ได้ทำเก็บไว้แล้วมันยังทำงานได้ถูกต้อง ก็ให้ละพารามิเตอร์ตัวที่ 2 นี้ไปเลย คำสั่งจะเป็น
DoCmd.TransferText acImportDelim, , "TableItem", "\\ชื่อโฟลเดอร์\ชื่อไฟล์", False
4 @R21530
ขอบคุณอาจาร์ย มากครับ
Time: 0.3702s
Private Sub xxx_Click()
คำสั่ง Import ข้อมูล
End Sub