Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Giúp Tạo Form tìm kiếm theo nhiều điều kiện
#1
code tìm kiếm của em khá ổn rồi, nhưng em không xử lí được khi mình check vào 1 mục rồi lại check được cái tiếp theo nhưng em muốn mỗi lần check duy nhất 1 cái thui, cái này thì làm group thì sẽ xử lí được nhưng em không biết chèn sao mong mấy anh chị giúp dùm ạ bai em nhu hinh trong link nay :
http://www.mediafire.com/view/e9djdxlgf6...itled3.png
code cái phần tìm kiếm  của em :



Mã PHP:
Private Sub chkAll_AfterUpdate()
If 
chkAll True Then
       chkMaVT 
True
       chkMaNh 
True
       chkten 
True
       chknguongoc 
True
   Else
       chkMaVT 
False
       chkMaNh 
True
       chkten 
False
       chknguongoc 
False
   End 
If
End Sub

Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
   
   CurrentDb
.QueryDefs("qryDanhsach").SQL Me.lstSearchResults.RowSource
   DoCmd
.OpenReport "rptDanhsach"acPreview

Exit_cmdOpenReport_Click
:
   Exit Sub

Err_cmdOpenReport_Click
:
   MsgBox Err.Description
   Resume Exit_cmdOpenReport_Click
End Sub




Private Sub txtSearchFor_Change()
 Dim vSearchString As String
   vSearchString 
txtSearchFor.Text
   txtSrchText
.Value vSearchString
   Me
.lstSearchResults.Requery
End Sub

Private Sub Form_Load()
DoCmd.Restore
   chkten 
True
End Sub


Private Sub Command72_Click()
On Error GoTo Err_Command72_Click

   Dim stDocName 
As String

   stDocName 
"rptDanhsach"
   DoCmd.OpenReport stDocNameacPreview

Exit_Command72_Click
:
   Exit Sub

Err_Command72_Click
:
   MsgBox Err.Description
   Resume Exit_Command72_Click
   
End Sub
Private Sub Command73_Click()
CurrentDb.QueryDefs("qryDanhsach").SQL Me.lstSearchResults.RowSource
   Call fPrintReport
("rptDanhsach")
End Sub
Private Sub Command74_Click()
On Error GoTo Err_Command74_Click

   Dim stDocName 
As String

   stDocName 
"rptDanhsach"
   DoCmd.OpenReport stDocNameacNormal

Exit_Command74_Click
:
   Exit Sub

Err_Command74_Click
:
   MsgBox Err.Description
   Resume Exit_Command74_Click
   
End Sub

Private Sub thoat_Click()
If 
MsgBox("Ban có muon thoát không?"36"Thông Báo") = 6 Then
DoCmd
.Close
End 
If
End Sub 
Chữ ký của nguyenhoangbanhan Xin chào, mình là nguyenhoangbanhan, Tham gia http://thuthuataccess.com/forum từ ngày 09-06 -15.
Reply
Những người đã cảm ơn
#2
Lần sau bạn có post bài thì vui lòng viết có dấu để người khác đọc cho dễ, cái này là qui định của diễn đàn đó. Để check 1 lần thì bạn dùng qua control Radio button
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn nguyenhoangbanhan
#3
Đề nghị bạn dùng từ tiếng việt có dấu ( sửa lại bài trên), nếu không bài viết sẽ bị xóa trong vòng 2 ngày tới

Trân trọng
! 034
ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(18-06-15, 05:35 PM)maidinhdan Đã viết: Đề nghị bạn dùng từ tiếng việt có dấu ( sửa lại bài trên), nếu không bài viết sẽ bị xóa trong vòng 2 ngày tới

Trân trọng
! 034
em xin lỗi!
em đã sửa lại rồi ạ
Chữ ký của nguyenhoangbanhan Xin chào, mình là nguyenhoangbanhan, Tham gia http://thuthuataccess.com/forum từ ngày 09-06 -15.
Reply
Những người đã cảm ơn maidinhdan
#5
(18-06-15, 04:08 PM)vulhu06 Đã viết: Lần sau bạn có post bài thì vui lòng viết có dấu để người khác đọc cho dễ, cái này là qui định của diễn đàn đó. Để check 1 lần thì bạn dùng qua control Radio button

dạ em nhớ rồi ạ, anh có thể nói rõ hơn không ạ, em chưa hiểu được, em cũng chỉ mới nghiêm cứu access thôi
Chữ ký của nguyenhoangbanhan Xin chào, mình là nguyenhoangbanhan, Tham gia http://thuthuataccess.com/forum từ ngày 09-06 -15.
Reply
Những người đã cảm ơn
#6
Để mọi người hỗ trợ bạn tốt nhất, thiết nghĩ bạn nên gửi file lên đây, chứ nhìn code mà sửa không có gì để test thì khó cho người giúp đỡ lắm.

Ngoài ra chắc tham khảo thêm bài này xem sao: http://thuthuataccess.com/forum/thread-8324.html

