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

Lọc dữ liệu trên combobox

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Bài tập Access
  • [Hỏi] Lọc dữ liệu trên combobox
• Lọc dữ liệu trên combobox

• RE: Lọc dữ liệu trên combobox

  congmanh333 > 15-12-15, 09:00 AM

  Ai giúp mình vấn đề này xíu được không ạ, mình cảm ơn

• RE: Lọc dữ liệu trên combobox

  ongke0711 > 15-12-15, 03:20 PM

    Tôi cứ nghĩ là bạn sẽ dựa vào code nút [Thêm] để tự viết tiếp cho các nút [Sửa], [Xóa] là làm qui trình ngược lại để rs!HetCho = 0.
  
  Tôi thấy bạn thiết kế qui trình thao tác, xử lý các nút (Thêm mới, Sửa, Làm mới) không được logic cho lắm. Tôi đề cập đến vấn đề này vì sẽ liên quan đến việc viết code thực thi nhiệm vụ các command button.
  Theo cách của bạn:
  - Chọn [Làm mới] -> nhập liệu -> bấm [Thêm mới]. Nhưng khi thêm mới, thì nó chỉ báo đã thêm thành công và nội dung record vẫn giữa nguyên, không nhảy sang record mới hoặc [Đóng]. Vậy người dùng có thể không biết đã lưu hay chưa và bấm lưu tiếp (Mặc dù có hiện thông báo là record đã tồn tại).
  - Nút [Sửa]: nếu bạn muốn sửa record đã nhập trước đó thì làm sao? Nút này chỉ có tác dụng [Sửa] đối với record đang nhập thôi. Chưa kể nút Sửa của bạn chạy không đúng y/c.
  - Trong code kiểm tra tính hợp lệ của các mã link kiện, mã vị trí... bạn không cho thoát - "Exit Sub" khi điều kiện không thõa nên  chương trình vẫn chạy tiếp các dòng code bên dưới nó. 
  Bạn xem chỉnh sửa lại đi nhé.
  Về nút [Sửa], [Xóa] bạn phải trả cái hiện trạng của field [HetCho] về lại No (0). Cách làm là trước khi thay đổi, sẽ lưu [mavitri] hiện tại vào 1 biến tạm. Khi thay đổi vị trí, đối chiếu với biến tạm nếu giống thì thôi, nếu không giống thì dò tìm trong table vị trí theo biến tạm và update nó thành 0. Update mã vị trí mới =1.

• RE: Lọc dữ liệu trên combobox

  congmanh333 > 16-12-15, 11:55 AM

  Cảm ơn, mình sẽ xem lại

• RE: Lọc dữ liệu trên combobox

  vucongpda > 20-12-15, 05:56 PM

  Em chào mọi người,
  Em hiện đang bị vướng phần tìm kiếm trong combobox như sau:
  Theo mặc định thì khi ấn nút mũi tên trong combox thì sẽ hiện lên một lọạt danh sách. Mình mốn tìm một dòng trong các danh sách đó thì gõ chữ cái đầu tiên nó mới hiện ra còn không thì không có gì. Đối với danh sách ít thì tự chọn, còn nếu dài thì quả là khó. Vì vậy em muốn là gõ bất kỳ ký tự nào thì nó sẽ chuyển đến dòng tương ứng (nếu có ký tự giống là ok).
  
  Mong mọi người giúp đỡ,

• RE: Lọc dữ liệu trên combobox

  ongke0711 > 20-12-15, 09:17 PM

  (20-12-15, 05:56 PM)vucongpda Đã viết: Em chào mọi người,
  Em hiện đang bị vướng phần tìm kiếm trong combobox như sau:
  Theo mặc định thì khi ấn nút mũi tên trong combox thì sẽ hiện lên một lọạt danh sách. Mình mốn tìm một dòng trong các danh sách đó thì gõ chữ cái đầu tiên nó mới hiện ra còn không thì không có gì. Đối với danh sách ít thì tự chọn, còn nếu dài thì quả là khó. Vì vậy em muốn là gõ bất kỳ ký tự nào thì nó sẽ chuyển đến dòng tương ứng (nếu có ký tự giống là ok).
  
  Mong mọi người giúp đỡ,

  
  Bạn xem cách của anh tranthanhan1962 theo link bên dưới nhé. Dùng Listbox thay thế combobox.
  http://thuthuataccess.com/forum/thread-8426.html
  
  Nếu bạn muốn tìm trực tiếp trên combo box thì theo cách dưới đây. Cách làm là cập nhật chuỗi tìm kiếm khi gõ phím trong combo box, đưa chuỗi đó vào chuỗi SQL, sau đó thay đổi RecordSource của ComboBox bằng câu lệnh SQL đó.
  
  
  
  File ví dụ:
  - Tạo table tblNhanVien (ID, HoTen)
  - Form1 có combobox [cboHoTen] và code cho event On Change như sau:
  
  

  Mã PHP:

  Private Sub cboHoTen_Change()
   Dim strText, strFind As String
   strText = Me.cboHoTen.Text
   If Len(Trim(strText)) > 0 Then
       strFind = "HoTen Like '"
       Dim i As Integer
       Dim strSQL As String
       For i = 1 To Len(Trim(strText))
           If (Right(strFind, 1) = "*") Then
               strFind = Left(strFind, Len(strFind) - 1)
           End If
       strFind = strFind & "*" & Mid(strText, i, 1) & "*"
       Next
       strFind = strFind & "'"
       strSQL = "SELECT tblNhanVien.ID, tblNhanVien.HoTen FROM tblNhanVien Where " & strFind & ";"
       Me.cboHoTen.RowSource = strSQL
   Else
       strSQL = "SELECT tblNhanVien.ID, tblNhanVien.HoTen FROM tblNhanVien;"
       Me.cboHoTen.RowSource = strSQL
   End If

   Me.cboHoTen.Dropdown
