Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lỗi mã code trong form login
#1
Mình đã tạo xong form login chạy ổn rồi, khi chưa nhập code cho form login thì chuyển qua MDE bình thường, tuy nhiên sau khi nhập code cho form login thì không thể chuyển qua file MDE được. Đoạn code của mình đây:
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 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(2)
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...", vbInformation, "Dang nhap..."
DoCmd.OpenForm "frmMain"
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
Không biết có lỗi gì trong đó các ban nghiên cứu dùm nhé. Thanks
Chữ ký của quanghoa Xin chào, mình là quanghoa, Tham gia http://thuthuataccess.com/forum từ ngày 25-10 -14.
Đừng để ý chí mình gầm lên
Khi năng lực của mình chỉ đủ sức thì thầm!
Reply
Những người đã cảm ơn
#2
Mình chưa có thời gian nghiên cứu nội dung của đoạn code trên có chạy tốt không nhưng đã thử tạo 1 Form, 1 table giống như của bạn và make MDE bình thường. Bạn xem sau khi viết code có combile chưa nếu chưa combile acess cũng không cho tạo MDE.
Thông thường tôi hay sử dụng cả hai đoạn mã thiết đặt ở đầu module
Compare Database :Chỉ thị cho Visual Basic biết cách xử lý các phép toán so sánh các phần của văn bản.
Option Explicit: Chỉ thị này cho Visual Basic kiểm tra lỗi nghiêm ngặt khi sử dụng các biến.
Nhờ Option Explicit mà Access sẽ phát hiện ngay các biến lỗi khi đang viết code để ta điều chỉnh.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Bạn có biết lỗi ở đoạn nào không. Hoặc bạn up file lên nhé.
Theo tôi phán đoán: khả năng lỗi của bạn ở chỗ kiểu dữ liệu của ID và Pass.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Mình đã boost mẫu Form Login lên rồi các bạn xem thử
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
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
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 231 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 627 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  [Hỏi] Cách loại bỏ icon Filter trên Datasheet Form có nguồn là Query. toancvp 2 103 19-10-16, 08:53 PM
Bài mới nhất: toancvp
  [Help] Nhờ tạo form lưu hóa đơn nhập, hóa đơn xuất, hàng nhập hàng xuất không cần tính tồn laxx_xxal 1 133 22-09-16, 02:35 PM
Bài mới nhất: Nguyen Hoang Diep
  [Lỗi] Không chạy được VBA Code hungthanmx 3 219 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep

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ơ