Tùy chọn
Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
- Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
-
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
Xuân Thanh > 18-06-13, 09:33 PM
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.txt1) Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert InTo tblSanPhamTam Select * From tblSanPham Where MaSP = '" & Me.txt1 & "'"
DoCmd.SetWarnings True
End If
If Not IsNull(Me.txt2) Then
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 -
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
dinh_trong_hoa > 19-06-13, 09:21 AM
(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.txt1) Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert InTo tblSanPhamTam Select * From tblSanPham Where MaSP = '" & Me.txt1 & "'"
DoCmd.SetWarnings True
End If
If Not IsNull(Me.txt2) Then
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
-
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
Xuân Thanh > 19-06-13, 09:31 AM
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 -
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
dinh_trong_hoa > 19-06-13, 10:06 AM
(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 -
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
Xuân Thanh > 19-06-13, 10:22 AM
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 -
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
dinh_trong_hoa > 19-06-13, 10:46 AM
(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 -
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
Thanh Phương > 19-06-13, 05:24 PM
Có nút Thanks đó bạn. Làm ơn nhấn giùm cho người trả lời chút nhé -
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
dinh_trong_hoa > 19-06-13, 09:32 PM
(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:
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ìnhMã: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
Thanhk -
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
bomnhauag > 20-06-13, 09:55 AM
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
-
RE: Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
Xuân Thanh > 20-06-13, 09:56 AM
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