Tìm kiếm từ nhiều subform

[vuthuanbkvn]

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?

 

[phatnq2002]

Ðề: 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?

 

[vuthuanbkvn]

Ðề: 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?

Mình cũng giải thích ở trên đó thôi?
Đ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