• Trang chủ click to expand contents 

  • 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.