dinh_trong_hoa > 18-06-13, 02:18 PM
Minh Tiên > 18-06-13, 02:58 PM
dinh_trong_hoa > 18-06-13, 04:46 PM
(18-06-13, 02:58 PM)tmtien261 Đã viết: Chủ đề này A Xuân Thanh có bài rồi ! Bạn thảm khảo nhé tại link này nhé :
http://thuthuataccess.com/forum/thread-6453.html
Chúc thành công.
Xuân Thanh > 18-06-13, 05:00 PM
dinh_trong_hoa > 18-06-13, 05:09 PM
(18-06-13, 05:00 PM)Xuân Thanh Đã viết: Câu hỏi của bạn không rõ ràng, điều kiện tìm của bạn không khả thi. Ví dụ sp 123 không có màu xanh và ngày hết hạn không trùng với đk đưa ra thì làm sao hiển thị kết quả?
Xuân Thanh > 18-06-13, 05:11 PM
dinh_trong_hoa > 18-06-13, 05:22 PM
(18-06-13, 05:11 PM)Xuân Thanh Đã viết: Mỗ Mã SP bạn để trong 1 texbox hay tất cả các mã để trong một textbox?
Xuân Thanh > 18-06-13, 05:37 PM
Private Sub TimKiem_Click()
Dim DK As String
Dim CauSQL As String
DK = Space(0)
If Not IsNull(Me.txt1) Then
DK = DK & Me.txt1
ElseIf Not IsNull(Me.txt2) Then
DK = DK & " Or " & Me.txt2
ElseIf.....
......
End If
CauSQL = "Select * From tblSanPham Where MaSP = '" & DK & "'"
Me.lstSanPham.RowSource = CauSQL
Me.Requery
End Sub
dinh_trong_hoa > 18-06-13, 05:39 PM
(18-06-13, 05:37 PM)Xuân Thanh Đã viết:Mã PHP:Private Sub TimKiem_Click()
Dim DK As String
Dim CauSQL As String
DK = Space(0)
If Not IsNull(Me.txt1) Then
DK = DK & Me.txt1
ElseIf Not IsNull(Me.txt2) Then
DK = DK & " Or " & Me.txt2
ElseIf.....
......
End If
CauSQL = "Select * From tblSanPham Where MaSP = '" & DK & "'"
Me.lstSanPham.RowSource = CauSQL
Me.Requery
End Sub
Bạn test lại, tôi chưa thử
Thân mến
dinh_trong_hoa > 18-06-13, 06:30 PM
(18-06-13, 05:37 PM)Xuân Thanh Đã viết:Mã PHP:Private Sub TimKiem_Click()
Dim DK As String
Dim CauSQL As String
DK = Space(0)
If Not IsNull(Me.txt1) Then
DK = DK & Me.txt1
ElseIf Not IsNull(Me.txt2) Then
DK = DK & " Or " & Me.txt2
ElseIf.....
......
End If
CauSQL = "Select * From tblSanPham Where MaSP = '" & DK & "'"
Me.lstSanPham.RowSource = CauSQL
Me.Requery
End Sub
Bạn test lại, tôi chưa thử
Thân mến