Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
#11
Sory bạn nhé vì vội nên không test thử. bạn sửa lại như sau
1/ Tạo một table tblSanPhamTam có cấu trúc giống hệt table tblSanPham
2/ Sửa lại câu lệnh như sau
Mã PHP:
Private Sub cmdTimKiem_Click()
    
Dim rs As Recordset
    Set rs 
CurrentDb.OpenRecordset("tblSanPhamTam"dbOpenTable
    
If rs.RecordCount 0 Then
        DoCmd
.SetWarnings False
        DoCmd
.RunSQL "Delete * From tblSanPhamTam"
        
DoCmd.SetWarnings True
    End 
If
    If 
Not IsNull(Me.txt1Then
        DoCmd
.SetWarnings False
        DoCmd
.RunSQL "Insert InTo tblSanPhamTam Select * From tblSanPham Where MaSP = '" Me.txt1 "'"
        
DoCmd.SetWarnings True
    End 
If
    If 
Not IsNull(Me.txt2Then
        DoCmd
.SetWarnings False
        DoCmd
.RunSQL "Insert InTo tblSanPhamTam Select * From tblSanPham Where MaSP = '" Me.txt2 "'"
        
DoCmd.SetWarnings True
    End 
If
    ...........
    
Me.lstSanPham.RowSource "tblSanPhamTam"
End Sub 

Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
(18-06-13, 09:33 PM)Xuân Thanh Đã viết: Sory bạn nhé vì vội nên không test thử. bạn sửa lại như sau
1/ Tạo một table tblSanPhamTam có cấu trúc giống hệt table tblSanPham
2/ Sửa lại câu lệnh như sau
Mã PHP:
Private Sub cmdTimKiem_Click()
    
Dim rs As Recordset
    Set rs 
CurrentDb.OpenRecordset("tblSanPhamTam"dbOpenTable
    
If rs.RecordCount 0 Then
        DoCmd
.SetWarnings False
        DoCmd
.RunSQL "Delete * From tblSanPhamTam"
        
DoCmd.SetWarnings True
    End 
If
    If 
Not IsNull(Me.txt1Then
        DoCmd
.SetWarnings False
        DoCmd
.RunSQL "Insert InTo tblSanPhamTam Select * From tblSanPham Where MaSP = '" Me.txt1 "'"
        
DoCmd.SetWarnings True
    End 
If
    If 
Not IsNull(Me.txt2Then
        DoCmd
.SetWarnings False
        DoCmd
.RunSQL "Insert InTo tblSanPhamTam Select * From tblSanPham Where MaSP = '" Me.txt2 "'"
        
DoCmd.SetWarnings True
    End 
If
    ...........
    
Me.lstSanPham.RowSource "tblSanPhamTam"
End Sub 

Thân mến

Bạn ơi !
Mình đã thử rồi không chạy được 021
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#13
Không chạy được là sao? Tôi test thử rồi mà. Chạy tốt. Bạn gửi file lên xem sao nào. Mà bạn có làm đúng theo yêu cầu không đấy?
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#14
(19-06-13, 09:31 AM)Xuân Thanh Đã viết: Không chạy được là sao? Tôi test thử rồi mà. Chạy tốt. Bạn gửi file lên xem sao nào. Mà bạn có làm đúng theo yêu cầu không đấy?
Thân mến

Dear Xuân Thanh !
Mình không biết post file lên diễn đàn, bạn gởi giùm mình file mà bạn đã chạy thử để mình nghiên cứu nha.
Thank
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#15
1/ Bạn xem fie Demo. Demo này làm theo y/c của bạn, mỗi MaVT ghi tren một textbox
2/ Bạn tham khảo cái này http://thuthuataccess.com/forum/post-185...l#pid18579 rồi dùng cách ghi chung các MaVT vào một textbox cách nhau dấu phẩy rồi tìm kiếm
Thân mến


File đính kèm
.zip   DeMo.zip (Kích cỡ: 12.9 KB / Tải về: 85)
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hugox03
#16
(19-06-13, 10:22 AM)Xuân Thanh Đã viết: 1/ Bạn xem fie Demo. Demo này làm theo y/c của bạn, mỗi MaVT ghi tren một textbox
2/ Bạn tham khảo cái này http://thuthuataccess.com/forum/post-185...l#pid18579 rồi dùng cách ghi chung các MaVT vào một textbox cách nhau dấu phẩy rồi tìm kiếm
Thân mến

Dear Xuân Thanh !

Good ! good. Cám ơn bạn file demo dúng ý mình rồi. Thật tuyệt
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn hugox03
#17
Có nút Thanks đó bạn. Làm ơn nhấn giùm cho người trả lời chút nhé
Chữ ký của Thanh Phương Em như cô gái còn son
Chờ người quân tử mỏi mòn tháng năm
Đêm đêm hết đứng lại nằm
Người đi đâu để âm thầm nhớ thương


Reply
Những người đã cảm ơn Lý Hoàng Phong
#18
(19-06-13, 05:24 PM)Thanh Phương Đã viết: Có nút Thanks đó bạn. Làm ơn nhấn giùm cho người trả lời chút nhé

Dear Xuân Thanh !
Hiện mình đang tạo một form lọc dữ liệu theo phương pháp sau:
Mã:
Private Sub Command68_Click()
Dim s1, s2, s3, s4, s5, s6, s7,s8 As String
s1 = "SELECT [formula].[id_for], [formula].[cd_bra], [formula].[cd_on_for], [formula].[mas_cd],[formula].[name_product], [formula].[name_shade], [formula].[date_exp],[formula].[loai_bo] FROM [formula]WHERE (1=1"
s2 = " AND (([formula].[cd_bra]) like '" & "*" & [txt1] & "*" & "')"
s3 = " AND (([formula].[cd_on_for])like '" & "*" & [txt2] & "*" & "')"
s4 = " AND (([formula].[mas_cd]) like '" & "*" & [txt3] & "*" & "')"
s5 = " AND (([formula].[name_product]])like '" & "*" & [txt4] & "*" & "')"
s6 = " AND (([formula].[name_shade])like '" & "*" & [txt5] & "*" & "')"
s7 = " AND (([formula].[date_exp])like '" & "*" & [txt6] & "*" & "')"
s8 = " AND (([formula].[loai_bo])like '" & "*" & [txt7] & "*" & "')"
If IsNull(Trim(txt1)) = False Then
s1 = s1 + s2
End If
If IsNull(Trim(txt2)) = False Then
s1 = s1 + s3
End If
If IsNull(Trim(txt3)) = False Then
s1 = s1 + s4
End If
If IsNull(Trim(txt4)) = False Then
s1 = s1 + s5
End If
If IsNull(Trim(txt5)) = False Then
s1 = s1 + s6
End If
" bí..."
Me.List1.RowSource = s1 & ") ORDER BY [formula].[id_for]; "
Me.List1.Requery
End Sub
Trong đó "text6" thuộc dạng ngày tháng, còn "text7" thuộc dạng yes/no mình không làm được khúc này bạn chỉ giùm mình
Thanhk
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#19
vậy bạn thử làm theo cách "xẻ bí" này nhé" ^^

s7 = " AND (([formula].[date_exp]) = #" & [txt6] & "#)"
s8 = " AND (([formula].[loai_bo]) = " & [txt7].Value & ")"

đơn giản là cứ "xẻ" từ từ vậy thôi bạn big green014
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Xuân Thanh , dinh_trong_hoa , hugox03
#20
1/ Cái 1 = 1 trong đ/ k Where là cái gì thế?
2/ Thử cái này xem
s7 = " AND (([formula].[date_exp]) = #" & [txt6] & "#)"
s8 = " AND (([formula].[loai_bo]) = " & [txt7].Value & ")"
Thân mến



P/S : Èo! Post chậm hơn BOM rùi
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn bomnhauag , dinh_trong_hoa


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 9 302 Hôm qua, 03:44 PM
Bài mới nhất: toancvp
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  Lọc có điều kiện ở listbox phiacuoiconduong 2 97 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  Lọc theo điều kiện trong listbox Ranju 3 183 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Thay đổi màu nền các dòng theo điều kiện trên form Continuous tranthanhan1962 9 1,701 27-09-16, 11:01 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