Em thấy trên diễn đàn có :2. Bạn làm ra (tạo) 1form (form này bảy đầu tiên khi khởi động chương trình) có: txtTenDN, txtMatKhau, cmdDNTại nút cmdDN (ở chuẩn On Click) viết code như sau
rivate Sub cmdDN_Click()If Not IsNull(txtTenDN) = "duyet" And Not IsNull(txtMatKhau) = "111111" ThenMsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"DoCmd.CloseElseMsgBox "Bye bye ...", vbExclamation, "Bye..."DoCmd.QuitEnd IfEnd SubCâu lệnh Docmd.Close bạn hãy thay câu lệnh cho phù hợp với mình nhéThân chào !Nhưng làm theo thì bất được.Đầu tiên mình làm 2 Textbox và đặt tên Như bạn tuyenduyet vừa nêu ở trên.Tạo nút Command button là cmdDN.Rồi mình copy đoạn ngựa trên dáng vào sự kiện On click như bạn ở trên trình bày.Nhưng khi đánh vào thì TxtDN thì vẫn đánh bình thường nhưng khi qua txtMatKhau thì đánh vào bất hiện ra ký tự che dấu như ***,mà hiện số bình thường(nói chung là đánh sao là hiện dậy bất có ngựa hoá).Khi chạy thì bị lỗi, Run time error 13,với tên lỗi là Type mismatch.Khách có cách nào khắc phục vấn đề trên không?
rivate Sub cmdDN_Click()If Not IsNull(txtTenDN) = "duyet" And Not IsNull(txtMatKhau) = "111111" ThenMsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"DoCmd.CloseElseMsgBox "Bye bye ...", vbExclamation, "Bye..."DoCmd.QuitEnd IfEnd SubCâu lệnh Docmd.Close bạn hãy thay câu lệnh cho phù hợp với mình nhéThân chào !Nhưng làm theo thì bất được.Đầu tiên mình làm 2 Textbox và đặt tên Như bạn tuyenduyet vừa nêu ở trên.Tạo nút Command button là cmdDN.Rồi mình copy đoạn ngựa trên dáng vào sự kiện On click như bạn ở trên trình bày.Nhưng khi đánh vào thì TxtDN thì vẫn đánh bình thường nhưng khi qua txtMatKhau thì đánh vào bất hiện ra ký tự che dấu như ***,mà hiện số bình thường(nói chung là đánh sao là hiện dậy bất có ngựa hoá).Khi chạy thì bị lỗi, Run time error 13,với tên lỗi là Type mismatch.Khách có cách nào khắc phục vấn đề trên không?