7
« เมื่อ: 03 มี.ค. 62 , 10:10:55 »
ผมลองทำตามคำแนะนำในเวปต่างๆ เรื่องการเก็บ Log คนเข้าใช้งานทั้งชื่อ และ เวลาการใช้งาน ใช้คำสั่งด้งนี้่ได้แต่ผลลัพธ์ของเวลาแล้ว แต่ชื่อคนที่พิมพ์ไม่ปรากฎ
ขอคำแนะนำหน่อยว่าคำสั่งใน Form พิมพ์ชื่อตอนเข้าใช้งาน (ชื่อกล่อง PassBox) อยากให้ขึ้นข้อมูลชื่อคนพิมพ์เป็น Record เก็บไว้ในตาราง Table1 ที่ตั้งไว้(เวลาที่ใช้ขึ้นแล้วในตารางนี้) ต้องแก้ไขอย่างไรครับ
ผมใช้คำสั่งดังนี้
(รหัสผ่านใน Form ที่ให้คีย์ ชื่อ PassBox)
Private Sub Command21_Click()
Dim fpass As String
On Error GoTo 1: MsgBox "Invalid UserName / Password ??? Please Enter"
fpass = DLookup("[User]![Password]", "[User]", "[UserName]=[UserBox]")
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
rs.AddNew
rs!Login_name = "[UserBox]"
rs!Login_Date = Now()
rs.Update
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
If fpass = PassBox.Value Then
DoCmd.OpenForm "OA DBMS_Form", acNormal, "", "", , acNormal
End If
Exit Sub
1:
End Sub
ขอบคุณมากครับ