• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Lưu 1 giá trị bằng 1 biến toàn cục

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Lưu 1 giá trị bằng 1 biến toàn cục
• Lưu 1 giá trị bằng 1 biến toàn cục

• Lưu 1 giá trị bằng 1 biến toàn cục

  nhox121 > 18-05-14, 04:18 PM

  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.

• RE: Lưu 1 giá trị bằng 1 biến toàn cục

  nhox121 > 19-05-14, 07:47 AM

  Không ai giúp ah

• RE: Lưu 1 giá trị bằng 1 biến toàn cục

  Minh Tiên > 19-05-14, 10:11 AM

  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 !

• RE: Lưu 1 giá trị bằng 1 biến toàn cục

  nhox121 > 19-05-14, 04:19 PM

  cảm ơn bạn

• RE: Lưu 1 giá trị bằng 1 biến toàn cục

  dsvanminh > 20-05-14, 09:08 AM

  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!

• RE: Lưu 1 giá trị bằng 1 biến toàn cục

  Minh Tiên > 20-05-14, 12:04 PM

  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
• Bài trước Bài tiếp