Import ได้แล้วค่ะ แต่ตอนนี้ติดปัญหาการเรื่อง Code โปรแกรมที่เขียนไว้ connect database ไปที่ sql ไม่ได้ค่ะ
โค้ดที่เขียนหน้า Login ตามนี้ค่ะ เดิมใช้ Database Access ถ้าใช้ Database SQL ต้องแก้ไขให้สามารถใช้ได้ยังไงได้บ้างคะ รบกวนแนะนำด้วยค่ะ
ปล.Database ทำการ Link SQL มาค่ะ
Option Compare Database
Private Sub cmdCancel_Click()
Me.txtUsername = ""
Me.txtPassword = ""
End Sub
Private Sub cmdOK_Click()
Dim UserLevel As String
Dim WorkerName As String
Dim TempLoginID As String
If IsNull(Me.txtUsername) Then
MsgBox "¡ÃسÒãÊèª×èͼÙéãªé", vbInformation, "ª×èͼÙéãªé"
Me.txtUsername.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "¡ÃسÒãÊèÃËÑʼèÒ¹", vbInformation, "ÃËÑʼèÒ¹"
Me.txtPassword.SetFocus
Else
If (IsNull(DLookup("dbo_tblUser.UserLogin", "dbo_tblUser", "dbo_tblUser.UserLogin ='" & Me.txtUsername.Value & "'"))) Or (IsNull(DLookup("dbo_tblUser.Password", "tblUser", "dbo_tblUser.Password ='" & Me.txtPassword.Value & "'"))) Then
MsgBox "ª×èͼÙéãªéËÃ×ÍÃËÑʼèÒ¹äÁè¶Ù¡µéͧ"
Else
TempLoginID = Me.txtUsername.Value
WorkerName = DLookup("dbo_tblUser.UserName", "dbo_tblUser", "dbo_tblUser.UserLogin ='" & Me.txtUsername.Value & "'")
UserLevel = DLookup("dbo_tblUser.UserSecurity", "dbo_tblUser", "dbo_tblUser.UserLogin ='" & Me.txtUsername.Value & "'")
DoCmd.Close
If UserLevel = "Admin" Or UserLevel = "RC" Then
DoCmd.OpenForm "frmCheckCardIDandSave"
Forms![frmCheckCardIDandSave]![txtLogin] = TempLoginID
Forms![frmCheckCardIDandSave]![txtUser] = WorkerName
Else
MsgBox "ª×èͼÙéãªéäÁèÁÕÊÔ·¸Ôìà¢éÒãªé§Ò¹"
DoCmd.OpenForm "frmLogin"
End If
End If
End If
End Sub
แสดงกระทู้
