Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Mọi người giúp mình sửa form đăng nhập theo ý mình được không?
#1
Mình gọp 2 form đăng nhập từ 2 bài viết này do có cấu trúc gần giống nhau
http://thuthuataccess.com/forum/thread-5110.html (lưu vết thay đổi dữ liệu)
http://thuthuataccess.com/forum/thread-2479.html
Nhưng khi mình thay giá trị ở textbox của form1 thì cột user của table tblLuuvetchuongtrinh không hiển thị "ten" ở table tblUser mà là giá trị của cột ID
Mình muốn nó là giá trị ở cột ten thì sửa như thế nào mọi người?

Mã PHP:
Private Sub cmdLogin_Click()
    
Dim varPassword As String
   
If IsNull(Me.cbtendangnhap) Or Me.cbtendangnhap "" Then
            msgBoxUni DLookup
("[LOI]""tblMsgbox""[ID] = 32"), vbInformation vbOKOnlyDLookup("[TITLE]""tblMsgbox""[ID] = 32")
            
Me.cbtendangnhap.SetFocus
        
Exit Sub
    End 
If
    If 
IsNull(Me.txtPassword) Or Me.txtPassword "" Then
            msgBoxUni DLookup
("[LOI]""tblMsgbox""[ID] = 7"), vbInformation vbOKOnlyDLookup("[TITLE]""tblMsgbox""[ID] = 7")
            
Me.txtPassword.SetFocus
        
Exit Sub
    End 
If
    
'varPassword = DLookup("matkhau", "tblUser", "ten = '" & Me.cbtendangnhap & "'")
    '
On Error Resume Next
    
If Me.txtPassword.Value DLookup("matkhau""tblUser""[ID] = " Me.cbtendangnhap.ValueThen
        ID 
Me.cbtendangnhap.Value
        
'If Me.txtPassword = varPassword Then
        GvarUserName = Me.cbtendangnhap
        '
msgBoxUni DLookup("[LOI]""tblMsgbox""[ID] = 33"), vbInformationDLookup("[TITLE]""tblMsgbox""[ID] = 33")
        
Me.Visible False
        DoCmd
.OpenForm "form1"
        
Else
        
msgBoxUni DLookup("[LOI]""tblMsgbox""[ID] = 6"), vbInformation vbOKOnlyDLookup("[TITLE]""tblMsgbox""[ID] = 6")
        
solandangnhap solandangnhap 1
        Me
.txtPassword.SetFocus
    End 
If
    If 
solandangnhap 2 Then
        msgBoxUni DLookup
("[LOI]""tblMsgbox""[ID] = 34"), vbInformation vbOKOnlyDLookup("[TITLE]""tblMsgbox""[ID] = 34")
        
Application.Quit
    End 
If
    
'End If
End Sub 

Mình thay chỗ này nhưng báo lỗi

Mã PHP:
If Me.txtPassword.Value DLookup("matkhau""tblUser""[ten] = " Me.cbtendangnhap.ValueThen
        ten 
Me.cbtendangnhap.Value 

[Hình: 123_zps04ed977e.png]

File của mình : https://www.mediafire.com/?7v0p4321hc7v4yr
Tên đăng nhập admin
pass admin
hay tên đăng nhập 1 pass 1
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#2
Bạn thử thay Code của bạn
Mã PHP:
If Me.txtPassword.Value DLookup("matkhau""tblUser""[ten] = " Me.cbtendangnhap.ValueThen 
Thành
Mã PHP:
If Me.txtPassword.Value DLookup("matkhau""tblUser""[ten] = '" Me.cbtendangnhap.Value) & "'" Then 
Reply
Những người đã cảm ơn
#3
Không được bạn.
Hình như vấn đề của mình nằm ở khai báo string.
Mà mình kiếm không ra.
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#4
Đưa file mdb lên mình sửa giúp hộ.
Reply
Những người đã cảm ơn
#5
File mdb. Bạn xem dùm mình. Vì import từ file mdb khác nên lúc tắt bị lỗi gì đó.

https://www.mediafire.com/?u198tdkw018qz4l

Khi thay đổi giá trị ở textbox (1) của form frm_system_main thì ờ cột "tên đăng nhập" (2) của form lịch sử lưu vết (frm_system_luuvet) nó không hiện tên user đang đăng nhập là "user" mà là "3" (3)

[Hình: zws_zpscd20f277.jpg]
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#6
Mình đã sửa lại giúp bạn, xem tại
https://drive.google.com/file/d/0BzTz6EB...sp=sharing
Nguyên nhân tại Form Login dòng code này
Mã PHP:
GvarUserName Me.cbtendangnhap 
Mình đã sửa lại thành
Mã PHP:
GvarUserName Me.cbtendangnhap.Column(1
Thân mến!
Reply
Những người đã cảm ơn changkhoonline77
#7
Được rồi. Cảm ơn vba nhiều.

Bạn có phiền không khi giúp mình thêm là sửa lại combobox cbtendangnhap ở form login thành textbox mà vẫn giữ nguyên các thiếp lập column.

Mình có đoạn code này trong vb ở form main

Mã PHP:
If GetQuyen "user" Then
        DoCmd
.OpenForm "frm_system_backup"
    
Else
        
msgBoxUni DLookup("[LOI]""tblMsgbox""[ID] = 45"), vbInformation vbOKOnlyDLookup("[TITLE]""tblMsgbox""[ID] = 45")
    
End If 

Mình muốn thay giá trị ở chỗ Getquyen= "user" bằng giá trị khác trong bảng tblPhanquyen. Mình thay
Mã PHP:
"(DLookup("[DATQUYEN]", "tblphanquyen", "[ID] = 1")" 
nhưng báo lỗi. Không biết trong trường hợp này nên dùng cách nào? bạn biết thì giúp mình nha.
file https://www.mediafire.com/?98135y6ublot4ye

[Hình: TDE_zps7867efd2.jpg]
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn
#8
Bạn đổi:
Mã:
if Getquyen="(DLookup("[DATQUYEN]", "tblphanquyen", "[ID] = 1")" then
thành:
Mã:
if Getquyen=DLookup("[DATQUYEN]", "tblphanquyen", "[ID] = 1") then
là OK !
Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn changkhoonline77


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tự động hiện Form khi loading hết thời gian ChiMai 1 34 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 186 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  Thay đổi hình ảnh theo mã feeling 3 149 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 123 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902

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ơ