Chủ đề: Tìm kiếm từ nhiều subform
-
03-02-2009, 06:29 AM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Tìm kiếm từ nhiều subform
Mình có đoạn code sau không biết có đúng không?
Private Sub cmdOK_Click()
Dim st1 As String, st2 As String, st3 As String
If (Frametimkiemchung = 1) Then
'Bao duong
st2 = "SELECT tblbaoduong.truc, tblbaoduong.tgbaoduong, tblbaoduong.tinhtrangbd, tblbaoduong.solanbd, tblbaoduong.tglammo, tblbaoduong.tgtieutu, tblbaoduong.tgtrungtu, tblbaoduong.tgconlai FROM tblbaoduong"
If IIf(IsNull(txttruc), "", txttruc) = "" Then
MsgBox "Chýa nhâòp dýÞ liêòu phâÌn truòc sôì?", vbInformation, "Thông baìo lôÞi"
Exit Sub
End If
st3 = " WHERE tblbaoduong.truc LIKE '*" & txttruc & "*'"
st3 = st3 & st2
With su_baoduong
' N?u trên subCT chýa có g? (chýa hi?n form, c?n tr?ng)
''''''''''''
If .SourceObject = "" Then
.SourceObject = "Form1_timkiemchung"
End If
.Form.RecordSource = st2
' Ðo?n này là n?u mu?n cho hi?n thông báo khi không có record th?a
If .Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Không coì dýÞ liêòu naÌo trong hêò thôìng."
End If
End With
'hoat dong
'Hoat dong
Else
st1 = "SELECT tbltructoaxe.truc, tbltoaxe.toaxe, tbltructoaxe.vitri, tblhoatdong.tghoatdong, tblhoatdong.tglammo, tblhoatdong.tgtieutu, tblhoatdong.tgtrungtu, tblhoatdong.tghethan, tblhoatdong.ghichu FROM (tbltoaxe INNER JOIN tblhoatdong ON tbltoaxe.toaxe = tblhoatdong.toaxe) INNER JOIN tbltructoaxe ON tbltoaxe.toaxe = tbltructoaxe.toaxe"
If IIf(IsNull(txttoaxe), "", txttoaxe) = "" Then
MsgBox "Chýa coì dýÞ liêòu toa xe?", vbOKOnly
Exit Sub
End If
st3 = " WHERE tbltructoaxe.toaxe LIKE '*" & txttoaxe & "*'"
st3 = st3 & st1
' Gán source l?i cho form k?t qu? t?m ki?m
' Bao duong
With sub_timkiemhoatdong
' N?u trên subCT chýa có g? (chýa hi?n form, c?n tr?ng)
If .SourceObject = "" Then
.SourceObject = "Form1_timkiemchung"
End If
.Form.RecordSource = st1
' Ðo?n này là n?u mu?n cho hi?n thông báo khi không có record th?a
If (.Form.RecordsetClone.RecordCount = 0) Then
MsgBox "DýÞ liêòu không coì hoãòc baòn nhâòp sai?.", vbInformation, "Thông baìo"
End If
End With
End If
End Sub
Đoạn trên là 1 form tìm kiếm trên 2 subform với 2 textbox là : txttruc và txttoa xe,mình không bít sai chỗ nào mà không lọc đc dữ liệu cần?View more random threads:
- cần giúp đỡ về bài này
- Mình muốn tạo Form tìm kiếm dạng lọc theo ngày tháng mong mọi người giúp
- Căn bản về kết nối với dữ liệu SQL Server từ MS. Access
- Tìm kiếm với hai điều kiệm trong 1textbox
- Chỉ giùm việc tự động điều chỉnh textbox trong report
- Các viết lệnh trong AC
- xin giúp đỡ về Recordsource và controlsource bằng VBA
- Khái niệm đầu tiên về lập trình trên Access
- tìm kiếm qua các điều kiện chọn textbox
- xin giúp đỡ về VBA
-
03-06-2009, 03:49 PM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tìm kiếm từ nhiều subform
Bạn đưa code, bạn không cho thấy mặt mũi của form và mô tả sơ lược các đối tượng, thì làm sao mà biết nó sai hay đúng?
Mặt khác, theo cái code bạn đưa thì cái If đầu tiên "If (Frametimkiemchung = 1) Then" cái End If của nó đâu?
Bạn xài font gì mà mấy cái comment của bạn, tôi đọc không được?
-
03-08-2009, 06:11 AM #3
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tìm kiếm từ nhiều subform
Gửi bởi phatnq2002
Đoạn trên là 1 form tìm kiếm :trên form đó có 2 subform(sub_timkiemhoatdong và sub_timkiembaoduong) với 2 textbox là : txttruc và txttoa xe,mình không bít sai chỗ nào mà không lọc đc dữ liệu cần?
Còn font mình dùng inicode tổ hợp ,mình ngại chỉnh lại mình copy/paste từ ct ra
Du lịch Indonesia - Nếu bạn đang tìm kiếm những cảm giác mới lạ thú vị thì "xứ vạn đảo" Indonesia sẽ là một sự lựa chọn không thể bỏ qua. Indonesia với hàng ngàn đảo lớn nhỏ, cùng những cảnh quan...
Tour du lịch Indonesia được Dulichviet tổ chức đặc sắc như thế nào?