กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
328 1
URL.หัวข้อ /
URL
ต้องการให้เมนู Run Code ที่เขียนขึ้นมา
ผมมีเมนูที่สร้างด้วย Macro ซึ่งประด้วยด้วย
การจัดการข้อมูล ประด้วยด้วยเมนูย่อย
- บันทึกข้อมูลใหม่ (เปิดฟอร์ม)
- ค้นหาแก้ไข ข้อมูลเก่า (เปิดฟอร์ม)
- สำรองข้อมูลใส่แผ่น Disk (แต่ก่อนเป็นปุ่ม Command Button
มี Code ดังนี้
MsgBox "กรุณาใส่แผ่นเพื่อบันทึกข้อมูล "
If MsgBox("คุณต้องการบันทึกข้อมูลใช่หรือไม่ ? ", vbYesNo) = vbYes Then
'DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\UpdatePer2k\UpdatePer2k.mdb", acTable, "tblUpdatePersonal", "baktblUpdatePersonal"
DoCmd.TransferDatabase acExport, "Microsoft Access", "A:\UpdatePer2k.mdb", acTable, "tblUpdatePersonal", "baktblUpdatePersonal"
MsgBox ("บันทึกข้อมูลลงแผ่นเรียบร้อย")
Else
Exit Sub
End If )
คราวนี้ผมต้องการให้เมนูย่อย สำรองข้อมูล Run Code พวกนี้ได้ผมจะต้องทำอย่างไรครับผม *** Edited by Supap Chaiya *** 2/5/2546 9:27:07
การจัดการข้อมูล ประด้วยด้วยเมนูย่อย
- บันทึกข้อมูลใหม่ (เปิดฟอร์ม)
- ค้นหาแก้ไข ข้อมูลเก่า (เปิดฟอร์ม)
- สำรองข้อมูลใส่แผ่น Disk (แต่ก่อนเป็นปุ่ม Command Button
มี Code ดังนี้
MsgBox "กรุณาใส่แผ่นเพื่อบันทึกข้อมูล "
If MsgBox("คุณต้องการบันทึกข้อมูลใช่หรือไม่ ? ", vbYesNo) = vbYes Then
'DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\UpdatePer2k\UpdatePer2k.mdb", acTable, "tblUpdatePersonal", "baktblUpdatePersonal"
DoCmd.TransferDatabase acExport, "Microsoft Access", "A:\UpdatePer2k.mdb", acTable, "tblUpdatePersonal", "baktblUpdatePersonal"
MsgBox ("บันทึกข้อมูลลงแผ่นเรียบร้อย")
Else
Exit Sub
End If )
คราวนี้ผมต้องการให้เมนูย่อย สำรองข้อมูล Run Code พวกนี้ได้ผมจะต้องทำอย่างไรครับผม *** Edited by Supap Chaiya *** 2/5/2546 9:27:07
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.1120s
วิธีที่ 2 เขียนเป็น Function ไว้ใน Module แล้วในเมนูที่สร้างจาก Macro
ก็ใช้ Action Runcode เรียก Function ที่เขียนไว้มาทำงาน