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:
- Giúp đỡ về truy vấn
- NotInlist Event (Nhiều người gặp phải)
- Có sự khác nhau không giữa Font Tahoma trên XP và trên Win 7 ?
- Cách tính tỷ lệ giảm trừ % trong 1 danh sách có nhiều người
- Access xem giúp mình bài tính đơn giá này,tạo bảng table lấy dữ liệu từ table khác
- TIP : Ẩn Table trong ACCESS .
- Mỗi ngày thêm 1 code hay
- Đăng nhập sai 5 lần chờ 15 phút
- Quản lý mua bán hàng - Phần 3: Relationships
- Chỉ giùm việc chuyển dữ liệu sang hàng ngang
-
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
Sản phẩm đan lọc được sinh sản và thiết kế dùng cho cả các công trình bể lọc xây dựng mới lẫn các bể lọc hiện hữu. Đan lọc lovense domi giúp tăng khả năng phân phối gió và nước trong quá trình rửa...
Những đặc điểm vượt trội của đan lọc 2 tầng De Nora (8)