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

Lọc Form theo ngày tháng

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Lọc Form theo ngày tháng
• Lọc Form theo ngày tháng

• Lọc Form theo ngày tháng

  Godspear > 28-02-17, 12:17 PM

  Hồi trc đã từng được bạn ongke chỉ giáo cho vụ này nhưng khi mình áp dung vào file của mình thì code hoạt động có vẻ ko đúng lắm; khi search thử theo các phương án thì tất cả đều cho ra kết quả như nhau và ko hề được sắp xếp nên dg rất lúng túng ko biết là bị lỗi gì
  
  
  mã code của mình
  
  Private Sub Command197_Click()
  Const conJetDate = "\#mm\/dd\/yyyy\#"
  Dim STrCriteria, Task As String
  If IsNull(Me.TxTDateFrom) Or IsNull(Me.txtDateTo) Then
     MsgBox "Please enter the date range", vbInformation, "Date Range Required"
     Me.TxTDateFrom.SetFocus
  Else
     STrCriteria = Me.cbodatetype.Value & " BETWEEN " & Format(Me.TxTDateFrom, conJetDate) & " AND " & Format(Me.txtDateTo, conJetDate)
     Task = "Filter * FROM tbl_ListofClinicalTrials WHERE (" & STrCriteria & ") ORDER BY " & Me.cbodatetype.Value
     DoCmd.ApplyFilter Task
  End If
  
  End Sub
  
  form - search by date range
  
  link file của mình: https://drive.google.com/open?id=0Byhaxb...3AyNFZONXM
  
  ai cao nhân có thể sửa lại giúp mình với
  thank iu cả nhà

• RE: Lọc Form theo ngày tháng

  cpucloi > 28-02-17, 05:01 PM

  Lóa mắt mà chẳng biết sửa ở form nào? đi rò lại sao trời.

• RE: Lọc Form theo ngày tháng

  ongke0711 > 01-03-17, 12:17 AM

  (28-02-17, 12:17 PM)Godspear Đã viết: ...
  
     Task = "Filter * FROM tbl_ListofClinicalTrials WHERE (" & STrCriteria & ") ORDER BY " & Me.cbodatetype.Value
     DoCmd.ApplyFilter Task
  ...

  
  - Làm gì có câu lệnh "Filter * FROM..." 
  - Bạn xem lại cú pháp dùng cho lệnh "Docmd.ApplyFilter". Vd: Docmd.ApplyFilter , "FeasStart_Date = #04/18/2011# "

• RE: Lọc Form theo ngày tháng

  Godspear > 03-03-17, 08:22 AM

  (01-03-17, 12:17 AM)ongke0711 Đã viết:

  (28-02-17, 12:17 PM)Godspear Đã viết: ...
  
     Task = "Filter * FROM tbl_ListofClinicalTrials WHERE (" & STrCriteria & ") ORDER BY " & Me.cbodatetype.Value
     DoCmd.ApplyFilter Task
  ...

  
  - Làm gì có câu lệnh "Filter * FROM..." 
  - Bạn xem lại cú pháp dùng cho lệnh "Docmd.ApplyFilter". Vd: Docmd.ApplyFilter , "FeasStart_Date = #04/18/2011# "

• Bài trước Bài tiếp