Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] sửa lỗi code tìm kiếm trong form
#1
Lightbulb 
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
Cry_smileCry_smileCry_smileCry_smile
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của khanhduycsgt Chào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Reply
Những người đã cảm ơn quyvt1993
#3
(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
Cry_smileCry_smileCry_smileCry_smileCry_smile
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
Reply
Những người đã cảm ơn
#4
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
Chữ ký của khanhduycsgt Chào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Reply
Những người đã cảm ơn cuongvan09
#5
(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,60_6060_6060_6060_6060_6060_60
Chữ ký của cuongvan09 Xin chào, mình là cuongvan09, Tham gia http://thuthuataccess.com/forum từ ngày 17-03 -12.
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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 37 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 187 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 162 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 124 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 121 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh

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ơ