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

Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.
• Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

• RE: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

  maidinhdan > 29-06-15, 10:45 AM

  (26-06-15, 12:16 PM)jeck09nt Đã viết: Chào các bạn,
  Tôi tạo thêm 1 form có tên Menu bao gồm 2 Textbox : UserLogin và UserName
  Tôi muốn khi đăng nhập vào form frmLogin thanh công thì giá trị : txtUsername và TxtName lấy từ table tblUsers sẽ được cập nhật vào UserLogin và UserName nhưng báo lỗi như file đính kèm.
  
  http://www.mediafire.com/download/9esion...abGroup.7z
  
  Nhờ các bạn giúp đỡ, cám ơn !

  
  Hầu hết trên diễn đàn đều dùng Access 2003, nên rất khó để hỗ trợ bạn sớm được.
  
  Nếu muốn được trả lời sớm, bạn chuyển về Access 2003 để mọi người xem form của bạn để góp ý kiến.
  
  * Đối với bài bạn đọc câu hỏi mình có ý kiến thế này. ( Bởi tôi chưa rõ UserLogin và UserName là chứa gì trong đây nên:
  1. Bạn phải tạo 2 table:
  + 01 table ( tạm gọi tblUsers như bạn đi: Cái chứa [ ID, Tên; Mật khẩu; Quyền hạn ]
  + 01 tbale nửa ( tạm gọi là tbltheodoidangnhap): chứa [ ID; Tên; Ngày đăng nhập]
  
  2. Xong 2 cái trên thì khi bạn đăng nhập bạn viết code bình thường để dò lấy tblUsers; Cuối cùng để lưu lịch sử ai đăng nhập bạn chèn thêm code phía dưới nút Đăng nhập như code cập nhập
  
  
  

  Mã PHP:

  Private Sub cmdLogin_Click()
    Dim rss As Recordset
    Set rss = CurrentDb.OpenRecordset("tbltheodoidangnhap", dbOpenDynaset)      
        rss.AddNew
        rss!ID = txtUserID
        rss!Ten = txtUserName
        rss!Ngaydangnhap = Date()
        rss.Update
        rss.Close
End Sub 


  
  Cuối cùng đề nghị bạn lập topic mới, câu hỏi của bạn không liên quan đến chủ đề này nửa đâu.
  
  Thân mến!

• RE: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

  jeck09nt > 29-06-15, 02:48 PM

  Cám ơn maidinhdan đã hỗ trợ, do file mình làm trên access 2007 (tạo menu Ribbon). MÌnh sẽ tạo Topic khác.

• RE: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

  MTNQ > 11-07-15, 08:29 AM

  (26-06-15, 12:16 PM)jeck09nt Đã viết: Chào các bạn,
  Tôi tạo thêm 1 form có tên Menu bao gồm 2 Textbox : UserLogin và UserName
  Tôi muốn khi đăng nhập vào form frmLogin thanh công thì giá trị : txtUsername và TxtName lấy từ table tblUsers sẽ được cập nhật vào UserLogin và UserName nhưng báo lỗi như file đính kèm.
  
  http://www.mediafire.com/download/9esion...abGroup.7z
  
  Nhờ các bạn giúp đỡ, cám ơn !

  (29-06-15, 02:48 PM)jeck09nt Đã viết: Cám ơn maidinhdan đã hỗ trợ, do file mình làm trên access 2007 (tạo menu Ribbon). MÌnh sẽ tạo Topic khác.

  
  File của bạn có khá nhiều chỗ sai, không biết bạn đã giải quyết được vấn đề chưa nhỉ?

• RE: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

  jeck09nt > 16-07-15, 11:42 AM

  Chào MatTroiNguQuen.
  Hiện tại mình vẫn chưa giải quyết được, nhờ bạn giúp nếu có thể.
  Cám ơn !

• RE: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

  MTNQ > 17-07-15, 09:22 PM

  (16-07-15, 11:42 AM)jeck09nt Đã viết: Chào MatTroiNguQuen.
  Hiện tại mình vẫn chưa giải quyết được, nhờ bạn giúp nếu có thể.
  Cám ơn !

  
  Xét hai thủ tuc:
  
  -Thủ tục đóng form frmLogin:
  
  

  Mã:

  Private Sub btnClose_Click()
   lngSelectedUser = Nz(DLookup("[ID]", "[tblUsers]", "[txtPassword] = '" & Me!txtPass & "' AND [txtUsername] = '" & Me!txtName & "'"), 0)
   If lngSelectedUser = 0 Then
       MsgBox "Wrong Name / Password", vbCritical, "Login"
       MsgBox strMsg, vbInformation, " Xin Thong Bao !"
       lngSelectedUser = 0
   End If
   UpdateRibbon
   DoCmd.Close acForm, Me.Name, acSaveNo
   DoCmd.OpenForm "Menu"
End Sub

  
  -Thủ tục mở form: Menu
  

  Mã:

  Private Sub Form_Open(Cancel As Integer)
Me!UserLogin = DLookup("[txtUsername]", "tblUsers", "UserLogin=forms!frmLogin!UserLogin")
Me!UserName = DLookup("[TxtName]", "tblUsers", "UserLogin=forms!frmLogin!UserLogin")
Me.FilterOn = True

End Sub

  
  1- Form frmLogin đã đóng rồi làm sao lấy được điều kiện: "UserLogin=forms!frmLogin!UserLogin" ?
  
  2-Giả sử frmLogin chưa đóng thì trong tblUsers cũng không có trường nào có tên UserLogin, trên form Login cũng 
  không điều khiển nào tên UserLogin. (Nếu có thì điều kiện bạn phát biểu cũng sai).Bạn nên xem lại hàm DLookup
  
  3-Nếu chú ý một chút bạn sẽ thấy lngSelectedUser là biến toàn cục, biến này chính là ID của user đã đăng nhập (xem lại thủ tục đầu tiên)
  
  Như vậy thủ tục thứ hai sẽ sửa lại như sau:
  

  Mã:

  Private Sub Form_Open(Cancel As Integer)
Me!UserLogin = DLookup("[txtUsername]", "[tblUsers]", "[ID]=" & lngSelectedUser)
Me!UserName = DLookup("[TxtName]", "[tblUsers]", "[ID]=" & lngSelectedUser)
Me.FilterOn = True

End Sub

• RE: Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.

  jeck09nt > 18-07-15, 10:58 AM

  Cám ơn MatTroiNguQuen rất nhiều , mình đã thực hiện được rồi.
• Bài trước Bài tiếp