อยากให้่ข้อมูลอัพเดตตามเงือนไขโดยอ้างอิง ข้อมูลใน Textbox

[nawahovvp]

อยากให้่ข้อมูลอัพเดตตามเงือนไขโดยอ้างอิง ข้อมูลใน Textbox
เมื่อข้อมูลกรองเงือนไขตาม Combo box แล้ว ใส่ข้อมุลใน textbox Code update แล้วให้ฟิล timecount ที่มีข้อมูลตรงกับ Code update เปลี่ยนเป็น วันทีเวลาล่าสุด now() และ Status ติ๊กถูกหรือมีค่า -1
แล้วมาเมื่ออัพเดตแล้วก็กลับมา Setfocus ที่ textbox Code update พร้อมลบข้อมุลเก่า รบกวนอาจารย์ด้วยครับ

[PNR]

ใช้การสร้างคิวรี่ Update และสร้างปุ่ม หรือจะใช้ Event อื่นๆ ในการเรียกใช้การอัพเดทก็ได้ครับ

[nawahovvp]

อาจารย์ครับ กรณี textbox code update มีค่าไม่ตรงกับข้อมูลสามารถ Msgbox แจ้งเตือนได้ไหมครับ

Private Sub Command11_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdateQuery"
DoCmd.SetWarnings True
Forms!form1![Datasubform].Requery
Me.txtcodeupdate.SetFocus
Me.txtcodeupdate = Null
End Sub

[PNR]

Private Sub Command11_Click()
if DCount("*", "DATAs", "Code = " & [Forms]![Form1]![txtcodeupdate] & " and employee = '" & [Forms]![Form1]![txtEmployee] & "' and Location = '" & [Forms]![Form1]![txtLocation] & "'") = 0 Then
Me.txtcodeupdate.SetFocus
Me.txtcodeupdate = Null
MsgBox "ใส่ข้อความแจ้งเตือน!!", vbInformation, "แจ้งเตือน"
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "UpdateQuery"
DoCmd.SetWarnings True
Forms!Form1![Datasubform].Requery
Me.txtcodeupdate.SetFocus
Me.txtcodeupdate = Null
End If
End Sub

[nawahovvp]

ได้แล้วครับขอบคุณมากครับ