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

Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Mọi người giúp mình sửa form đăng nhập theo ý mình được không?
• Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

• Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  changkhoonline77 > 21-06-14, 08:31 AM

  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 + vbOKOnly, DLookup("[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 + vbOKOnly, DLookup("[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.Value) Then
        ID = Me.cbtendangnhap.Value
        'If Me.txtPassword = varPassword Then
        GvarUserName = Me.cbtendangnhap
        'msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 33"), vbInformation, DLookup("[TITLE]", "tblMsgbox", "[ID] = 33")
        Me.Visible = False
        DoCmd.OpenForm "form1"
        Else
        msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 6"), vbInformation + vbOKOnly, DLookup("[TITLE]", "tblMsgbox", "[ID] = 6")
        solandangnhap = solandangnhap + 1
        Me.txtPassword.SetFocus
    End If
    If solandangnhap > 2 Then
        msgBoxUni DLookup("[LOI]", "tblMsgbox", "[ID] = 34"), vbInformation + vbOKOnly, DLookup("[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.Value) Then
        ten = Me.cbtendangnhap.Value 


  
  
  
  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

• RE: Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  vba > 21-06-14, 10:34 PM

  Bạn thử thay Code của bạn
  

  Mã PHP:

  If Me.txtPassword.Value = DLookup("matkhau", "tblUser", "[ten] = " & Me.cbtendangnhap.Value) Then 


  Thành
  

  Mã PHP:

  If Me.txtPassword.Value = DLookup("matkhau", "tblUser", "[ten] = '" & Me.cbtendangnhap.Value) & "'" Then 


• RE: Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  changkhoonline77 > 21-06-14, 11:17 PM

  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.

• RE: Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  vba > 22-06-14, 09:50 PM

  Đưa file mdb lên mình sửa giúp hộ.

• RE: Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  changkhoonline77 > 23-06-14, 08:03 AM

  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)
  
  

• RE: Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  vba > 23-06-14, 11:10 PM

  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!

• RE: Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  changkhoonline77 > 24-06-14, 08:09 AM

  Đượ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 + vbOKOnly, DLookup("[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
  
  

• RE: Mọi người giúp mình sửa form đăng nhập theo ý mình được không?

  Minh Tiên > 24-06-14, 08:35 AM

  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 !
• Bài trước Bài tiếp