Đá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
  Active sheet cuối của Excel bằng VBA Access vodainhan 7 112 16-03-17, 11:38 AM
Bài mới nhất: vodainhan
  [Hỏi] Liên kết bảng biểu Excel sang Word thông qua Access vuthaiha90 18 689 24-02-17, 04:07 PM
Bài mới nhất: vuthaiha90
  Gửi tin nhắn SMS bằng Access lmthu 7 487 07-02-17, 09:02 AM
Bài mới nhất: cpucloi
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 463 09-12-16, 06:11 PM
Bài mới nhất: maidinhdan
  Summary bằng VBA trong MS Access. MinhnHang 6 518 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang

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ơ