Đá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ỏi] Refresh Form và tiếp tục hoạt động Godspear 2 82 Hôm qua, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 166 09-11-16, 09:49 PM
Bài mới nhất: toancvp

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ơ