Tùy chọn
Lỗi run time error 424
- Lỗi run time error 424
-
Lỗi run time error 424
phamhung > 11-01-17, 09:49 AM
Mọi người xem giúp mình xem sao dòng màu đỏ báo lỗi với!
Thanks all!
Option Compare Database
Private Sub cmdtao_Click()
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("tadmin")
rs.MoveFirst
Do While (rs.EOF = False)
If (rs.Fields("user") = Txtuser.Value) Then
MsgBox "Ten dang ky da co"
Exit Sub
End If
rs.MoveNext
Loop
rs.AddNew
If (txtpass.Value = txtpass2.Value) Then
rs.Fields("user") = Txtuser.Value
rs.Fields("pass") = txtpass.Value
rs.Close
DB.Close
MsgBox "Da dang ky thanh cong!"
Else
MsgBox "xac nhan pass khong trung!"
End If
End Sub -
RE: Lỗi run time error 424
ongke0711 > 11-01-17, 10:34 AM
- Bạn xem tên field "user" có đúng chính tả trong table "tadmin không?
- TxtUser.Value: có nẳm trên subform không? có đúng như bạn đặt trong thuộc tính Name của textbox đó không? Thêm từ khoá Me ->Me.txtUser -
RE: Lỗi run time error 424
phamhung > 11-01-17, 12:10 PM
(11-01-17, 10:34 AM)ongke0711 Đã viết: - Bạn xem tên field "user" có đúng chính tả trong table "tadmin không?
- TxtUser.Value: có nẳm trên subform không? có đúng như bạn đặt trong thuộc tính Name của textbox đó không? Thêm từ khoá Me ->Me.txtUser
Cảm ơn bạn nhé, mình tìm ra lỗi rồi
quên chưa đặt tên cho cái texboxt của usre