• ข้อมูลส่วนตัว
  • Summary
  • แสดงสถิติ
  • แสดงกระทู้...
    • Messages
    • Topics
    • Attachments
    • Thanked Posts
    • Posts Thanked By User

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

164

ห้อง MS Access / ทำระบบ Log In แล้วเกิด เออเร่อ ควรแก้ไขอย่างไรบ้างครับผม

« เมื่อ: 08 ก.พ. 61 , 17:08:27 »

ผมได้สร้างระบบ Log IN โดยได้สร้าง Table และ Form (รูปที่1)

รูปที่ 1

โดยได้เขียนโค้ด VB ไว้ในปุ่ม Log In ใน Form (รูปที่ 2)

รูปที่ 2

โค๊ด: [Select]

Private Sub Command6_Click()
    If DLookup("Password", "tblUser", "User_ID" = '" & Me.txt_ID & "'") = Me.txt_Password Then
        nEmployee = CInt(DLookup("User_ID", "tblUser", "User_Name = '" & Me.txt_ID & "'"))
    Else
        MsgBox "ÃËÑʼèÒ¹äÁè¶Ù¡µéͧ ¡ÃسҡÃÍ¡ãËÁèÍÕ¡¤ÃÑé§ ËÃ×Í µÔ´µèͼÙé´ÙáÅÃкº", , "ÃËÑʼԴ"
    End If
End Sub
พบว่าเกิดเออเร่อ ... 
คำถาม อยากสอบถามผู้รู้และอาจารย์ทุกท่านว่า โค้ดต้องแก้ไขตรงไหนอย่างไรบ้างครับ ขอบคุณมากครับผม