hoat > 28-12-21, 12:43 PM
AnNguyen > 28-12-21, 03:21 PM
(28-12-21, 12:43 PM)hoat Đã viết: Mình có file quản lý hợp đồng và cấp quyền đăng nhập cho từng người.
Trên form nhập liệu có 1 tex box tên: NVNhap, bây giờ mình muốn: mỗi khi nhấn nút "Nhập mới" thì tex box tên: NVNhap sẽ lấy tài khoản đăng nhập gán vào mà không phải nhập thủ công.
VD: tài khoản đăng nhập tên: Hùng thì khi nhấn nút "Nhập mới" thì tex box tên: NVNhap tự động điền là Hùng
Rất mong nhận được hướng dẫn của mọi người.
Cảm ơn cả nhà nhiều.
ongke0711 > 28-12-21, 04:28 PM
(28-12-21, 03:21 PM)AnNguyen Đã viết: Mình thường lưu thông tin đăng nhập vào 1 table "Login" để lưu những giá trị cần thiết khi đăng nhập.
Vì vậy khi đăng nhập thành công thì bạn lưu cái tài khoản đó lại rồi các form khác khi gọi ra thì chỉ cần dùng hàm DLookup thôi.
Còn nếu không thì bạn sẽ gán tài khoản đó cho 1 textbox ở form_Main để sau gọi thông tin đó ra "Form_f_Main.txtTaiKhoan"
AnNguyen > 28-12-21, 05:15 PM
(28-12-21, 04:28 PM)ongke0711 Đã viết:Em lưu trên FE anh ạ. Vì mình chỉ lưu phiên làm việc của mình thôi nên em lưu tạm trên FE.(28-12-21, 03:21 PM)AnNguyen Đã viết: Mình thường lưu thông tin đăng nhập vào 1 table "Login" để lưu những giá trị cần thiết khi đăng nhập.
Vì vậy khi đăng nhập thành công thì bạn lưu cái tài khoản đó lại rồi các form khác khi gọi ra thì chỉ cần dùng hàm DLookup thôi.
Còn nếu không thì bạn sẽ gán tài khoản đó cho 1 textbox ở form_Main để sau gọi thông tin đó ra "Form_f_Main.txtTaiKhoan"
Table này bạn lưu trên BE hay FE? Nếu lưu trên BE thì trường hợp nhiều người cùng đăng nhập sử dụng thì khi DLookup, làm sao phân biệt User nào của máy nào?
Xuân Thanh > 28-12-21, 05:41 PM
ongke0711 > 28-12-21, 08:15 PM
(28-12-21, 05:15 PM)AnNguyen Đã viết: Em lưu trên FE anh ạ. Vì mình chỉ lưu phiên làm việc của mình thôi nên em lưu tạm trên FE.
Option Compare Database
Option Explicit
Public UserName As String
Public UserID As Integer
Public UserLevel As Integer
Public UserPass As String
Function GetUsername()
GetUsername = UserName
End Function
Function GetUserID()
GetUserID = UserID
End Function
Function GetUserLevel()
GetUserLevel = UserLevel
End Function
Function GetUserPass()
GetUserPass = UserPass
End Function
UserName = Me.cboUserName. Value
UserLevel = Me.txtUserLevel
...
Sub testTempVars()
TempVars.Add "UserID", 1
TempVars.Add "UserName", "admin"
TempVars.Add "UserLevel", 9
Debug.Print TempVars!UserName
Debug.Print TempVars!UserLevel
End Sub
Me.Visible = False
Dim userName As String, passWord As String, authLevel As Interger
userName = Form!frmDangNhap!cboUser.Value
passWord = Form!frmDangNhap!txtPassWord
authLevel = Forms!frmDangNhap.txtAuthLevel
Xuân Thanh > 28-12-21, 09:58 PM
hoat > 30-12-21, 09:22 AM
(28-12-21, 03:21 PM)AnNguyen Đã viết:(28-12-21, 12:43 PM)hoat Đã viết: Mình có file quản lý hợp đồng và cấp quyền đăng nhập cho từng người.
Trên form nhập liệu có 1 tex box tên: NVNhap, bây giờ mình muốn: mỗi khi nhấn nút "Nhập mới" thì tex box tên: NVNhap sẽ lấy tài khoản đăng nhập gán vào mà không phải nhập thủ công.
VD: tài khoản đăng nhập tên: Hùng thì khi nhấn nút "Nhập mới" thì tex box tên: NVNhap tự động điền là Hùng
Rất mong nhận được hướng dẫn của mọi người.
Cảm ơn cả nhà nhiều.
Mình thường lưu thông tin đăng nhập vào 1 table "Login" để lưu những giá trị cần thiết khi đăng nhập.
Vì vậy khi đăng nhập thành công thì bạn lưu cái tài khoản đó lại rồi các form khác khi gọi ra thì chỉ cần dùng hàm DLookup thôi.
Còn nếu không thì bạn sẽ gán tài khoản đó cho 1 textbox ở form_Main để sau gọi thông tin đó ra "Form_f_Main.txtTaiKhoan"
(28-12-21, 09:58 PM)Xuân Thanh Đã viết: Dùng TempVars như ongke0711 là chính xác nhất. Với người mới dùng và làm quen với Access thì biến này ít người biết đến nên tôi mới nói dùng biến Public để nhiều người hiểu. Còn một khi đã rành Access thì nên dùng TempVars. Tôi cũng thường hay sử dụng biến nàyfile mình có những form: F_dangnhap, F_chinh, F_Hopdong
AnNguyen > 30-12-21, 10:09 AM
(30-12-21, 09:22 AM)hoat Đã viết: file mình có những form: F_dangnhap, F_chinh, F_HopdongNhư anh Ongke có nói ở trên đó bạn.
F_dangnhap: có 2 text box là: tendangnhap và matkhau
F_chinh: có textbox: taikhoandangnhap và các nút để link đến các form khác.
F_Hopdong: có textbox: nguoinhap và các textbox khác để nhập nội dung.
AnNguyen có thể hướng dần mình các lệnh để làm sao khi mở F_hopdong sau khi bấm nút nhập mới thì tại textbox nguoinhap trên F_Hopdong sẽ lấy được tên của tài khoản đăng nhập.
Cảm ơn bạn nhiều.
Private Sub btnDangNhap_Click()
TempVars.Add "UserName", txtTaiKhoan.value
End Sub
Private Sub btnThemMoi_Click()
nguoinhap = TempVars!UserName
End Subhoat > 03-01-22, 03:17 PM