Access97:-MsgBox โต้ตอบเมื่อไม่พบ primary key ในฟอร์มค้นหา/ป้อนข้อมูล
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 247   2
URL.หัวข้อ / URL Access97:-MsgBox โต้ตอบเมื่อไม่พบ primary key ในฟอร์มค้นหา/ป้อนข้อมูล




MsgBox โต้ตอบเมื่อไม่พบ primary key ในฟอร์มค้นหา/ป้อนข้อมูล

.........................................

เราจะใช้โค๊ดอย่างไรตรงเหตุการณ์ไหนครับ

ที่เมื่อเราป้อน pimary key แล้ว enter เข้าไปในฟอร์มค้นหา/ป้อนข้อมูล

อยากให้มี MsgBox ขึ้นในกรณีที่ไม่พบระเบียนนั้น

MsgBox ขึ้นว่า

..ไม่พบ...ต้องการเลือกป้อน primary key ใหม่อีกครั้งหรือเลือกจะป้อนระเบียนใหม่

......................

ขอบคุณครับ


โดย: mr.kom เมื่อ: 31 ส.ค. 2546 , 20:12

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R04739
ลองใช้โค้ดข้างล่างนี้กับฟอร์ม frmMain ดูครับ

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
If MsgBox("ไม่พบข้อมูล" & vbCrLf & "จะเพิ่มข้อมูลใหม่หรือไม่?", vbOKCancel, "ไม่มีข้อมูล") = vbOK Then
DoCmd.GoToRecord , , acNewRec
Else
DoCmd.Close
End If
End If
โดย: สุภาพ เมื่อ: 1 ก.ย. 2546 , 10:05
2 @R04747


เวิร์คแล้วครับ .. แต่ต้องใช้กับ on Load แทนเปิดฟอร์ม


ขอบคุณครับ
โดย: mr.kom เมื่อ: 1 ก.ย. 2546 , 16:54
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0425s