สอบถามโค้ดไม่ตก Else



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

17 ส.ค. 64 , 08:49:16
อ่าน 136 ครั้ง

001Jetnipit

สอบถามโค้ดไม่ตก Else
« เมื่อ: 17 ส.ค. 64 , 08:49:16 »
เป็นโค้ดล็อกอินครับ แต่เมื่อกรอกรหัสผิด มันไม่โชว์ MsgBox ไม่ทราบว่าติดตรงไหนที่มันไม่ออก Else หรอครับ

โค๊ด: [Select]
Private Sub Command9_Click()
Dim fpass As String
Dim flevel As String

On Error GoTo 1:

fpass = DLookup("[Password]", "UserV", "[UserName]='" & Me.UserBox & "'")

If fpass = Me.PassBox Then
DoCmd.OpenForm "PIScreen_vaccine", acNormal, "", "", , acNormal
DoCmd.Close acForm, "Login4"
Else

MsgBox "Try Again"

End If
Exit Sub
1:
End Sub

 

17 ส.ค. 64 , 10:33:35
ตอบกลับ #1

PNR

: สอบถามโค้ดไม่ตก Else
« ตอบกลับ #1 เมื่อ: 17 ส.ค. 64 , 10:33:35 »
จากโค๊ดด้านบน

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

โค๊ด: [Select]
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.OpenForm "PIScreen_vaccine", acNormal, "", "", , acNormal
       Else
          MsgBox "รหัสผ่านไม่ถูกต้อง", vbCritical, "พบข้อผิดพลาด"         
    End If
    End If
    End If
« แก้ไขครั้งสุดท้าย: 17 ส.ค. 64 , 10:40:40 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

17 ส.ค. 64 , 13:49:47
ตอบกลับ #2

001Jetnipit

: สอบถามโค้ดไม่ตก Else
« ตอบกลับ #2 เมื่อ: 17 ส.ค. 64 , 13:49:47 »
จากโค๊ดด้านบน

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

โค๊ด: [Select]
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.OpenForm "PIScreen_vaccine", acNormal, "", "", , acNormal
       Else
          MsgBox "รหัสผ่านไม่ถูกต้อง", vbCritical, "พบข้อผิดพลาด"         
    End If
    End If
    End If

ขอบคุณครับผม ละเอียดมากเลยครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย