กระทู้เก่าบอร์ด อ.Yeadram
2,876 11
URL.หัวข้อ /
URL
ขอโค้ด msg แจ้งเตือน เมื่อการ insert ล้มเหลวค่ะ
ก่อนหน้านี้หนูได้ตั้งกระทู้ :
T02473
ไปแล้ว แต่ทำไม่สำเร็จเพราะติดเรื่องการเปิดเข้าไฟล์เป้าหมายไม่ได้
คราวนี้ จะลองเปลี่ยนใช้ช่องทางอื่นดูใหม่ ไม่ทราบว่าสามารถเป็นไปได้หรือไม่
หลักการที่คิดไว้มีดังนี้ค่ะ
เมื่อเราสั่ง insert แล้วล้มเหลว จะด้วยเหตุ ไม่มีไฟล์เป้าหมาย หรือ เปิดเข้าไฟล์เป้าหมายไม่ได้ ก็ให้มีคำเตือนว่า "การ insert ข้อมูลล้มเหลว" ประมาณนี้แหละค่ะ
ไม่ทราบว่าโดยหลักการแล้ว สามารถทำได้หรือไม่/อย่างไรคะ
ขอคำแนะนำด้วยค่ะอาจารย์
T02473
ไปแล้ว แต่ทำไม่สำเร็จเพราะติดเรื่องการเปิดเข้าไฟล์เป้าหมายไม่ได้
คราวนี้ จะลองเปลี่ยนใช้ช่องทางอื่นดูใหม่ ไม่ทราบว่าสามารถเป็นไปได้หรือไม่
หลักการที่คิดไว้มีดังนี้ค่ะ
เมื่อเราสั่ง insert แล้วล้มเหลว จะด้วยเหตุ ไม่มีไฟล์เป้าหมาย หรือ เปิดเข้าไฟล์เป้าหมายไม่ได้ ก็ให้มีคำเตือนว่า "การ insert ข้อมูลล้มเหลว" ประมาณนี้แหละค่ะ
ไม่ทราบว่าโดยหลักการแล้ว สามารถทำได้หรือไม่/อย่างไรคะ
ขอคำแนะนำด้วยค่ะอาจารย์
11 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R11713
หนูลองนำไปประยุกต์ใช้ตามนี้
Private Sub Command0_Click()
On Error GoTo StopSub
Exit Sub
StopSub:
If Err <> 0 Then
Debug.Print Err & vbTab & Err.Description
MsgBox "การนำเข้าล้มเหลว"
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into NAM select * from NAM in ""C:\Sample.mde"""
DoCmd.SetWarnings True
End Sub
มันไม่มีปฏิกริยาตอบรับเลย คลิกแล้วมันก็เงียบเฉยๆค่ะอาจารย์
Private Sub Command0_Click()
On Error GoTo StopSub
Exit Sub
StopSub:
If Err <> 0 Then
Debug.Print Err & vbTab & Err.Description
MsgBox "การนำเข้าล้มเหลว"
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into NAM select * from NAM in ""C:\Sample.mde"""
DoCmd.SetWarnings True
End Sub
มันไม่มีปฏิกริยาตอบรับเลย คลิกแล้วมันก็เงียบเฉยๆค่ะอาจารย์
3 @R11714
เรียบเรียงผิดครับ
Private Sub Command0_Click()
On Error GoTo StopSub
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into NAM select * from NAM in ""C:\Sample.mde"""
DoCmd.SetWarnings True
Exit Sub
StopSub:
If Err <> 0 Then
Debug.Print Err & vbTab & Err.Description
MsgBox "การนำเข้าล้มเหลว"
End If
End Sub
ต้องอย่างนี้ครับ
Private Sub Command0_Click()
On Error GoTo StopSub
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into NAM select * from NAM in ""C:\Sample.mde"""
DoCmd.SetWarnings True
Exit Sub
StopSub:
If Err <> 0 Then
Debug.Print Err & vbTab & Err.Description
MsgBox "การนำเข้าล้มเหลว"
End If
End Sub
ต้องอย่างนี้ครับ
4 @R11715
เย้ ...สุดยอดเลย ใช้ได้แล้วค่ะอาจารย์
ขออภัยที่รายงานผลล่าช้านะคะ พอดีหนูพึ่งจะมาเปิดเข้าเน็ตเมื่อซักครู่นี้เอง
ขอบพระคุณอย่างยิ่งค่ะอาจารย์
ขออภัยที่รายงานผลล่าช้านะคะ พอดีหนูพึ่งจะมาเปิดเข้าเน็ตเมื่อซักครู่นี้เอง
ขอบพระคุณอย่างยิ่งค่ะอาจารย์
5 @R11928
ขอโคช Msgbox เวลาเราจะออกจากฟอร์ม แล้วให้เตือนขึ้นมาว่า คุณต้องการออกจากฟอร์มหรือ ไม่ ให้มีทั้ง ปุ่ม yes และ No อ่ะ ค่ะ รบกวนหน่อยนะค่ะ พอดีเขียนแล้วมันเออเร้ออะค่ะ
ขอโทษนะค่ะที่ใช้ภาษาไม่เป็นทางการ
ขอโทษนะค่ะที่ใช้ภาษาไม่เป็นทางการ
6 @R11931
if msgbox ("ต้องการออกจากฟอร์มใช่ไหม ? ",vbinformation + vbyesno + vbdefaultbutton2,"ออกจากฟอร์ม") = vbyes then
docmd.quit
end if
docmd.quit
end if
7 @R11951
ขอบคุณค่ะ
สำหรับข้อมูล
ขอรบกวนอีกทีนะคะ
พอดีว่า ทำaccess เกี่ยวกับวันที่อ่ะค่ะ ตัวอย่างนะคะ
วันเปิดสมุดบัญชี 1/2/2554
วันปิดสมุดบัญชี
คือต้องการเงื่อนไขวันปิดสมุด ให้ใส่วันที่ ถัดจากวันเปิดสมุดเท่านั้น ถ้าใส่ ก่อนวันเปิดสมุด ให้ขึ้นเตือนว่า กรุณาใส่วันที่ใหม่
ประมาณนี้อ่ะค่ะ แล้วต้องใส่เงือนไขตรงไหน ในตาราง ในคิวรี หรือ ในโคช
รบกวนด้วยค่ะ
สำหรับข้อมูล
ขอรบกวนอีกทีนะคะ
พอดีว่า ทำaccess เกี่ยวกับวันที่อ่ะค่ะ ตัวอย่างนะคะ
วันเปิดสมุดบัญชี 1/2/2554
วันปิดสมุดบัญชี
คือต้องการเงื่อนไขวันปิดสมุด ให้ใส่วันที่ ถัดจากวันเปิดสมุดเท่านั้น ถ้าใส่ ก่อนวันเปิดสมุด ให้ขึ้นเตือนว่า กรุณาใส่วันที่ใหม่
ประมาณนี้อ่ะค่ะ แล้วต้องใส่เงือนไขตรงไหน ในตาราง ในคิวรี หรือ ในโคช
รบกวนด้วยค่ะ
8 @R11952
เขียนมาโครใส่ที่ textbox ที่ใช้กรอกวันที่ปิดสมุดบัญชีในฟอร์มก็ได้ครับโดยเขียนมาโครไว้ที่เหตุการเมื่ออัพเดต ของ textbox ดังกล่าว โดยน่าจะเขียนประมาณนี้ครับแบบง่าย ๆ ตามนี้ครับ
9 @R11984
ขอบคุณมากค่ะ
จะลองทำดูนะค่ะ
จะลองทำดูนะค่ะ
10 @R11993
********ขอรบกวนอีกทีนะคะ
พอดีว่า ทำaccess เกี่ยวกับวันที่อ่ะค่ะ ตัวอย่างนะคะ
วันเปิดสมุดบัญชี 1/2/2554
วันปิดสมุดบัญชี
คือต้องการเงื่อนไขวันปิดสมุด ให้ใส่วันที่ ถัดจากวันเปิดสมุดเท่านั้น ถ้าใส่ ก่อนวันเปิดสมุด ให้ขึ้นเตือนว่า กรุณาใส่วันที่ใหม่
ประมาณนี้อ่ะค่ะ แล้วต้องใส่เงือนไขตรงไหน ในตาราง ในคิวรี หรือ ในโคช
รบกวนด้วยค่ะ
""""""""""""ทำกับAccess 2003 ค่ะ แล้ว มาโคร ไม่เหมือนกัน รบกวนด้วยค่ะ ขอแบบ2003 ค่ะ
พอดีว่า ทำaccess เกี่ยวกับวันที่อ่ะค่ะ ตัวอย่างนะคะ
วันเปิดสมุดบัญชี 1/2/2554
วันปิดสมุดบัญชี
คือต้องการเงื่อนไขวันปิดสมุด ให้ใส่วันที่ ถัดจากวันเปิดสมุดเท่านั้น ถ้าใส่ ก่อนวันเปิดสมุด ให้ขึ้นเตือนว่า กรุณาใส่วันที่ใหม่
ประมาณนี้อ่ะค่ะ แล้วต้องใส่เงือนไขตรงไหน ในตาราง ในคิวรี หรือ ในโคช
รบกวนด้วยค่ะ
""""""""""""ทำกับAccess 2003 ค่ะ แล้ว มาโคร ไม่เหมือนกัน รบกวนด้วยค่ะ ขอแบบ2003 ค่ะ
11 @R11994
ขอโคช เวลาเรากรอกข้อมูลไม่ครบให้แจ้งเตือน อะค่ะ
Time: 0.2539s
on error goto StopSub
คำสั่ง.. ค้นหาเป้าหมาย
คำสั่ง.. เชื่อมต่อ
คำสั่ง.. รัน sql
คำสั่ง.. การรายงานผลลัพธ์
Exit sub
StopSub:
if err<>0 then
debug.print err & vbtab & err.description
msgbox "Insert failed."
end if
End sub