End Sub 


  
  File demo: TimKiemTrongComboBox.mdb

• RE: Lọc dữ liệu trên combobox

  vucongpda > 21-12-15, 12:22 AM

  (20-12-15, 09:17 PM)ongke0711 Đã viết:

  (20-12-15, 05:56 PM)vucongpda Đã viết: Em chào mọi người,
  Em hiện đang bị vướng phần tìm kiếm trong combobox như sau:
  Theo mặc định thì khi ấn nút mũi tên trong combox thì sẽ hiện lên một lọạt danh sách. Mình mốn tìm một dòng trong các danh sách đó thì gõ chữ cái đầu tiên nó mới hiện ra còn không thì không có gì. Đối với danh sách ít thì tự chọn, còn nếu dài thì quả là khó. Vì vậy em muốn là gõ bất kỳ ký tự nào thì nó sẽ chuyển đến dòng tương ứng (nếu có ký tự giống là ok).
  
  Mong mọi người giúp đỡ,

  
  Bạn xem cách của anh tranthanhan1962 theo link bên dưới nhé. Dùng Listbox thay thế combobox.
  http://thuthuataccess.com/forum/thread-8426.html
  
  Nếu bạn muốn tìm trực tiếp trên combo box thì theo cách dưới đây. Cách làm là cập nhật chuỗi tìm kiếm khi gõ phím trong combo box, đưa chuỗi đó vào chuỗi SQL, sau đó thay đổi RecordSource của ComboBox bằng câu lệnh SQL đó.
  
  
  
  File ví dụ:
  - Tạo table tblNhanVien (ID, HoTen)
  - Form1 có combobox [cboHoTen] và code cho event On Change như sau:
  
  

  Mã PHP:

  Private Sub cboHoTen_Change()
   Dim strText, strFind As String
   strText = Me.cboHoTen.Text
   If Len(Trim(strText)) > 0 Then
       strFind = "HoTen Like '"
       Dim i As Integer
       Dim strSQL As String
       For i = 1 To Len(Trim(strText))
           If (Right(strFind, 1) = "*") Then
               strFind = Left(strFind, Len(strFind) - 1)
           End If
       strFind = strFind & "*" & Mid(strText, i, 1) & "*"
       Next
       strFind = strFind & "'"
       strSQL = "SELECT tblNhanVien.ID, tblNhanVien.HoTen FROM tblNhanVien Where " & strFind & ";"
       Me.cboHoTen.RowSource = strSQL
   Else
       strSQL = "SELECT tblNhanVien.ID, tblNhanVien.HoTen FROM tblNhanVien;"
       Me.cboHoTen.RowSource = strSQL
   End If

   Me.cboHoTen.Dropdown
End Sub 


  
  File demo: TimKiemTrongComboBox.mdb

  
  Cảm ơn bạn nhé, đã chạy ok rồi.

• RE: Lọc dữ liệu trên combobox

  vucongpda > 21-05-16, 12:37 PM

  Ongke0711 cho mình hỏi thêm một chút về việc tìm kiếm trên Combobox.
  Mình đã làm như hướng dẫn theo đoạn code bạn gửi và đã chạy ok. Tuy nhiên nó còn một chỗ mà mình thấy hơi bất tiện đó là:
  -Sau khi mã đã gõ một chữ bất kỳ. Thì trong Combo sẽ hiện lên một loạt danh sách có từ liên quan vừa nhập vào. Nhưng mình muốn sử dụng phím mũi tên Page Dow để xuống dòng mình cần nhưng không được (hiện thị 1 dòng thì kéo được xuống, từ 2 trở lên là không được. Phải dùng chuột tích vào (hơi bất tiện).
  
  Mong bạn hướng dẫn giúp nhé.
  Cảm ơn bạn nhiều

• RE: Lọc dữ liệu trên combobox

  ongke0711 > 21-05-16, 01:02 PM

  Muốn hiển thị nhiều dòng để chọn bạn chỉ có thể dùng Listbox. Tìm kếm bằng listbox có nhiều bài viết trong diễn đàn đó bạn.
• Bài trước Bài tiếp