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

Thiết kế form lọc theo ngày

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Thiết kế form lọc theo ngày
• Thiết kế form lọc theo ngày

• Thiết kế form lọc theo ngày

  kuzinhy > 26-05-16, 01:15 AM

  Mọi người cho mình hỏi, khi mình nhập ngày bầu cử là ngày dd/mm/dddd
  thì sẽ lọc ra những người có ngày sinh đủ 18 tuổi
  
  Ví dụ: ngày bầu cử là 22/5/2016
  thì sẽ hiện danh sách những người có ngày sinh từ 21/5/1998 trở về trước
  

• RE: Thiết kế form lọc theo ngày

  ongke0711 > 26-05-16, 08:34 AM

  Bạn dùng hàm Datediff() trong cái Select query cho subform.
  Vd: SELECT * FROM tblDanhSach WHERE DateDiff("y",[NamSinh],[NgayBauCu])>=18

• RE: Thiết kế form lọc theo ngày

  tvn_hut > 27-05-16, 09:13 PM

  Ongke0711 nói chi tiết hoặc có demo cho anh em tham khảo được không? mình cũng đang vướng khi lọc theo ngày. ví dụ mình có nhiều record theo ngày. khi muốn chỉnh sử dữ liệu của ngày nào mình chỉ cần chọn 1 ngày trên textbox thì lập tức dữ liệu tại subform hiện ra toàn bộ ngày đó. mọi người giúp nhé. Code mình viết như này nhưng nó không chạy dc:
  

  Mã PHP:

  Private Sub CboDateFilter_AfterUpdate()
On Error GoTo Handle
   If IsDate([CboDateFilter]) = True Then
       Me.RecordSource = "SELECT TblDataHeader.* FROM TblDataHeader WHERE (((TblDataHeader.PrdDate) =#" & Format([CboDateFilter], "dd/mm/yyyy") & "#)) and lock=no ORDER BY TblDataHeader.PrdDate, TblDataHeader.Line, TblDataHeader.PrdTypeAB, TblDataHeader.PrdTypeCD;"
  Else
       Me.RecordSource = "SELECT  TblDataHeader.* FROM  TblDataHeader ORDER BY TblDataHeader.PrdDate, TblDataHeader.Line, TblDataHeader.PrdTypeAB, TblDataHeader.PrdTypeCD where lock=no;"
   End If
   Me.Requery
Handle:
   If Err <> 0 Then
      MsgBox "Invalid date !"
       Exit Sub
   End If
End Sub 


• RE: Thiết kế form lọc theo ngày

  ongke0711 > 27-05-16, 09:27 PM

  - Nếu cái CboDateFilter nằm ở Main form thì bạn phải tham chiếu lại. Dùng Me.CboDateFilter để code nó rõ ràng hơn.
  
  Me.TenSubForm.RecordSoure= "SELECT ...."
  ...
  Me.TenSubForm.Requery
  
  
  - Một trường hợp khác là theo kinh nghiệm tôi thường gặp là bị lỗi ở cái vụ Format ngày tháng này trong code VBA. Bạn thử đổi lại Format () dạng "mm/dd/yyyy" xem sao.

• RE: Thiết kế form lọc theo ngày

  tvn_hut > 27-05-16, 10:18 PM

  (27-05-16, 09:27 PM)ongke0711 Đã viết: - Nếu cái CboDateFilter nằm ở Main form thì bạn phải tham chiếu lại. Dùng Me.CboDateFilter để code nó rõ ràng hơn.
  
  Me.TenSubForm.RecordSoure= "SELECT ...."
  ...
  Me.TenSubForm.Requery
  
  
  - Một trường hợp khác là theo kinh nghiệm tôi thường gặp là bị lỗi ở cái vụ Format ngày tháng này trong code VBA. Bạn thử đổi lại Format () dạng "mm/dd/yyyy" xem sao.

  
  Mình không dùng subform mà toàn bộ dữ liệu trên form chính luôn. đã thay đổi định dạng ngày nhưng cũng không OK

• RE: Thiết kế form lọc theo ngày

  ongke0711 > 27-05-16, 11:51 PM

  Bạn sửa chỗ [Lock]=False.

• RE: Thiết kế form lọc theo ngày

  tvn_hut > 29-05-16, 12:57 AM

  (27-05-16, 11:51 PM)ongke0711 Đã viết: Bạn sửa chỗ [Lock]=False.

  
  Vẫn không được bạn à. có cách nào dễ hơn không các bạn, thấy nó hơi rối. Giúp mình sử ý vấn đề này nha. mình chưa tìm ra cách nào cả

• RE: Thiết kế form lọc theo ngày

  ongke0711 > 29-05-16, 08:08 AM

  Bạn up dữ liệu mẫu lên để dễ kiểm tra hơn.

• RE: Thiết kế form lọc theo ngày

  tvn_hut > 29-05-16, 10:18 AM

  Hi cả nhà, mình làm được rồi. Do sai định dạng ngày. mình sửa lại dd/mm/yy là OK. cám ơn ban ongke0711 nhé

• RE: Thiết kế form lọc theo ngày

  zinzin8x > 08-06-16, 07:04 PM

  ui sao không dùng dlookup trong query thông qua textbox tìm kiếm của form nhỉ? có phải là đơn giản ko. trả phải code j nhiều cả.
• Bài trước Bài tiếp