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

Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???
• Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

• Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

  thquanks > 25-07-13, 12:30 PM

  Mình có Form Login
  
  Đã có 1 bảng:
  
  
  
  
  mã code:
  -------------------
  
  Option Compare Database
  Private intLogonAttempts As Integer
  
  Private Sub cboEmployee_NotInList(NewData As String, Response As Integer)
  MsgBox "Ban phai nhap dung 'User name' cua ban.", vbInformation, Me.Caption
  Response = acDataErrContinue
  
  End Sub
  
  Private Sub cmdCancel_Click()
  On Error GoTo Err_cmdCancel_Click
  DoCmd.Quit
  Exit_cmdCancel_Click:
  Exit Sub
  Err_cmdCancel_Click:
  MsgBox Err.Description
  Resume Exit_cmdCancel_Click
  End Sub
  
  Private Sub cmdLogin_Exit(Cancel As Integer)
  
  End Sub
  
  Private Sub Form_Open(Cancel As Integer)
  Me.cboEmployee.SetFocus
  End Sub
  
  Private Sub cboEmployee_AfterUpdate()
  txtstrAccess = DLookup("strAccess", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value)
  Me!txtUserName = Me!cboEmployee.Column(1)
  Me.txtPassword.SetFocus
  End Sub
  
  Private Sub cmdLogin_Click()
  If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
  MsgBox "Ban phai chon 'User Name' cua ban.", vbCritical, "User name"
  Me.cboEmployee.SetFocus
  Exit Sub
  End If
  If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
  MsgBox "Ban phai nhap mat khau cua ban vao o 'Password'.", vbCritical, "Nhap mat khau"
  Me.txtPassword.SetFocus
  Exit Sub
  End If
  If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then
  lngMyEmpID = Me.cboEmployee.Value
  MsgBox "Ban da dang nhap thanh cong...", vbOKOnly, "Dang nhap..."
  DoCmd.Close
  DoCmd.OpenForm "frmadmin"
  Me.Visible = False
  Else
  MsgBox "Mat khau khong dung. Vui long nhap lai.", vbExclamation, "Sai mat khau!"
  Me.txtPassword.SetFocus
  End If
  intLogonAttempts = intLogonAttempts + 1
  If intLogonAttempts > 2 Then
  MsgBox "Mat khau khong dung, chuong trinh se thoat. Vui long lien he voi Admin.", vbCritical, "Mat khau!"
  Application.Quit
  End If
  End Sub
  
  -----
  
  Để bấm OK về frmadmin chương trình thì ko về được >> HELP

• RE: Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

  quan_pc > 25-07-13, 01:59 PM

  gởi nguyên cái bài bạn tham khảo lên đi bạn, có nhiều cách để làm login cách của bạn hơi rườm rà mà lại tốn kém. nên tạo 1 bảng user rồi dò trong cái bảng đó ra sau này còn cho ngta đổi pass hay tìm lại pass gì gì nữa chứ.

• RE: Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

  trav2t > 25-07-13, 04:50 PM

  Bạn đặt username và password trong table "tblEmployees" là được rồi.
  Nhưng mình chẳng hiểu là bạn bấm OK để về chương trình là sao hết. Nếu mình đoán không nhầm thì như thế này phải không.
  Sau khi hiện MsgBox "Ban da dang nhap thanh cong...", vbInformation, "Dang nhap..." Bấm ok thì sẽ đóng form login và mở Form Main vậy thì bạn sửa lại code như sau:
  
  MsgBox "Ban da dang nhap thanh cong...", vbOKOnly, "Dang nhap..."
  DoCmd.Close
  DoCmd.OpenForm "frmadmin"

• RE: Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

  cpucloi > 25-07-13, 11:25 PM

  Về chương trình nào vậy bạn, nói rõ ra đi chứ ?????????????????
  

• RE: Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

  thquanks > 26-07-13, 09:46 AM

  Mình hỏi về tạo 1 Form đang nhập vào CT (Đã có Table: tblEmployees )

• RE: Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???

  thquanks > 31-07-13, 10:11 AM

  THANKS CÁC BẠN NHÌU ----- MÌNH GIẢI QUYẾT ĐƯỢC RỒI
• Bài trước Bài tiếp