Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau ?
#1
Shocked 
Chào các bạn !
Hiện mình đang có một dự án quản lý các sản phẩm của công ty, về mặt cấu trúc mình đã thiết kế xong vd: gồm các trường [code sp]; [ten sp]; [mau sac]; [ngay het han] và đang bí ở tạo forms tìm kiếm. Mình tham khảo các form mẫu trên mạng thấy mỗi lần thực hiện chỉ tìm được một đối tượng với nhiều điều kiện (một điều kiện = một trường) khác nhau vd: http://thuthuataccess.com/forum/thread-5319.html. Trong khi đó nhu cầu của mình là tìm cùng một lúc nhiều đối tượng với các điều kiện khác nhau vd: chức năng query thay vì tạo một query mình muốn tạo form cho đẹp. Mong các bạn chỉ dẫn để mình sớm đưa vào hoạt động. Mình không rành access và vba mong các bạn diễn giải rõ giùm. Xin chân thành cám ơn !
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#2
Chủ đề này A Xuân Thanh có bài rồi ! Bạn thảm khảo tại link này :
http://thuthuataccess.com/forum/thread-6453.html
Chúc thành công.
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 Xuân Thanh
#3
(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.

Bạn thân mến !
Mình đã tham khảo đường link bạn gởi cho, xét về cấu trúc thì nó thuộc dạng tìm kiếm một đối tượng theo nhiều điều kiện khác nhau. Khác với mục đích của mình
vd:
Mình muốn tìm các sản phẩm theo điều kiện:
Mã sp: 123; 456; 789 ...
Màu sắc: xanh; do; vang ...
Ngày hết hạn: 1/1/12; 2/2/12; 3/3/13

Sau khi chạy hiển thị tất cả thông tin cả 3 sản phẩm nêu trên trong một listbox hay cái gì đó tương tự. Từ đó mình rút ra báo cáo gởi sếp.
Minh đã thử qua phương án liên kết query với form cho ra kết quả như mong muốn nhưng nhược điểm của nó là bạn tạo ra bao nhiêu ô liên kết thì phải nhập dữ liệu vào hết nếu không thì kết quả cho ra không đúng. Trong khi đó có khi mình cần kiểm tra 10sp, có khi 05sp. 040
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#4
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ả?
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
#5
(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ả?

Ok ! Bạn thông cảm vì khả năng diễn giải của mình hơi kém.
Mình tóm gọn lại thế này:
Mình muốn tìm các sp có mã sau: 123;456;789; 092
Sau khi chạy thông tin 4 sản phẩm này sẽ hiển thị cùng một lúc trên một listbox để rút ra thành báo cáo
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#6
Mỗ Mã SP bạn để trong 1 texbox hay tất cả các mã để trong một textbox?
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
#7
(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?

Mỗi mã là một textbox, mình dự tính dùng 10 text xếp thành cột, mỗi một cột tương ứng với một trường, dùng làm điều kiện để tìm, nếu ngưới dùng không tìm theo mã thì họ có thể tìm theo tên hoặc tiêu chí nào đó. Cấu trúc của nó giống như query vậy
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#8
Mã PHP:
Private Sub TimKiem_Click()
    
Dim DK As String
    Dim CauSQL 
As String
    DK 
Space(0)
    If 
Not IsNull(Me.txt1Then 
        DK 
DK Me.txt1
    
ElseIf Not IsNull(Me.txt2Then
        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
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
#9
(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.txt1Then 
        DK 
DK Me.txt1
    
ElseIf Not IsNull(Me.txt2Then
        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

Ok ! Cám ơn bạn nhiều !
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#10
(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.txt1Then 
        DK 
DK Me.txt1
    
ElseIf Not IsNull(Me.txt2Then
        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

Bạn Xuân Thanh ơi !
Mình đã test thử nhưng chỉ sử dụng được cho text1, kết quả cho ra chỉ 1 hàng, còn các texbox khác không động đậy gì cả ? Nếu bạn có gởi lại, bạn diễn giải giùm mình nha, mình không hiểu cấu trúc code của bạn.
Chữ ký của dinh_trong_hoa
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
  Cách đề tạo Combo Box và List Box Tương ứng Godspear 9 295 4 Giờ trước
Bài mới nhất: toancvp
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  Lọc có điều kiện ở listbox phiacuoiconduong 2 96 18-11-16, 06:40 PM
Bài mới nhất: ongke0711
  Lọc theo điều kiện trong listbox Ranju 3 183 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Thay đổi màu nền các dòng theo điều kiện trên form Continuous tranthanhan1962 9 1,701 27-09-16, 11:01 PM
Bài mới nhất: ongke0711

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ơ