• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Giúp Tạo Form tìm kiếm theo nhiều điều kiện

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Ứng Dụng
  • [Help] Giúp Tạo Form tìm kiếm theo nhiều điều kiện
• Giúp Tạo Form tìm kiếm theo nhiều điều kiện

• Giúp Tạo Form tìm kiếm theo nhiều điều kiện

  nguyenhoangbanhan > 18-06-15, 01:23 PM

  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 stDocName, acPreview

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 stDocName, acNormal

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 


• RE: tim kiem

  vulhu06 > 18-06-15, 04:08 PM

  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

• RE: tim kiem

  maidinhdan > 18-06-15, 05:35 PM

  Đề 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!

• RE: tìm kiếm

  nguyenhoangbanhan > 18-06-15, 08:29 PM

  (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!

  em xin lỗi!
  em đã sửa lại rồi ạ

• RE: tìm kiếm

  nguyenhoangbanhan > 18-06-15, 08:32 PM

  (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

• RE: tìm kiếm

  maidinhdan > 19-06-15, 10:33 AM

  Để 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!

• RE: Giúp Tạo Form tìm kiếm theo nhiều điều kiện

  tranthanhan1962 > 19-06-15, 01:34 PM

  (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 stDocName, acPreview

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 stDocName, acNormal

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 1 ' trường hợp chọn chkMaVT
                        'Lệnh xé xác
            Case 2 ' trường hợp chọn chkMaNh
                        'Lệnh hành quyết
            Case 3 ' trường hợp chọn chkten
                        'Lưu Hương tử lệnh
            Case 4 ' trường hợp chọn chknguongoc
                        'Tàn chi lệnh
    End Select
End Sub 


  
  [Help] tim kiem bang radio button
  

• RE: Giúp Tạo Form tìm kiếm theo nhiều điều kiện

  kenbi > 17-05-16, 06:50 PM

  bạn có thể share cho mình chương trình này k ,

• RE: Giúp Tạo Form tìm kiếm theo nhiều điều kiện

  maidinhdan > 17-05-16, 09:32 PM

  (17-05-16, 06:50 PM)kenbi Đã viết: bạn có thể share cho mình chương trình này k ,

  
  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.
• Bài trước Bài tiếp