สวัสดีครับท่าน อ.ทั้งหลาย ความต้องการของผมก็คือ ตอนนี้ผมได้สร้าง ฟอร์มล็อกอิน โดย ประกอบ ด้วย Text box 2 ตัว ตัวแรก กรอกยูสเซอร์ ตัวที่สองกรอก รหัสผ่าน และ มีปุ่ม Button เพื่อดําเนินการ โดยผมกําหนด User = admin และ Pass = admin ครับ ซึ่งที่ผมต้องการจากนี้คือให้มัน เช็ค ว่าถ้า กรอก User ผิด หรือ pass ผิด เกิน 3 ครั้งแล้วให้มันปิด Application ไปเลยครับ

นี่โค๊ดผม


Private Sub Command4_Click()
User.SetFocus
If User = "Admin" And Pass = "Admin" Then
MsgBox "เข้าสู่ระบบสําเร็จ", vbInformation, "ระบบจัดกาารย้ายสาขา"
MsgBox "ยินดีต้อนรับ", vbInformation, "ระบบจัดกาารย้ายสาขา"
DoCmd.Close
DoCmd.OpenForm "FrmMain"
Else
MsgBox "กรุณากลับไปกรอก Username และ Password ใหม่ครับ"
End If
End Sub