เป็นผู้ขอมาเยอะ ขอเป็นผู้ให้บ้างครับ ^^ มือใหม่อาจได้ใช้ประโยชน์ครับ

1 - สร้างฟอร์ม Login ขึ้นมา
2 - จัดหน้าตาแล้ววาง บล็อกข้อความ สองอันคือ Username และ Password
3 - ตั้งค่า Propertie ทั้งสองอันตรงหัวข้อ Other ที่ Name ให้ใส่ชื่อให้ตรงกับชื่อ บล็อกข้อความ
4 - สร้างปุ่มขึ้นมาแล้ว Propertie ไปที่ Event เลือกตรง On click และใส่โคดวีบี

Private Sub Command5_Click()
Username.SetFocus
If Username = "user1" And Password = "user1" Then
MsgBox "Access Granted", vbInformation, "CD Shop"
MsgBox "Welcome", vbInformation, "CD Shop"
DoCmd.Close
DoCmd.OpenForm "F_Switchboard"
Else
MsgBox "Please re-enter your Username and Password."
End If


และขอถามเพิ่มเติมครับพอดีผมได้โคดมา คือมันจะนับถ้าล็อกอินไม่ผ่าน 3 ครั้งมันจะปิด โคดนี้ครับที่ได้มา

Private intLogonAttempts As Integer
Private Sub cmdLogin_Click() intLogonAttempts = intLogonAttempts + 1 If intLogonAttempts > 3 Then MsgBox "You do not have access to this database. Please contact your system administrator.", vbCritical, "Restricted Access!" Application.Quit End If
End Sub


แต่ไม่รู้ว่าจะเอาไปใช้กับอันเดิมยังไง ต้องปรับยังไงบ้างครับผม