Tùy chọn
Giúp thực hiện FORM tìm kiếm này nhé!
- Giúp thực hiện FORM tìm kiếm này nhé!
-
Giúp thực hiện FORM tìm kiếm này nhé!
stone18k > 21-06-13, 05:31 PM
![[Hình: 7bu5fzv4sbi3lbf4g.jpg]](http://www.mediafire.com/convkey/8dfa/7bu5fzv4sbi3lbf4g.jpg)
Như trong hình đó mọi người, điều kiện tìm kiếm dựa vào 2 option group "Tên hàng hóa" và "trị giá". Nhưng chỉ dùng Macro hoặc đặt điều kiện trong query của list box thôi nha mọi người. Tôi chỉ đặt điều kiện trong query của list box để tìm được hóa đơn "Xăng 92" và "25 triệu" thôi, còn lớn hơn hay trong khoản nào đó thì mò hoài chưa ra được. Mong mọi người giúp dùm nhé
CSDL: http://www.mediafire.com/?0xo7z8bld735i5f -
RE: Giúp mình thực hiện FORM tìm kiếm này nhé mọi người
paulsteigel > 21-06-13, 08:24 PM
(21-06-13, 05:31 PM)stone18k Đã viết: Như trong hình đó mọi người, điều kiện tìm kiếm dựa vào 2 option group "Tên hàng hóa" và "trị giá". Nhưng chỉ dùng Macro hoặc đặt điều kiện trong query của list box thôi nha mọi người. Tôi chỉ đặt điều kiện trong query của list box để tìm được hóa đơn "Xăng 92" và "25 triệu" thôi, còn lớn hơn hay trong khoản nào đó thì mò hoài chưa ra được. Mong mọi người giúp dùm nhé
CSDL: http://www.mediafire.com/?0xo7z8bld735i5f
Bạn xem file ví dụ nhé... Mở formMain sẽ thấy... kết quả ví dụ
Trong lstValue mình để cấu trúc câu querry luôn trong đối tượng lựa chọn
Bạn xem thử file ví dụ ở đây!Mã PHP:"<=10000000";"Nhỏ hơn 10 triệu";"BETWEEN 10000000 AND 25000000";"Giữa 10 triệu đến 25 triệu";">=25000000";"Hơn 25 triệu"
Liên kết đây -
RE: Giúp thực hiện FORM tìm kiếm này nhé!
stone18k > 22-06-13, 09:37 AM
(21-06-13, 05:31 PM)stone18k Đã viết: Như trong hình đó mọi người, điều kiện tìm kiếm dựa vào 2 option group "Tên hàng hóa" và "trị giá". Nhưng chỉ dùng Macro hoặc đặt điều kiện trong query của list box thôi nha mọi người. Tôi chỉ đặt điều kiện trong query của list box để tìm được hóa đơn "Xăng 92" và "25 triệu" thôi, còn lớn hơn hay trong khoản nào đó thì mò hoài chưa ra được. Mong mọi người giúp dùm nhé
CSDL: http://www.mediafire.com/?0xo7z8bld735i5f
Rất cám ơn bạn, nhưng mình muốn sử dụng option Group để chọn thông tin cần tìm kiếm, và mình chỉ muốn dùng cách lọc trong query của listbox hoặc dùng marco thôi bạn ah,,,
-
RE: Giúp thực hiện FORM tìm kiếm này nhé!
Xuân Thanh > 22-06-13, 10:22 AM
1/ Thêm một textbox txtTenVT trên form. Visible = No
2/ Đặt tên frame bên trái là fraVatTu, bên phải là fraTien
3/ Đặt tên cho các label của fraVatTu lần lượt từ trên xuống là lblDauDO, lblNhot2, lblNhot4, lblXang92, lblXang95
4/ Đặt tên cho listbox là lstHoaDon
5/ Điều kiện trich lọc lấy từ nguồn là tblHoaDon
Toàn bộ câu lệnh như sau
Mã PHP:Option Compare Database
Option Explicit
Private Sub cmdTim_Click()
Dim CauSQL As String
Select Case Me.fraTien
Case 1
CauSQL = "Select * From tblHoaDon Where TenVT = '" & Me.txtTenVT & "'" & " And ThanhTien < 10000000"
Case 2
CauSQL = "Select * From tblHoaDon Where TenVT = '" & Me.txtTenVT & "'" & " And ThanhTien Between 10000000 And 25000000"
Case 3
CauSQL = "Select * From tblHoaDon Where TenVT = '" & Me.txtTenVT & "'" & " And ThanhTien > 25000000"
End Select
Me.lstHoaDon.RowSource = CauSQL
End Sub
Private Sub Form_Activate()
If Me.fraVatTu.Value = 1 Then Me.txtTenVT = Me.lblDauDO.Caption
If Me.fraVatTu.Value = 2 Then Me.txtTenVT = Me.lblNhot2.Caption
If Me.fraVatTu.Value = 3 Then Me.txtTenVT = Me.lblNhot4.Caption
If Me.fraVatTu.Value = 4 Then Me.txtTenVT = Me.lblXang92.Caption
If Me.fraVatTu.Value = 5 Then Me.txtTenVT = Me.lblXang95.Caption
End Sub
Private Sub fraVatTu_Click()
If Me.fraVatTu.Value = 1 Then Me.txtTenVT = Me.lblDauDO.Caption
If Me.fraVatTu.Value = 2 Then Me.txtTenVT = Me.lblNhot2.Caption
If Me.fraVatTu.Value = 3 Then Me.txtTenVT = Me.lblNhot4.Caption
If Me.fraVatTu.Value = 4 Then Me.txtTenVT = Me.lblXang92.Caption
If Me.fraVatTu.Value = 5 Then Me.txtTenVT = Me.lblXang95.Caption
End Sub
Bạn test lại nhé
Thân mến -
RE: Giúp thực hiện FORM tìm kiếm này nhé!
Minh Tiên > 22-06-13, 10:52 AM
-
RE: Giúp thực hiện FORM tìm kiếm này nhé!
stone18k > 22-06-13, 11:05 AM
(22-06-13, 10:22 AM)Xuân Thanh Đã viết: 1/ Thêm một textbox txtTenVT trên form. Visible = No
2/ Đặt tên frame bên trái là fraVatTu, bên phải là fraTien
3/ Đặt tên cho các label của fraVatTu lần lượt từ trên xuống là lblDauDO, lblNhot2, lblNhot4, lblXang92, lblXang95
4/ Đặt tên cho listbox là lstHoaDon
5/ Điều kiện trich lọc lấy từ nguồn là tblHoaDon
Toàn bộ câu lệnh như sau
Mã PHP:Option Compare Database
Option Explicit
Private Sub cmdTim_Click()
Dim CauSQL As String
Select Case Me.fraTien
Case 1
CauSQL = "Select * From tblHoaDon Where TenVT = '" & Me.txtTenVT & "'" & " And ThanhTien < 10000000"
Case 2
CauSQL = "Select * From tblHoaDon Where TenVT = '" & Me.txtTenVT & "'" & " And ThanhTien Between 10000000 And 25000000"
Case 3
CauSQL = "Select * From tblHoaDon Where TenVT = '" & Me.txtTenVT & "'" & " And ThanhTien > 25000000"
End Select
Me.lstHoaDon.RowSource = CauSQL
End Sub
Private Sub Form_Activate()
If Me.fraVatTu.Value = 1 Then Me.txtTenVT = Me.lblDauDO.Caption
If Me.fraVatTu.Value = 2 Then Me.txtTenVT = Me.lblNhot2.Caption
If Me.fraVatTu.Value = 3 Then Me.txtTenVT = Me.lblNhot4.Caption
If Me.fraVatTu.Value = 4 Then Me.txtTenVT = Me.lblXang92.Caption
If Me.fraVatTu.Value = 5 Then Me.txtTenVT = Me.lblXang95.Caption
End Sub
Private Sub fraVatTu_Click()
If Me.fraVatTu.Value = 1 Then Me.txtTenVT = Me.lblDauDO.Caption
If Me.fraVatTu.Value = 2 Then Me.txtTenVT = Me.lblNhot2.Caption
If Me.fraVatTu.Value = 3 Then Me.txtTenVT = Me.lblNhot4.Caption
If Me.fraVatTu.Value = 4 Then Me.txtTenVT = Me.lblXang92.Caption
If Me.fraVatTu.Value = 5 Then Me.txtTenVT = Me.lblXang95.Caption
End Sub
Bạn test lại nhé
Thân mến
Cám ơn bạn nhé, nhưng mình chỉ muốn làm bằng các đặt điều kiện trong query nguồn của list box thôi! bạn tmtien261 làm giống yêu cầu của mình rồi
(22-06-13, 10:52 AM)tmtien261 Đã viết: Bạn xem file này có đúng yêu cầu của bạn ko nhé !
Demo
Thân chào !
Oke, thenkiu bạn, đúng yêu cần của mình rồi! ^^
![[Hình: 7bu5fzv4sbi3lbf4g.jpg]](http://www.mediafire.com/view/7bu5fzv4sbi3lbf/Capture.PNG)