Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn.
#11
(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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
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.
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#13
(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ỉ?
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#14
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 !
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#15
(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
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn jeck09nt , maidinhdan
#16
Cám ơn MatTroiNguQuen rất nhiều , mình đã thực hiện được rồi.
Chữ ký của jeck09nt Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
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
  [Phiên bản Bản quyền]Microsoft Office 2003 maidinhdan 4 100 03-12-16, 01:56 AM
Bài mới nhất: maidinhdan
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 624 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  [Hỏi] Cách lưu trữ phần CSDL tách biệt khỏi file access toancvp 5 516 16-07-16, 09:38 PM
Bài mới nhất: toancvp
  [Hỏi] Sử dụng phần mềm viết bằng Access trong mạng LAN chantroi_19 9 753 21-06-16, 10:33 AM
Bài mới nhất: lmthu
  Lỗi Access 2003 bị đóng băng theo hàng. imt0osexy 7 479 18-06-16, 11:19 AM
Bài mới nhất: maidinhdan

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ơ