ปัจจุบันผมได้เขียนหน้า log in form โดยใช้ code ตามด้านล่าง
ในตาราง userandpass จะมีท้้งหมด 3 field คือ
ีusername
password
fullname
โดยเขียนว่าเมื่อ user ใส่ id และ pass ระบบจะ dlookup หาชื่อจริง (fullname) เอามาแสดงบน form หลัก 1 ฟอร์ม ในที่นี้ชื่อว่า home page
จากนั้นผมกำหนดให้ form อื่นๆแสดงชื่อจริงของ user ที่กำลังใช้งานจาก home page
ปัญหาคือ หากมีการปิดฟอร์มที่ชื่อ home page ไปฟอร์มอื่นๆจะไม่สามารถแสดงชื่อ current full name ได้
เข้าใจว่าควรจะต้องใช้วิธีประกาศตัวแปรใน module ให้ module เก็บค่า current user ไว้จากนั้นฟอร์มไหนจะดึงข้อมูลตรงนี้ไปใช้ก็ได้แม้ว่าจะปิดฟอร์ม home page แล้ว
แต่ในแง่ของวิธีการ เท่าที่ search ดูยังหาที่เอามาลองทำไม่ได้ เลยขอคำแนะนำหน่อยครับ
ขอบคุณครับ
----------------------------------------
Private Sub Command1_Click()
If Me.Dirty Then Me.Dirty = False
If IsNull(Me.txtLoginId) Then
MsgBox "please enter loginID", vbInformation, "login ID require"
Me.txtLoginId.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "please enter password", vbInformation, "login ID require"
Me.txtPassword.SetFocus
Else
If (IsNull(DLookup("[username]", "userandpass", "[username] ='" & Me.txtLoginId.Value & "' And password = '" & Me.txtPassword.Value & "'"))) Then
MsgBox "incorrect id or password"
Else
'MsgBox "correct :)"
strfullname = DLookup("[fullname]", "userandpass", "[username] ='" & Me.txtLoginId.Value & "'And password = '" & Me.txtPassword.Value & "'")
MsgBox "Welcome " & strfullname
DoCmd.Close
DoCmd.OpenForm "home page"
Forms![home page]![user] = strfullname
End If
End If
End Sub
----------------------------------------
