เรียนถาม อ.สุภาพค่ะ
หนูได้ลองสร้างฟอร์ม การ login ของผู้ใช้จากหนังสือเล่มหนึ่ง
โดยมี code เป็นอย่างนี้ค่ะ

Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click
Dim rst As Recordset
Dim dbs As Database
Dim stDocName As String
Dim stLinkCriteria As String
Dim USR As Variant

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("SELECT * FROM TBLUSER" & _
" WHERE USER_NAME='" & USER_NAME & _
"' AND USER_PASS ='" & USER_PASS & "'")
If Not rst.EOF Then
UserLogin = rst!USER_NAME
BelongToAdmin = rst!USER_ADMIN
UserAdd = rst!User_Add
UserDelete = rst!User_Delete
UserEdit = rst!User_Edit
UserNotViewReport = rst!User_NotViewReport
UserLinkDatabase = rst!User_LinkDatabase
UserImport = rst!User_Import
UserLinkTable = rst!User_LinkTable
DoCmd.Close
stDocName = "frmMain"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Maximize
Else
Beep
MsgBox "ข้อมูลไม่ถูกต้อง", vbCritical, "Login : แจ้งให้ทราบ"
End If

Exit_cmdOK_Click:
Exit Sub

Err_cmdOK_Click:
MsgBox err.Description
Resume Exit_cmdOK_Click
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++
หนูต้องการเพิ่มเติมในส่วนที่เมื่อผู้ใช้ login ถูกต้องอยากจะให้มีการโอนข้อมูลของผู้ที่ login เข้ามาไปยังอีกตารางนึงค่ะ โดยมีรายละเอียดคือ
ชื่อผู้ใช้
วันที่เข้าใช้
เวลาที่เข้า


อีกกรณีนึงคือ ต้องการให้ โอนข้อมูลเข้าที่ตารางเดิมเมือผู้ใช้ออกจากโปรแกรม โดยการปิดโปรแกรม
โดยให้มีรายละเอียด คือ
ชื่อผู้ใช้
วันที่เข้าใช้
เวลาที่ออก

ไม่ทราบว่าต้องเพิ่มเติม code ตรงส่วนไหนจาก code ข้างบนค่ะ
รบกวนอ.กรุณาแนะนำด้วยน่ะค่ะ
ขอบคุณค่ะ