Login กด Enter ทีเดียว

[001Jetnipit]

หน้าตา Login


เบื้องต้นผมลองใช้โค้ดนี้ครับ ใช้ได้ปกติครับตามต้องการครับ


แต่จะให้ User ทำได้ 2 ทางคือ Click และกด Enter มันต้อง Event on อะไรครับตอนนี้ใช้ 2 ตัว 2 Event แบบนี้ไม่ได้ขึ้น Error ครับ

[PNR]

ที่ปุ่ม ใส่โค้ดใน Event On_Enter ได้เลยครับ

[001Jetnipit]

ที่ปุ่ม ใส่โค้ดใน Event On_Enter ได้เลยครับ

ุถ้า Click ไม่ Error แต่ถ้า Enter Error แบบนี้ครับ

[PNR]

ปรับโค๊ดเป็นแบบนี้นะครับ

เอาโค้ดในการล๊อกอินไปไว้ใน Event On Enter ของปุ่มเช่น

โค๊ด: [Select]

Private Sub Command4_Enter()
Dim fpass As String, fusername As String
If IsNull(Me.UserBox) Then
MsgBox "กรุณาระบุ UserName", vbInformation, "ข้อผิดพลาด"
Exit Sub
ElseIf IsNull(Me.PassBox) Then
MsgBox "กรุณาระบุ Password", vbInformation, "ข้อผิดพลาด"
Else
fusername = Nz(DLookup("[UserName]", "UserV", "[UserName]='" & Me.UserBox & "'"))
If fusername = "" Then
    MsgBox "ชื่อผู้ใช้ไม่ถูกต้อง", vbCritical, "ไม่พบชื่อผู้ใช้งาน"
Else
        fpass = Nz(DLookup("[Password]", "UserV", "[UserName]='" & Me.UserBox & "'"))
       If fpass = Me.PassBox Then
            DoCmd.Close acForm, Me.name
            DoCmd.OpenForm "PIScreen_vaccine"
          Else
                    MsgBox "รหัสผ่านไม่ถูกต้อง", vbCritical, "พบข้อผิดพลาด"
    End If
    End If
    End If
End Sub

ส่วนของการเรียกใช้ ให้ใส่ไว้ใน Event OnClick หรือ AfterUpdate ของ คอนโทรล เช่น

โค๊ด: [Select]

Private Sub PassBox_AfterUpdate()
Command4_Enter
End Sub

โค๊ด: [Select]

Private Sub BtnLogIn_Click()
Command4_Enter
End Sub

[001Jetnipit]

ได้แล้วครับ ขอบคุณครับ