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:
- 1 bài tập cơ bản của Access mà mình ko hiểu...
- Help viết code dùm mình cái form nay voi
- phần mềm kế toán ms access+sql server
- Nhờ các cao nhân giúp đỡ cách chạy phần mềm kế toán Access.
- Đặt password cho Front End bằng VB
- Giúp câu lệnh "Between...and..."
- So sánh Access 2003 với Access 2007,Access 2010
- cần giúp đỡ về bài này
- Menu trong Access 2007
- gán giá trị vào textbox như thế nào
-
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
Khi quan tâm đến thẩm mỹ vùng kín. Nhiều chị em hay tìm hiểu: Bác sĩ thẩm mỹ vùng kín giỏi và thẩm mỹ vùng kín ở đâu an toàn Đà Nẵng. Bài viết này sẽ giới thiệu đến các bạn một trong số những bác sĩ...
Các bác sĩ thẩm mỹ vùng kín giỏi và địa chỉ an toàn tại Đà Nẵng