บังคับต้องป้อนข้อมูลในฟิลด์ปัจจุบันก่อน จึงป้อนข้อมูลถัดไปได้

[kunlek]

จะป้อนข้อมูลในฟอร์ม สมมติมี ฟิลด์ที่1ชื่อ shop   และฟิลด์ที่ 2 ชื่อ  bill_no  ต้องการบังคับให้การป้อนข้อมูลทุกครั้ง ต้องผ่านการคีย์ข้อมูลที่ ฟิลด์_shop ให้เสร็จก่อน จึงไปฟิลด์ bill_no 

[UnKnown]

ใช้วิธีเมื่อไปที่ bill_no ให้ทำการตรวจสอบว่า shop มีค่าว่างอยู่หรือไม่?

โค๊ด: [Select]

Private Sub bill_no_GotFocus()
    If Me.shop = "" Then
    MsgBox "ป้อนข้อมูล shop ก่อนนะ"
    Me.shop.SetFocus
    End If
End Sub

[kunlek]

Private Sub Text185_GotFocus()
If Me.shop_id = "" Then
    MsgBox "ป้อนข้อมูล สาขา ก่อนนะ"
    Me.shop_id.SetFocus
    End If
End Sub
*********ขึ้น  error "Compile error: Method or data member not  found" ครับ**************
shop_id  (name=txt_shop_id  control source=shop_id   และ ฟิลด์ฉัดไป  name=text185   control source=voucher_s_id)

[PNR]

Private Sub Text185_GotFocus()
If Isnull(Me.txt_shop_id) Then
    MsgBox "ป้อนข้อมูล สาขา ก่อนนะ"
    Me.txt_shop_id.SetFocus
    End If
End Sub

[kunlek]

หลายๆฟอร์มทำตามท่ อจ แนะนำ  แต่ทำไมใช้กับ 2 ฟอร์มนี้ไม่ได้ครับ