Private Sub Command13_Click()
               log22 = DCount("[Username]", "Check Password login")
               If log22 = 1 Then
                            [Text8] = Null
                            [Text11] = Null
                            stDocName = "Menu"
                            DoCmd.OpenForm stDocName, , , stLinkCriteria
               Else
                            MsgBox "รหัสผ่านไม่ถูกต้อง", 16
               End If
End Sub


คือโค้ดนี้เป็นของฟอร์ม login คะ แต่หนูต้องการเพิ่มในส่วนของการเข้ารหัสผ่านแล้วนะคะ โดยต้องการให้ปิดฟอร์ม Login ไปพร้อมๆกัน กับการ เปิดฟอร์ม Menu