Thân ái! Lightbulb
ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(18-06-15, 01:23 PM)nguyenhoangbanhan Đã viết: code tìm kiếm của em khá ổn rồi, nhưng em không xử lí được khi mình check vào 1 mục rồi lại check được cái tiếp theo nhưng em muốn mỗi lần check duy nhất 1 cái thui, cái này thì làm group thì sẽ xử lí được nhưng em không biết chèn sao mong mấy anh chị giúp dùm ạ bai em nhu hinh trong link nay :
http://www.mediafire.com/view/e9djdxlgf6...itled3.png
code cái phần tìm kiếm  của em :



Mã PHP:
Private Sub chkAll_AfterUpdate()
If 
chkAll True Then
       chkMaVT 
True
       chkMaNh 
True
       chkten 
True
       chknguongoc 
True
   Else
       chkMaVT 
False
       chkMaNh 
True
       chkten 
False
       chknguongoc 
False
   End 
If
End Sub

Private Sub cmdOpenReport_Click()
On Error GoTo Err_cmdOpenReport_Click
   
   CurrentDb
.QueryDefs("qryDanhsach").SQL Me.lstSearchResults.RowSource
   DoCmd
.OpenReport "rptDanhsach"acPreview

Exit_cmdOpenReport_Click
:
   Exit Sub

Err_cmdOpenReport_Click
:
   MsgBox Err.Description
   Resume Exit_cmdOpenReport_Click
End Sub




Private Sub txtSearchFor_Change()
 Dim vSearchString As String
   vSearchString 
txtSearchFor.Text
   txtSrchText
.Value vSearchString
   Me
.lstSearchResults.Requery
End Sub

Private Sub Form_Load()
DoCmd.Restore
   chkten 
True
End Sub


Private Sub Command72_Click()
On Error GoTo Err_Command72_Click

   Dim stDocName 
As String

   stDocName 
"rptDanhsach"
   DoCmd.OpenReport stDocNameacPreview

Exit_Command72_Click
:
   Exit Sub

Err_Command72_Click
:
   MsgBox Err.Description
   Resume Exit_Command72_Click
   
End Sub
Private Sub Command73_Click()
CurrentDb.QueryDefs("qryDanhsach").SQL Me.lstSearchResults.RowSource
   Call fPrintReport
("rptDanhsach")
End Sub
Private Sub Command74_Click()
On Error GoTo Err_Command74_Click

   Dim stDocName 
As String

   stDocName 
"rptDanhsach"
   DoCmd.OpenReport stDocNameacNormal

Exit_Command74_Click
:
   Exit Sub

Err_Command74_Click
:
   MsgBox Err.Description
   Resume Exit_Command74_Click
   
End Sub

Private Sub thoat_Click()
If 
MsgBox("Ban có muon thoát không?"36"Thông Báo") = 6 Then
DoCmd
.Close
End 
If
End Sub 

Nếu làm bằng các radio button không liên kết mình đã có bài trả lời cho bạn ở tim kiem bang radio button rồi. Nếu Group chkAll có chứa các radio button chkMaVT, chkMaNh, chkten, chknguongoc. Bạn kiểm tra xem Option Value của từng nút rồi viết code cho Sub chkAll_AfterUpdate() theo Value của nó Ví dụ: button chkMaVT = 1, chkMaNh = 2, chkten = 3, chknguongoc = 4.
Mã PHP:
Private Sub chkAll_AfterUpdate()
    Select Case chkAll.Value
            
Case ' trường hợp chọn chkMaVT
                        '
Lệnh xé xác
            
Case ' trường hợp chọn chkMaNh
                        '
Lệnh hành quyết
            
Case ' trường hợp chọn chkten
                        '
Lưu Hương tử lệnh
            
Case ' trường hợp chọn chknguongoc
                        '
Tàn chi lệnh
    End Select
End Sub 

[Help] tim kiem bang radio button
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#8
bạn có thể share cho mình chương trình này k , big green
Chữ ký của kenbi kenbi,gia nhập Thủ Thuật Access từ 17-05 -16.
Reply
Những người đã cảm ơn
#9
(17-05-16, 06:50 PM)kenbi Đã viết: bạn có thể share cho mình chương trình này k , big green

Thông báo:

1. Vi phạm nội quy diễn đàn: Đặt tiêu đề vi phạm
Trích dẫn:[Help] Cần file như hình ai có cho xin với ạ
2. Không chịu khó đọc. Câu trả lời và Demo trước mắt ( phía trên ) mà không chịu đọc


Khóa tài khoản 1 tuần.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
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
  [Chương trình] Phần mềm kế toán HDSOFT_Update mới nhất theo thông tư 200/2014/TT-BTC hoangdungcr 2 437 30-05-16, 01:15 AM
Bài mới nhất: hoangdungcr
  [Help] tim kiem bang radio button nguyenhoangbanhan 11 1,585 12-06-15, 08:12 PM
Bài mới nhất: tranthanhan1962
  Phần mềm quản lý bán hàng, nhiều giá, nhiều đơn vị tính miễn phí tt1212 1 638 29-05-15, 01:57 PM
Bài mới nhất: tt1212
  Phần mềm quản lý phòng khám nhiều dịch vụ tt1212 2 855 17-03-14, 08:30 PM
Bài mới nhất: tt1212
  [Chương trình] Cùng nhau viết một phần mềm quản lý sửa chữa trong công ty nhiều chi nhánh hctol 4 941 26-02-14, 05:51 PM
Bài mới nhất: KínhCận

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ơ