Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Lưu 1 giá trị bằng 1 biến toàn cục
#1
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.
Chữ ký của nhox121 Xin chào, mình là nhox121, Tham gia http://thuthuataccess.com/forum từ ngày 18-05 -14.
Reply
Những người đã cảm ơn
#2
Không ai giúp ah 040
Chữ ký của nhox121 Xin chào, mình là nhox121, Tham gia http://thuthuataccess.com/forum từ ngày 18-05 -14.
Reply
Những người đã cảm ơn
#3
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn Noname , nhox121
#4
cảm ơn bạn 015
Chữ ký của nhox121 Xin chào, mình là nhox121, Tham gia http://thuthuataccess.com/forum từ ngày 18-05 -14.
Reply
Những người đã cảm ơn
#5
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!
Chữ ký của dsvanminh Xin chào, mình là dsvanminh, Tham gia http://thuthuataccess.com/forum từ ngày 08-04 -14.
Reply
Những người đã cảm ơn
#6
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
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn nhox121


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 6 145 29-11-16, 05:18 PM
Bài mới nhất: MinhnHang
  Summary bằng VBA trong MS Access. MinhnHang 6 316 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang
  [Help] xin hỗ trợ bằng Thủ thuật VBA Trần Linh 3 238 13-07-16, 09:06 PM
Bài mới nhất: ongke0711
  Gửi tin nhắn SMS bằng Access lmthu 6 337 25-06-16, 12:23 AM
Bài mới nhất: zinzin8x
Photo Hướng dẫn tính tôn kho từ một bảng chi tiết nhập xuất tt1212 8 398 17-06-16, 04:47 PM
Bài mới nhất: tt1212

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