Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Cho em hoi Form Login
#1
E có làm form Login gồm 1 combo box chứa các ID, 1 text box để nhập password
1 button Login
Code Button Login thì nó chạy debug ra lỗi chỗ này sad


If Me.Text7.Value = DLookup("Password", "tblLogin", "[StudentID]=" & Me.Combo11.Value) Then
StudentID = Me.Combo11.Value

Đây là đoạn code đầy đủ của em :

Private Sub Command10_Click()
If IsNull(Me.Combo11) Or Me.Combo11 = "" Then
MsgBox "Nhap vao UserName.", vbOKOnly, "Required Data"
Me.Combo11.SetFocus
Exit Sub
End If

If IsNull(Me.Text7) Or Me.Text7 = "" Then
MsgBox "Nhap vao Password.", vbOKOnly, "Required Data"
Me.Text7.SetFocus
Exit Sub
End If


If Me.Text7.Value = DLookup("Password", "tblLogin", "[StudentID]=" & Me.Combo11.Value) Then
StudentID = Me.Combo11.Value

DoCmd.Close acForm, "Form2", acSaveNo
DoCmd.OpenForm "Form1"

Else

MsgBox "Password ko dung, thu lai", vbOKOnly, "Invalid entry!"
Me.Text7.SetFocus
End If


End Sub

Table cua e tên là tblLogin, co 2 fields là StudentID, Password.

Mong các anh chị chỉ giúp
Chữ ký của joannanguyen2508 Xin chào, mình là joannanguyen2508, Tham gia http://thuthuataccess.com/forum từ ngày 01-08 -11.
Reply
Những người đã cảm ơn
#2
bạn tham khảo bài này nhé. http://thuthuataccess.com/forum/Thread-g...form-login. chúc bạn vui vẻ
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng
#3
Minh cung lam nhu vay ban oi .... no bao loi
Runtime error '2471':
The expression you entered as a query parameter produced this error:'nam'
Mình không hiểu, làm đi làm lại nhiều lần lắm rồi... ai biết hay đã từng bị rồi giúp với crying
Chữ ký của joannanguyen2508 Xin chào, mình là joannanguyen2508, Tham gia http://thuthuataccess.com/forum từ ngày 01-08 -11.
Reply
Những người đã cảm ơn
#4
bạn nên tạo đơn giản thôi .
cấu trúc như thế này
2 textbox (1text là ID , 1text là Pass), 2 command (1cmd là dangnhap , 1cmd là đóng)
dùng cấu trúc If thôi
gáng T1 = Teo
T2 = Kuteo
nhập sai Id + pass báo lỗi và suất msgbox " ID: Teo ; Pass: Kuteo"

nhập đúng thì suất msgbox " dang nhap thanh cong"
docmd.close
docmd.openform Formchinh
end if

đơn giản vậy thôi .


ღღღღღTài sản của mrchau911 (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
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 626 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
  [Hỏi] Cách đưa chức năng compact & repair vào form toancvp 6 495 24-08-16, 12:19 AM
Bài mới nhất: paulsteigel
  Vô hiệu hóa nút Close của Form (cửa sổ) ChiMai 3 251 07-08-16, 04:34 PM
Bài mới nhất: maidinhdan

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ơ