ไม่มีคัยตอบเลยหรอ คับ ขอร้องละคับ ตอบหน่อยๆ -..-

Private Sub Command_Click(Cancel As Integer)
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim response As String

    response = InputBox("Please Enter Your Private Password", "Private Password")
    If response = "ตั้งรหัสผ่าน1" Or response = "ตั้งรหัสผ่าน2" Or response = "ตั้งรหัสผ่าน3" Or response = "ตั้งรหัสผ่าน4" Then
    DoCmd.Close
    MsgBox "ข้อความต้นรับ1" & response & " ข้อความต้นรับ2", vbOKOnly, "ข้อความบนกล่อง"
    stDocName = "ชื่อฟอร์ม"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
    MsgBox "ข้อความบอกว่าใส่รหัสผิด", vbCritical + vbOKOnly, "Warnning"
   End If
End Sub

อันนี้เป็นตัวอย่างแบบง่ายครับคือตั้ง Password เลย แต่ยังมีอีกหลายแบบที่สามารถให้มีการตรวจสอบ Pass จาก Table ครับซึ่งจะทำให้ User สามารถตั้ง Pass เองได้ด้วย ลองเอาไปปรับปรุงครับ

มีแบบสร้างกับแมโครไหมคับ

พอกดเข้าสู่ระบบแล้วมันจขึ้นหั้ยใส รหัส พอใสเสดแล้ว
ก็ไปอีกฟร์อมหนึ่งอ่ะคับ มีไหมคับ