กระทู้เก่าบอร์ด อ.Yeadram
2,162 3
URL.หัวข้อ /
URL
ขึ้นเตือนถ้าใส่ข้อมูลซ้ำ
รบกวนนิดนึงค่ะ
คือว่าต้องการให้มี msgbox เตือนถ้าพบว่าเคยมีข้อมูลอยู่ในฐานข้อมูลแล้วค่ะ
ใช้ findrecord ได้ไหมคะ พอดีเขียนโค้ดไว้แล้วมัน error ค่ะ ไม่ทราบว่าเพราะอะไรค่ะ
Private Sub HN_AfterUpdate()
DoCmd.FindRecord HN, acEntire, False, , False, acCurrent, True
If (HN = HN) Then
MsgBox " ÁÕ¢éÍÁÙżÙé»èÇÂÃÒ¹ÕéÍÂÙèã¹°Ò¹¢éÍÁÙÅáÅéÇ", vbCritical, "Find"
HN = ""
End If
DoCmd.GoToControl "HN"
End Sub
รบกวนด้วยนะคะ
คือว่าต้องการให้มี msgbox เตือนถ้าพบว่าเคยมีข้อมูลอยู่ในฐานข้อมูลแล้วค่ะ
ใช้ findrecord ได้ไหมคะ พอดีเขียนโค้ดไว้แล้วมัน error ค่ะ ไม่ทราบว่าเพราะอะไรค่ะ
Private Sub HN_AfterUpdate()
DoCmd.FindRecord HN, acEntire, False, , False, acCurrent, True
If (HN = HN) Then
MsgBox " ÁÕ¢éÍÁÙżÙé»èÇÂÃÒ¹ÕéÍÂÙèã¹°Ò¹¢éÍÁÙÅáÅéÇ", vbCritical, "Find"
HN = ""
End If
DoCmd.GoToControl "HN"
End Sub
รบกวนด้วยนะคะ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01304
http://www.thai-access.com/yeadram_view.php?topic_id=215
2 @R01314
ลองดูแบบนี้ได้ไหมครับ
Private Sub T_BookingNo_BeforeUpdate(Cancel As Integer)
If DLookup("BookingNo", "Tbl1020_ConfirmBooking", "BookingNo = [Forms]![FrmTbl1020_ConfirmBooking]![T_BookingNo]") > 0 Then
MsgBox "Booking No นี้ มีรายการอยู่แล้ว." & vbCrLf & "กรุณาตรวจสอบรายการนี้ใหม่อีกครั้ง.", vbInformation
Cancel = True
SendKeys "{ESC}"
Else
DoCmd.RunCommand acCmdSave
End If
End Sub
ขอบคุณมากๆ ครับ
Private Sub T_BookingNo_BeforeUpdate(Cancel As Integer)
If DLookup("BookingNo", "Tbl1020_ConfirmBooking", "BookingNo = [Forms]![FrmTbl1020_ConfirmBooking]![T_BookingNo]") > 0 Then
MsgBox "Booking No นี้ มีรายการอยู่แล้ว." & vbCrLf & "กรุณาตรวจสอบรายการนี้ใหม่อีกครั้ง.", vbInformation
Cancel = True
SendKeys "{ESC}"
Else
DoCmd.RunCommand acCmdSave
End If
End Sub
ขอบคุณมากๆ ครับ
3 @R01320
ขอบคุณมากๆค่ะ สำหรับทุกคำแนะนำค่ะ
Time: 0.3623s
