Đá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
  [Help] Kết quả tính toán theo dòng record tương ứng tvn_hut 5 259 02-06-18, 03:24 PM
Bài mới nhất: tvn_hut
  [Help] So sánh giá trị record trên cùng 1 trường trong 1 bảng để có kết quả tính toán đúng tvn_hut 5 176 29-05-18, 10:39 PM
Bài mới nhất: ongke0711
  [Hỏi] Có nên chuyển toàn bộ query vào vba mrsiro 4 201 26-04-18, 11:19 PM
Bài mới nhất: ongke0711
  Đọc và Ghi ra QRcode bằng VBA lehongduc 2 557 07-10-17, 04:04 PM
Bài mới nhất: minhminh25767
  Xin file demo theo yêu cầu, tùy biến các query theo câu lệnh SQL Đình Phán 12 1,254 19-08-17, 07:08 AM
Bài mới nhất: cpucloi

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line