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