Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Form đăng nhập trong access.
#1
Em có một số thắc mắc xin nhờ mọi người giúp đỡ.

Tình hình là em tạo form Đăng nhập và table TaiKhoan để có thể đăng nhập vào chương trình. Vấn đề là em không biết làm thế nào để khi chạy chương trình form Đăng nhập sẽ chạy lúc khởi động chương trình.

Và trong table TaiKhoan em có phân quyền cho các user. Em đã tạo các form riêng cho từng user khi đăng nhập. Giờ em muốn khi đăng nhập vào user có phân quyền nào thì chương trình sẽ mở ra form tương ứng.

Mọi người ai biết thì hướng dẫn em cách làm với. Em xin chân thành cảm ơn.

File của em đây ạ http://www.mediafire.com/?gctv97iby0bfu50
Chữ ký của riolo05 Xin chào, mình là riolo05, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -12.
Reply
Những người đã cảm ơn
#2
Bạn tìm những từ khóa Phân quyền, startup. Diễn đàn có nhiều người làm rồi.

http://thuthuataccess.com/forum/thread-71.html
http://thuthuataccess.com/forum/thread-542.html
http://thuthuataccess.com/forum/thread-1970-page-2.html
http://thuthuataccess.com/forum/thread-332.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn riolo05
#3
Ai có thể xem dùm em em làm sai chỗ nào ạ sad
http://www.mediafire.com/?gctv97iby0bfu50
Chữ ký của riolo05 Xin chào, mình là riolo05, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -12.
Reply
Những người đã cảm ơn
#4
Bài này em đã phân quyền hết rồi nhưng khi đăng nhập lại bị báo lỗi runtime error 91. Ai giúp em với đi. sad sad sad
Chữ ký của riolo05 Xin chào, mình là riolo05, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -12.
Reply
Những người đã cảm ơn
#5
Bạn đã gán
Mã:
Set rs = db.OpenRecordset("tblTaiKhoan", dbOpenDynaset)

Nhưng thực tế bạn không có table hay query nào tên là tblTaiKhoan cả.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn riolo05
#6
(21-05-12, 12:34 PM)Noname Đã viết: Bạn đã gán
Mã:
Set rs = db.OpenRecordset("tblTaiKhoan", dbOpenDynaset)

Nhưng thực tế bạn không có table hay query nào tên là tblTaiKhoan cả.

Em đã sửa lại là
Mã:
Set rs=db.OpenRecordset("TaiKhoan", dbOpenDynaset)

Cảm ơn anh NoName. Em đã sửa lại được rồi. Bị sai chỗ tên trường MatKhau mà em ghi là matKhau nên không được.
Chữ ký của riolo05 Xin chào, mình là riolo05, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -12.
Reply
Những người đã cảm ơn
#7
Form login gặp rắc rối !
Chào các bạn mình có việc này đang cần các cao thủ giúp đỡ . Mình đã tạo xong form login chạy ổn rồi, khi chưa nhập code cho form login thì chuyển qua MDE bình thường, tuy nhiên sau khi nhập code cho form login thì không thể chuyển qua file MDE được. Đoạn code của mình đây:
Option Compare Database
Private intLogonAttempts As Integer

Private Sub cboEmployee_NotInList(NewData As String, Response As Integer)
MsgBox "Ban phai nhap dung 'User name' cua ban.", vbInformation, Me.Caption
Response = acDataErrContinue

End Sub

Private Sub cmdCancel_Click()
On Error GoTo Err_cmdCancel_Click
DoCmd.Quit
Exit_cmdCancel_Click:
Exit Sub
Err_cmdCancel_Click:
MsgBox Err.Description
Resume Exit_cmdCancel_Click
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.cboEmployee.SetFocus
End Sub

Private Sub cboEmployee_AfterUpdate()
txtstrAccess = DLookup("strAccess", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value)
Me!txtUserName = Me!cboEmployee.Column(2)
Me.txtPassword.SetFocus
End Sub

Private Sub cmdLogin_Click()
If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
MsgBox "Ban phai chon 'User Name' cua ban.", vbCritical, "User name"
Me.cboEmployee.SetFocus
Exit Sub
End If
If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
MsgBox "Ban phai nhap mat khau cua ban vao o 'Password'.", vbCritical, "Nhap mat khau"
Me.txtPassword.SetFocus
Exit Sub
End If
If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then
lngMyEmpID = Me.cboEmployee.Value
MsgBox "Ban da dang nhap thanh cong...", vbInformation, "Dang nhap..."
DoCmd.OpenForm "frmMain"
Me.Visible = False
Else
MsgBox "Mat khau khong dung. Vui long nhap lai.", vbExclamation, "Sai mat khau!"
Me.txtPassword.SetFocus
End If
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 2 Then
MsgBox "Mat khau khong dung, chuong trinh se thoat. Vui long lien he voi Admin.", vbCritical, "Mat khau!"
Application.Quit
End If
End Sub
Các bạn xem có lỗi gì trong đó giúp dùm mình nhé, mình đang cần gấp lắm. Thanks
Chữ ký của quanghoa Xin chào, mình là quanghoa, Tham gia http://thuthuataccess.com/forum từ ngày 25-10 -14.
Đừng để ý chí mình gầm lên
Khi năng lực của mình chỉ đủ sức thì thầm!
Reply
Những người đã cảm ơn
#8
Bạn kiểm tra xem lỗi ở chỗ nào. Chạy trước khi chuyển sang MDE.
Hoặc bạn up file lên nhé
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
mình có một file đăng nhập mẫu để sử dụng làm Form login cho các chương trình của mình. Nhưng nó hơi bị lu bu do mình hay dùng nó làm form nền để xử lý nhiều vấn đề khác. Mình sẽ bỏ bớt những phần rườm rà đó rồi boost lên cho các bạn xem thử. Bạn nào dùng được thì điều chỉnh lại theo ý thích rồi dùng dùng
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
Chương trình cho xuất hiện form_main trước ẩn luôn MENU. Nếu đúng mật khẩu và tên đăng nhập thì mới mở MENU thì phải làm sao ?
Chữ ký của thanh25k62 Xin chào, mình là thanh25k62, Tham gia http://thuthuataccess.com/forum từ ngày 20-11 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] cách Khóa form không cho click ra ngoài toidjtjmtoi 3 101 08-09-17, 12:30 PM
Bài mới nhất: toidjtjmtoi
  [Help] chụp hình webcam trong access babyrock2009 16 527 01-09-17, 01:58 PM
Bài mới nhất: lehongduc
  Giúp đỡ in form toaneurowindow 2 86 28-08-17, 08:06 PM
Bài mới nhất: tranthanhan1962
  [Lỗi] Lỗi không mở được form cawboy 5 127 28-08-17, 06:42 PM
Bài mới nhất: ongke0711
  Thiết lập mở file pdf từ form feeling 1 113 10-08-17, 04:57 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ơ