Tình hình là e đang làm 1 form login như sau:

Private Sub Command1_Click()
Dim userlevel As Integer
If IsNull(Me.txtTK) Then
MsgBox "Nhap Ten Tai Khoan", vbInformation, "Thieu Ten Tai Khoan"
Me.txtTK.SetFocus
ElseIf IsNull(Me.txtMM) Then
MsgBox "Nhap Password", vbInformation, "Thieu Password"
Me.txtMM.SetFocus
Else
'process the job
If (IsNull(DLookup("ID", "Tai Khoan", "ID='" & Me.txtTK.Value & "'"))) Or _
(IsNull(DLookup("Pass", "Tai Khoan", "Pass='" & Me.txtMM.Value & "'"))) Then
MsgBox "Sai ID or Pass"
Else
userlevel = userlevel = DLookup("TenLoai", "Tai Khoan", "ID='" & Me.txtTK.Value & "'")
DoCmd.Close
If userlevel = 1 Then
DoCmd.OpenForm "A Giao Dien Chinh"
Else
DoCmd.OpenForm "B Giao Dien Chinh"

End If

End If
End If
End Sub

Table Tai Khoan(MaTK,MaKH,ID,Pass,TenLoai,SoDu,TrangThai)

Có cách nào để khi đang nhập đúng ID + Pass thì đồng thời lưu lại MaTK để sử dụng cho các query sau được không?
Mong các bác giúp đỡ... e đang làm đồ án và đang rất cần.

Không ai giúp ah

Có !
Có nhiều cách để lưu lại thông tin của User (ID) đã đang nhập. Mình nói 1 cách gán bằng biến toàn cục nhé.
1.Đầu tiên bạn khai báo biến toàn cục bằng lệnh: Public strMaTK as string.
2. Sau khi đăng nhập thành công, bạn gán strMaTK bằng code:
- Nếu ID của bạn khai báo là Integer thì: strMaTK=Dlookup("[MaTK]","Taikhoan","[Id]=" & me.txtID.Value & "")
- Nếu ID của bạn khai báo là string thì: strMaTK=Dlookup("[MaTK]","Taikhoan","[Id]='" & me.txtID.Value & "'").
Sau khi gán xong bạn có thể gọi lại biến và dùng trong suốt phiên làm việc (Nếu ko gán lại strMaTK="") bằng cách gọi lại: Me.textboxName.Value=strMaTK (textboxName là tên textbox bạn muốn gán giá trị strMaTK.
Chúc bạn thành công !

cảm ơn bạn

Các bạn có thể nói rõ không? Mình còn gà Access nên không hiểu cho lắm!

Bạn tham khảo filedemo (frmLogIn + sử dụng biến toàn cục) biến tấu theo yêu cầu của mình nhé !
FileDemo
Chúc bạn thành công