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

Bấm F9 chọn hết giá trị lọc của form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Bấm F9 chọn hết giá trị lọc của form
• Bấm F9 chọn hết giá trị lọc của form

• Bấm F9 chọn hết giá trị lọc của form

  dotrung > 01-02-20, 09:30 PM

  Em có thiết kế 1 form chọn dữ liệu dòng data (có tạo checkbox) để chọn từng dòng trong danh sách form
  Tuy nhiên, em lại bị 1 lỗi khi form đang lọc dữ liệu khi bấm nút tắt F9 nó cứ chọn hết thông qua code sau
  (yêu cầu chỉ cần chọn dữ liệu checkbox trong lọc của form)
  
  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF9 Then
      DoCmd.SetWarnings False
      DoCmd.RunSQL "UPDATE temp_chondmhh SET temp_chondmhh.chon = True;" ' chekbox là chondmhh
      Form.Requery
  End If
  End Sub
  
  
  Mong muốn:  khi bấm F9 thì form sẽ chỉ cho checkbox vào những dòng mà ta đã lọc sẵn
  
  Ghi chú: em không biết upfile ảnh lên diễn đàn, đành link ảnh qua chỗ này  http://www.mediafire.com/view/onky49gxpv...%20hoi.png
  Rất mong các bác cao thủ giúp dùm em với ạ, em xin cảm ơn!

• RE: Bấm F9 chọn hết giá trị lọc của form

  tranthanhan1962 > 02-02-20, 07:55 PM

  Chưa hiểu ý lắm về yêu cầu của bạn

• RE: Bấm F9 chọn hết giá trị lọc của form

  dotrung > 02-02-20, 08:40 PM

  Dạ, trên form dữ liệu (vd ở đây là chọn nhiều mã hàng cùng lúc), em dùng chức năng fifter của form để chọn ra 1 danh sách mình cần,
  nhưng khi bấm F9 thì câu lệnh của em nó lại cập nhật hết dữ liệu của checkbox, cái đó làm em bị vướng không biết cách nào để khi bấm F9 thì check chỉ true phần mình fifter ra thôi, cái khác không được chọn.
  
  Rất mong Anh tranthanhan1962   tư vấn thêm ạ

• RE: Bấm F9 chọn hết giá trị lọc của form

  tranthanhan1962 > 02-02-20, 11:40 PM

  Do không có CSDL mà chỉ thấy hình nên bản chất của field temp_chondmhh.chon của query bạn tạo SQL mình cũng không rõ nó như thế nào? Bộ lọc chuẩn của access có cơ chế riêng của nó nên khó xử lý. Bạn nên tạo một bộ lọc riêng để xử lý thì tốt hơn. Với bộ lọc bằng lệnh SQL của bạn có thể tạo một query cụ thể từ đó bạn có thể xử lý một query update lên query được lọc thì nó mới xử lý chính xác được yêu cầu của bạn, còn bộ lọc chuẩn của access chỉ lọc phần view hiển thị chứ không tạo được một tập hợp các record được lọc nên khi bạn ra lệnh nó vẫn xử lý toàn bộ record của table, vì thế tất cả các record đếu được xử lý theo lệnh

• RE: Bấm F9 chọn hết giá trị lọc của form

  dotrung > 03-02-20, 07:51 PM

  Cảm ơn anh Tranthanhhan1962 đã chỉ giải pháp cho dotrung,
  
  Em cũng có tham khảo phần trình bày của anh OngKe0711 chia sẻ https://thuthuataccess.com/forum/thread-10781.html
  => Cái đó đúng ý đồ của em, Chỉ thiếu phần checkbox 
  và khi hiện form này dùng lọc record theo từng field của anh Ongke0711 rồi bấm tổ hợp phím (Ctrl+A chẳng hạn) thì form sẽ chỉ chọn cái mình cần lọc thôi
  
  Hic, nhưng do phần Class em không rành, nên em đành phải dùng lọc của form access
  Em sẽ tình hiểu thêm trên diễn đàn của mình về lọc form, rất cảm ơn anh Tranthanhhan1962./.

• RE: Bấm F9 chọn hết giá trị lọc của form

  tranthanhan1962 > 03-02-20, 10:55 PM

  (03-02-20, 07:51 PM)dotrung Đã viết: Cảm ơn anh Tranthanhhan1962 đã chỉ giải pháp cho dotrung,
  
  Em cũng có tham khảo phần trình bày của anh OngKe0711 chia sẻ https://thuthuataccess.com/forum/thread-10781.html
  => Cái đó đúng ý đồ của em, Chỉ thiếu phần checkbox 
  và khi hiện form này dùng lọc record theo từng field của anh Ongke0711 rồi bấm tổ hợp phím (Ctrl+A chẳng hạn) thì form sẽ chỉ chọn cái mình cần lọc thôi
  
  Hic, nhưng do phần Class em không rành, nên em đành phải dùng lọc của form access
  Em sẽ tình hiểu thêm trên diễn đàn của mình về lọc form, rất cảm ơn anh Tranthanhhan1962./.

  Không cần class VBA gì cả. Bạn tạo 1 select query có criteria để lọc, sau khi lọc xong thì tạo 1 update query cho kết quả của select query đó vào table là xong

