เข้าใจว่าปุ่ม Command5 คือปุ่มกดให้ผู้ใช้ Login ใช่ไหมครับ

Private Sub Command5_Click()
   Static intLogonAttempts As Integer

   If Username = "user1" And Password = "user1" Then
      intLogonAttempts = 0
      MsgBox "Access Granted", vbInformation, "CD Shop"
      MsgBox "Welcome", vbInformation, "CD Shop"
      DoCmd.Close
      DoCmd.OpenForm "F_Switchboard"
   End If
   
   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

   MsgBox "Please re-enter your Username and Password."
   Username.SetFocus
End If

ไม่ได้ครับผม มัน error ตัวแดงอะครั

Private Sub Command8_Click()
Username.SetFocus
If Username = "user" And Password = "pass" Then
MsgBox "ÂÔ¹´Õµé͹ÃѺÊÙèÃкººÑ¹·Ö¡¢éÍÁÙÅ"
DoCmd.Close
DoCmd.OpenForm "main"
Else
MsgBox "¡ÃسÒãÊè ª×èÍáÅÐÃËÑÊ ãËéÙ¡µéÍ"
End If

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

   MsgBox "Please re-enter your Username and Password."
   Username.SetFocus
End If
End Sub

intLogonAttempts = intLogonAttempts + 1
และ
If intLogonAttempts >= 3 then

ต้องคนละบรรทัดนะครับ

ลองแล้วครับ ไม่ได้ครับผม ผมก็อบที่ทำให้ข้างบนไปวางก็เหมือนเดิมเลยครับ ตัวแดงเลยครับผม

ต้องเอาตัว ? ออกครับ ตอนนี้ได้แล้วครับ

แต่มันก็ไม่นับให้ครับ แค่เตือนให้ใส่ใหม่ตลอดเลยครับ ไม่ยอมปิดเมื่อครบ 3 ครับ

มันควรจะได้นะครับ
คุณสุโคยเอาโค้ที่เขียนมาแสดงให้ดูหน่อยครับ

Private Sub Command8_Click()
Username.SetFocus
If Username = "user" And Password = "pass" Then
MsgBox "ÂÔ¹´Õµé͹ÃѺÊÙèÃкººÑ¹·Ö¡¢éÍÁÙÅ"
DoCmd.Close
DoCmd.OpenForm "main"

End If

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

   MsgBox "¡ÃسÒãÊè ª×èÍáÅÐÃËÑÊ ãËéÙ¡µéÍ"
   Username.SetFocus

End Sub

อันนี้เลยครับ

คุณลืมประกาศตัวแปรแบบ Static บรรทัดแรกไปหรือเปล่าครับ

Static intLogonAttempts As Integer

อั๊ยยะ ใช่เลยครับ มิน่าละ มันถึงไม่ปิด หิๆๆขอบคุณมากๆครับ

มันใช้ได้แบบ งง ตัวเองครับ

ลองใส่รหัสผิดสองครั้ง แล้วครั้งที่สามใส่ถูก มันก็เข้าหน้าต่อไป แต่ดันมีข้อความเตือนว่า เข้าสู่ระบบเกิน สามครั้งแล้วปิดโปรแกรมครับ

Private Sub Command8_Click()

Static intLogonAttempts As Integer
intLogonAttempts = intLogonAttempts + 1
   
Username.SetFocus
If Username = "user" And Password = "pass" Then
MsgBox "ยินดีต้อนรับสู่ระบบบันทึกข้อมูล"
DoCmd.Close
DoCmd.OpenForm "main"
Else
MsgBox "กรุณาใส่ ชื่อและรหัส ให้ถูกต้อง"
End If

    If intLogonAttempts >= 3 Then
      MsgBox "คุณพยายามเข้าระบบเกินสามครั้ง กรุณาติดต่อผู้ดูแลระบบ", vbCritical, "ปิดโปรแกรม"
      Application.Quit
   End If

End Sub

ใช่แฮะ โค้ดผมตกหล่น เพิ่ม Exit Sub ไปเป็น

DoCmd.OpenForm "main"
Exit Sub

มันก็ยังบ่อได้สักเตื้อ มันเป็นจักอี้จักอั้น

ตอนนี้บ่อฮู้บ่อหันละก่ะ


Private Sub Command8_Click()
Username.SetFocus
If Username = "user" And Password = "pass" Then
MsgBox "ยินดีต้อนรับสู่ระบบบันทึกข้อมูล"
DoCmd.Close
DoCmd.OpenForm "main"
Else
MsgBox "กรุณาใส่ ชื่อและรหัส ให้ถูกต้อง"
End If
Static intLogonAttempts As Integer
intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts >= 3 Then
      MsgBox "คุณพยายามเข้าระบบเกินสามครั้ง กรุณาติดต่อผู้ดูแลระบบ", vbCritical, "ปิดโปรแกรม"
      Application.Quit
   End If
DoCmd.OpenForm "main"
End Sub

ไม่เห็นคุณเขียนอย่างที่ผมตอบเลย

ย้ายบรรทัดนี้
intLogonAttempts = intLogonAttempts + 1
ไปหลัง Else ครับ

ดูผิด page ครับ code เปลี่ยนไปแล้ว
ยกเลิกคำตอบไปก่อนครับ

คุณ สันติสุข จ้าว ข้าจ้าวบ่อหัน โค้ดบั๋นทัดนั๋นเลยจ้าว
รบกวนอ้ายป่าวอีกทีจ้าวววว

ใส่ตามนี้ครับ

Private Sub Command8_Click()
    username.SetFocus
    If username = "user" And password = "pass" Then
        Msgbox "ยินดีต้อนรับสู่ระบบบันทึกข้อมูล"
        DoCmd.Close
        DoCmd.OpenForm "main"
        Exit Sub
    Else
        Msgbox "กรุณาใส่ ชื่อและรหัส ให้ถูกต้อง"
    End If
    Static intLogonAttempts As Integer
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts >= 3 Then
        Msgbox "คุณพยายามเข้าระบบเกินสามครั้ง กรุณาติดต่อผู้ดูแลระบบ", vbCritical, "ปิดโปรแกรม"
        Application.Quit
    End If
End Sub

ขอบคุณอ้ายป่าวจั๊กหลายๆ ได้แล้วจ้าววว