Tùy chọn
sửa lỗi code tìm kiếm trong form
- sửa lỗi code tìm kiếm trong form
-
sửa lỗi code tìm kiếm trong form
cuongvan09 > 26-06-12, 05:00 PM
mấy bác ơi xin coi giùm và hướng dẫn e sửa lại cái code tìm kiếm trong cái F_thongtinkhachhang của e với, sao e nhấp e nhập tên vào textbox txtKH rồi sau đó e nhấn vào nút tìm kiếm mà sao nó báo lỗi ah, mong mấy bác coi hộ e nó bị lỗi gì rồi hướng dẫn và trợ giúp e sửa lỗi với, đây là link download bài của e ah, mấy bác download về coi và hướng dẫn e sửa lỗi với ah, e cảm ơn mấy bác nhiều ah
http://maxup.vn/tai-ve/2pegwltjj8j3uyf/doan_2.mdb.html
-
RE: sửa lỗi code tìm kiếm trong form
khanhduycsgt > 26-06-12, 05:20 PM
Private Sub Command163_Click()
If IsNull(txtKH) = True Then
Me.List3.RowSource = "select * from Q_Khach where([khachhang]![makhach] like '*" & [txtma] & "*')"
Else
If IsNull(txtma) = True And IsNull(txtten) = False Then
Me.List3.RowSource = "select * from khachhang where([khachhang]![tenkhach] like '*" & [txtten] & "*')"
Else
If IsNull(txtma) = False And IsNull(txtten) = False Then
Me.List3.RowSource = "select * from khachhang where([khachhang]![makhach] like '*" & [txtma] & "*' or [khachhang]![tenkhach] like '*" & [txtten] & "*')"
Else
If IsNull(txtma) = True And IsNull(txtten) = True Then
MsgBox "Ban chua nhap dieu kien tim kiem", 0 + 60, "Thong bao"
End If
End If
End If
End If
End Sub
Chú ý mấy phần mình in đậm, txtma và txtten không hề có trong form -
RE: sửa lỗi code tìm kiếm trong form
cuongvan09 > 26-06-12, 05:24 PM
(26-06-12, 05:20 PM)khanhduycsgt Đã viết: Private Sub Command163_Click()
If IsNull(txtKH) = True Then
Me.List3.RowSource = "select * from Q_Khach where([khachhang]![makhach] like '*" & [txtma] & "*')"
Else
If IsNull(txtma) = True And IsNull(txtten) = False Then
Me.List3.RowSource = "select * from khachhang where([khachhang]![tenkhach] like '*" & [txtten] & "*')"
Else
If IsNull(txtma) = False And IsNull(txtten) = False Then
Me.List3.RowSource = "select * from khachhang where([khachhang]![makhach] like '*" & [txtma] & "*' or [khachhang]![tenkhach] like '*" & [txtten] & "*')"
Else
If IsNull(txtma) = True And IsNull(txtten) = True Then
MsgBox "Ban chua nhap dieu kien tim kiem", 0 + 60, "Thong bao"
End If
End If
End If
End If
End Sub
Chú ý mấy phần mình in đậm, txtma và txtten không hề có trong form
bác coi sửa lại cái code đó hộ e với, giờ e ko biết sửa sao nữa bác ơi, mong bác giúp cho e với
-
RE: sửa lỗi code tìm kiếm trong form
khanhduycsgt > 26-06-12, 06:12 PM
Trước tiên mình xin nói vài vấn đề khi mình sửa file Đồ án của bạn như sau:
- Tên trường họ và tên khách hàng bạn đặt tên có dấu, đó là điều kỵ trong đặt tên trường vì code VBA không hỗ trợ tiếng Việt, khi viết code có liên quan đến tên trường như rowsource thì tiếng Việt sẽ hiển thị lỗi. Như thế bạn nên rút kinh nghiệm đặt tên field phải là không có dấu tiếng Việt, kể cả khoảng cách.
- Mình không sửa tên field họ và tên của bạn, nhưng mình sửa tên field thành Hovaten trong Query Q_Khach và một vài chỗ trong form main và sub của bạn.
Bạn đọc và chú ý vấn đề này nhé! Thân!
Mình đã sửa cho bạn như sau:
http://maxup.vn/tai-ve/ywo6hglpb4mymki/do_an.mdb.html -
RE: sửa lỗi code tìm kiếm trong form
cuongvan09 > 26-06-12, 08:39 PM
(26-06-12, 06:12 PM)khanhduycsgt Đã viết: Trước tiên mình xin nói vài vấn đề khi mình sửa file Đồ án của bạn như sau:
- Tên trường họ và tên khách hàng bạn đặt tên có dấu, đó là điều kỵ trong đặt tên trường vì code VBA không hỗ trợ tiếng Việt, khi viết code có liên quan đến tên trường như rowsource thì tiếng Việt sẽ hiển thị lỗi. Như thế bạn nên rút kinh nghiệm đặt tên field phải là không có dấu tiếng Việt, kể cả khoảng cách.
- Mình không sửa tên field họ và tên của bạn, nhưng mình sửa tên field thành Hovaten trong Query Q_Khach và một vài chỗ trong form main và sub của bạn.
Bạn đọc và chú ý vấn đề này nhé! Thân!
Mình đã sửa cho bạn như sau:
http://maxup.vn/tai-ve/ywo6hglpb4mymki/do_an.mdb.html
dạ e cám ơn bác nhiều lắm ah,