33
ห้อง MS Access / ปิดแจ้งเตือนเพิ่ม Row
« เมื่อ: 26 ส.ค. 64 , 09:32:40 »
ต้องการปิดการแจ้งเตือนแค่คำสั่งนี้ในปุ่มนี้เท่านั้นครับไม่ทราบว่าทำเขียน VBA อย่างไรครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Private Sub Command9_Click()
Dim fpass As String
Dim flevel As String
On Error GoTo 1:
fpass = DLookup("[Password]", "UserV", "[UserName]='" & Me.UserBox & "'")
If fpass = Me.PassBox Then
DoCmd.OpenForm "PIScreen_vaccine", acNormal, "", "", , acNormal
DoCmd.Close acForm, "Login4"
Else
MsgBox "Try Again"
End If
Exit Sub
1:
End Sub