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:
- Hỏi về Lọc dữ liệu
- Khi thay đổi Back End thì LINK Table làm sao nó cập nhật đúng
- File minh họa việc kết nối đến dữ liệu SQL Server từ MS. Access
- Xin code VBA
- Requery đối tượng trong Subform
- Treeview trong access
- Tree View Control trong Access
- Lấy giá trị từ combo box
- Anh em cho em xin cơ sở dữ liệu của một chương trình kế toán kho với!
- nhờ các bạn giúp đỡ.
-
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
QUAN HỆ NHANH RA Ở NAM GIỚI LÀ GÌ? Quan hệ nhanh ra hay còn gọi là xuất tinh sớm, là hiện tượng xuất tinh trong khoảng thời gian quá ngắn bình thường là dưới 3 phút, nam giới không thể làm chủ, điều...
"Quan hệ nhanh ra" phái mạnh có nên kiêng rượu bia không?