Login กด Enter ทีเดียว


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

18 ส.ค. 64 , 10:25:05
อ่าน 912 ครั้ง

001Jetnipit

Login กด Enter ทีเดียว
« เมื่อ: 18 ส.ค. 64 , 10:25:05 »
หน้าตา Login


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


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




 
โพสต์นี้ได้รับคำขอบคุณจาก: sommai

18 ส.ค. 64 , 11:49:32
ตอบกลับ #1

PNR

: Login กด Enter ทีเดียว
« ตอบกลับ #1 เมื่อ: 18 ส.ค. 64 , 11:49:32 »
ที่ปุ่ม ใส่โค้ดใน Event On_Enter ได้เลยครับ
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

18 ส.ค. 64 , 11:59:44
ตอบกลับ #2

001Jetnipit

: Login กด Enter ทีเดียว
« ตอบกลับ #2 เมื่อ: 18 ส.ค. 64 , 11:59:44 »
ที่ปุ่ม ใส่โค้ดใน Event On_Enter ได้เลยครับ

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



 

18 ส.ค. 64 , 12:03:19
ตอบกลับ #3

PNR

: Login กด Enter ทีเดียว
« ตอบกลับ #3 เมื่อ: 18 ส.ค. 64 , 12:03:19 »
ปรับโค๊ดเป็นแบบนี้นะครับ

เอาโค้ดในการล๊อกอินไปไว้ใน 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
« แก้ไขครั้งสุดท้าย: 18 ส.ค. 64 , 13:14:49 โดย PNR »
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: 001Jetnipit

18 ส.ค. 64 , 13:31:29
ตอบกลับ #4

001Jetnipit

: Login กด Enter ทีเดียว
« ตอบกลับ #4 เมื่อ: 18 ส.ค. 64 , 13:31:29 »
ได้แล้วครับ ขอบคุณครับ
« แก้ไขครั้งสุดท้าย: 18 ส.ค. 64 , 13:48:59 โดย 001Jetnipit »

 


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


 

Sitemap 1 2 3 4 5