1. Tuyển Mod quản lý diễn đàn. Các thành viên xem chi tiết tại đây

Các Anh Chị làm ơn chỉ em cách lọc dữ liệu trong Access

Chủ đề trong 'Hỏi đáp Tin học' bởi hmp_1982, 16/08/2007.

  1. 1 người đang xem box này (Thành viên: 0, Khách: 1)
  1. hmp_1982

    hmp_1982 Thành viên mới

    Tham gia ngày:
    03/10/2006
    Bài viết:
    4
    Đã được thích:
    0
    Các Anh Chị làm ơn chỉ em cách lọc dữ liệu trong Access

    Các anh chị làm ơn chỉ em cách lọc dữ liệu trong Access:
    Vấn đề của em như sau:
    - Em có Table dữ liệu tên Thoso
    - Em thiết kế 01 form tên Ftimhoso (nguồn lấy từ Table Thoso)
    - Trong form Ftimhoso em có các textbox: sox, ngayx, noidungx... (là các texbox chứa điều kiện tìm kiếm được đánh vào) và các textbox: Sovanban, Ngayvanban, Noidung?(là các textbox chứa dữ liệu tìm kiếm được, nguồn lấy từ Table Thoso), 01 Command tên CmdTim, 01 Chexbox tên Chand. Em dùng lệnh DoCmd.ApplyFilter cho CmdTim như sau để lọc dữ liệu:
    Private Sub CmdTim_Click()
    If sox <> "" Then
    DoCmd.ApplyFilter , "[Sovanban]like forms![Ftimhoso]![sox]"
    Else
    MsgBox "Ban phaûi nhaäp ñieàu kieän tìm kieám", , "Thoâng bao"
    End If
    End Sub
    Nhưng với lệnh trên chỉ tìm được các record thỏa mãn mỗi 01 điều kiện tại [sox] thôi. Nếu có 02 điều kiện trở lên, nghĩa là có And hoặc Or thì em không biết viết thế nào cho thủ tục Private Sub CmdTim_Click() này cả (thí dụ tìm những Record vừa thỏa mãn điều kiện tại [sox] = 1 Và (Hoặc) [ngayx]="12/12/2002" Và (Hoặc) [noidungx]="quyết định").
    -------------------------------------------------
    Em cũng thử viết như sau nhưng nó báo lỗi:
    Private Sub cmdTim_Click()
    If Chand.Value = 1 Then
    ''DoCmd.ApplyFilter , "[Ngayvanban]like forms![Ftimvanban]![ngayx]" And DoCmd.ApplyFilter, "[Sovanban]like forms![Ftimvanban]![sox]" And DoCmd.ApplyFilter, "[Noidung]like forms![Ftimvanban]![noidungx]" And DoCmd.ApplyFilter, "[Ghichu]like forms![Ftimvanban]![ghichux]" And DoCmd.ApplyFilter, "[Tacgia]like forms![Ftimvanban]![tacgiax]"
    Else
    ''DoCmd.ApplyFilter , "[Ngayvanban]like forms![Ftimvanban]![ngayx]" Or DoCmd.ApplyFilter, "[Sovanban]like forms![Ftimvanban]![sox]" Or DoCmd.ApplyFilter, "[Noidung]like forms![Ftimvanban]![noidungx]" Or DoCmd.ApplyFilter, "[Ghichu]like forms![Ftimvanban]![ghichux]" Or DoCmd.ApplyFilter, "[Tacgia]like forms![Ftimvanban]![tacgiax]"
    End If
    End Sub
    (Ý của em là:
    - Nếu chexbox Chand được chọn thì lọc dữ liệu theo điều kiện Và: field [Ngayvanban] giống điều kiện trong texbox ngayx Và field [Sovanban] giống điều kiện trong texbox sox Và field [Noidung] giống điều kiện trong texbox noidungx Và field [Ghichu] giống điều kiện trong texbox ghichux Và field [Tacgia giống điều kiện trong texbox tacgiax.
    - Ngược lại, nếu không chọn chexbox Chand thì lọc dữ liệu theo điều kiện Hoặc: field [Ngayvanban] giống điều kiện trong texbox ngayx Hoặc field [Sovanban] giống điều kiện trong texbox sox Hoặc field [Noidung] giống điều kiện trong texbox noidungx Hoặc field [Ghichu] giống điều kiện trong texbox ghichux Hoặc field [Tacgia] giống điều kiện trong texbox tacgiax.)
    Mong các anh chị giúp đỡ. Em cảm ơn.
    -----------------------------------------------------
    Các anh chị xem hình sau sẽ rõ hơn:

    [​IMG]
  2. hmp_1982

    hmp_1982 Thành viên mới

    Tham gia ngày:
    03/10/2006
    Bài viết:
    4
    Đã được thích:
    0

Chia sẻ trang này