Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Giúp thực hiện FORM tìm kiếm này nhé!
#1
[Hình: 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é 007

CSDL: http://www.mediafire.com/?0xo7z8bld735i5f
Chữ ký của stone18k Xin chào, mình là stone18k, Tham gia http://thuthuataccess.com/forum từ ngày 28-05 -13.
Reply
Những người đã cảm ơn
#2
(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é 007
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
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" 
Bạn xem thử file ví dụ ở đây!
Liên kết đây
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn Noname , stone18k
#3
(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é 007
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,,, 040
Chữ ký của stone18k Xin chào, mình là stone18k, Tham gia http://thuthuataccess.com/forum từ ngày 28-05 -13.
Reply
Những người đã cảm ơn
#4
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
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 stone18k
#5
Bạn xem file này có đúng yêu cầu của bạn ko nhé !

Demo

Thân chào !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn stone18k
#6
(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! ^^
Chữ ký của stone18k Xin chào, mình là stone18k, Tham gia http://thuthuataccess.com/forum từ ngày 28-05 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Giúp sửa đổi thành forms tìm kiếm nhiều tiêu chí xndt 6 217 15-05-17, 02:52 PM
Bài mới nhất: xndt
  Cho mình hỏi về file.ldb khi tắt form tieu_ngao 3 114 14-05-17, 11:55 AM
Bài mới nhất: ongke0711
  Tạo code cho form đăng nhập feeling 1 160 14-05-17, 10:50 AM
Bài mới nhất: nhannt4
  Hướng Dẫn Tạo sub form theo kiểu datasheet cawboy 2 128 11-05-17, 02:38 PM
Bài mới nhất: cawboy
  [Help] Điều khiển form thông qua mạng lan tranthanhan1962 2 67 11-05-17, 09:04 AM
Bài mới nhất: tranthanhan1962

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ơ