• RE: Bấm F9 chọn hết giá trị lọc của form

  ongke0711 > 04-02-20, 03:29 PM

  (01-02-20, 09:30 PM)dotrung Đã viết: Mong muốn:  khi bấm F9 thì form sẽ chỉ cho checkbox vào những dòng mà ta đã lọc sẵn

  
  Trường hợp của bạn là đang dùng cộng cụ Filter có sẳn trên tiêu đề cột của SubForm ở dạng DataSheet View thì có một cách khác là tận dụng luôn thuộc tính Form.Filter để lấy thông tin về điều kiện lọc đã chọn.
  
  

  Mã PHP:

  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim sSQL As String
    Dim blnFiltered As Boolean

    blnFiltered = Me.TenSubForm.Form.FilterOn

    If KeyCode = vbKeyF9 Then
        Select Case blnFiltered
        Case True
            sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True WHERE " & Me.TenSubForm.Form.Filter
        Case False
            sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True"
        End Select

        CurrentDb.Execute sSQL, dbFailOnError
        Me.TenSubFrom.Requery

    End If
End Sub 


  
  - Dòng code:  Me.TenSubForm.Form.FilterOn   --> để xác định SubForm có đang ở trạng thái "filtered" không? Nếu không ("False") thì sẽ tương tác với toàn bộ record hay chỉ các record được "filtered" thôi.
  - Dùng: Currentdb.Execute  --> để khỏi phải thêm dòng code SetWarning True/False

• RE: Bấm F9 chọn hết giá trị lọc của form

  dotrung > 15-02-20, 07:17 PM

  Do thời gian hạn chế, hôm nay em mới lấy ra thử sửa lại, nhưng lại bị lỗi 2465 : Can't find the field ...
  rất mong anh Ongke0711 sửa giúp em sai chỗ nào, cảm ơn anh.
  
  => đoạn code này đặt trong subform (main form ko sử dụng được)
  
  

  Mã PHP:

  Dim sSQL As String
    Dim blnFiltered As Boolean
    blnFiltered = Me.[Forms]![F_chondanhmuchanghoa]![Frm_chondmhh].Form.FilterOn (bị lỗi)

    If KeyCode = vbKeyF9 Then
        Select Case blnFiltered
        Case True
            sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True WHERE;" & Me.[Forms]![F_chondanhmuchanghoa]![Frm_chondmhh].Form.Filter
        Case False
            sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True;"
        End Select

        CurrentDb.Execute sSQL, dbFailOnError
        Me.[Forms]![F_chondanhmuchanghoa]![Frm_chondmhh].Requery

    End If 


• RE: Bấm F9 chọn hết giá trị lọc của form

  ongke0711 > 16-02-20, 12:38 AM

  (15-02-20, 07:17 PM)dotrung Đã viết: Do thời gian hạn chế, hôm nay em mới lấy ra thử sửa lại, nhưng lại bị lỗi 2465 : Can't find the field ...
  rất mong anh Ongke0711 sửa giúp em sai chỗ nào, cảm ơn anh.
  
  => đoạn code này đặt trong subform (main form ko sử dụng được)

  
  Đoạn code trên của tôi dùng KeyDown Event của MainForm chứ không phải Subform.
  Bạn tham chiếu đến các control của Main hay Sub Form sai, câu lênh SQL cũng sai hết rồi. Phải để ý từng dấu chấm, phẩy...
  - Sau chữ WHERE tôi đâu có dùng dấu " ; "
  - Tôi ghi là: "Me.TenSubForm.Form.Filter" ==> Thì bạn chỉ thay "TenSubForm" thành cái tên sub form thực tế của bạn thôi chứ bê nguyên cái MainForm + SubForm vô làm gì? Từ khoá "Me" đã thay thế cho MainForm rồi.
  
  blnFiltered = Me.Frm_chondmhh.Form.FilterOn
  
  If KeyCode = vbKeyF9 Then
    Select Case blnFiltered
    Case True
       sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True WHERE " & Me.[Frm_chondmhh].Form.Filter
    Case False
       sSQL = "UPDATE temp_chondmhh SET temp_chondmhh.chon = True"
    End Select
  CurrentDb.Execute sSQL, dbFailOnError
  Me.[Frm_chondmhh].Requery
  ...
  
  
     

• RE: Bấm F9 chọn hết giá trị lọc của form

  dotrung > 16-02-20, 06:02 PM

  Em vẫn bị lỗi 3061, too few parameters, Expected 1
• Bài trước Bài tiếp