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

Cách tra cứu giao dịch từng tháng

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Cách tra cứu giao dịch từng tháng
• Cách tra cứu giao dịch từng tháng

• Cách tra cứu giao dịch từng tháng

  hatashibl > 04-04-13, 05:37 PM

  Hiện nay mình đang viết 1 chương trình quản lý bán hàng, còn 1 số vướng mắc nhờ các bạn giúp đỡ.
  
  Mỗi lần giao dịch bán hang đều có lưu lại ngày tháng năm, mình muốn tạo 1 text box chỉ cần nhập: tháng/năm là có thể liệt kê hết giao dịch trong tháng/năm đó (vì thông thường định dạng kiểu date/time cho text box nếu điền tháng 02/2013 nó sẽ hiện 01/02/2013). Nếu không có hiện thông báo "Chưa có dữ liệu"
  
  Mọi người ai biết hướng dẫn cụ thể giúp mình nhé

• RE: Cách tra cứu giao dịch từng tháng

  bomnhauag > 04-04-13, 08:26 PM

  Bạn tạo 1 module rồi chèn 2 hàm này vào:
  
  Public Function DauThang(thang As Integer, nam As Integer) As Date
  DauThang = DateSerial(nam, thang, 1)
  End Function
  
  Public Function CuoiThang(ByVal thang As Integer, ByVal nam As Integer) As Date
  CuoiThang = DateAdd("m", 1, DauThang(thang, nam)) - 1
  End Function
  
  lúc lọc dữ liệu, điều kiện là: between DauThang(month(NGAY), year(NGAY)) and CuoiThang(month(NGAY), year(NGAY)) thì nó sẽ lọc dữ liệu cả tháng cho bạn! Thân

• RE: Cách tra cứu giao dịch từng tháng

  hatashibl > 04-04-13, 08:40 PM

  @bomnhauag: Cảm ơn bạn đã hướng dẫn, nhưng do mình còn gà mờ (mới học Vi tính B xong thôi) nên chưa rành lắm. Mình vẫn còn 1 số thắc mắc sau:
  1. Việc chèn Module có phải vào Insert > Class Module k bạn. Có cần chọn form nào để chèn k? Và gọi ra chạy như thế nào?
  2. Nam, thang: là 2 biến ta tách riêng nhập từng cái từ form vào phải k bạn?
  3. Lọc dữ liệu để điều kiện dùng Query làm subform thì nếu điều kiện trống (chưa có năm tháng) thì cho nó hiện hết các giao dịch thì phải làm sao bạn.
  
  Mong bạn giải thích thêm dùm nhé.

• RE: Cách tra cứu giao dịch từng tháng

  Xuân Thanh > 05-04-13, 10:33 AM

  1/ Tạo môt form có 2 textbox : txtThang và txtNam, không gộp hai cái vào làm một
  2/ Tạo mộ Commandbuton ThiHanh và gán đoạn code này vào
  

  Mã PHP:

  Private Sub ThiHanh_Click()
    Dim StartDate As Date
    Dim StopDate As Date
    StartDate = DateSerial(Me.txtNam, Me.txtThang, 1)
    StopDate = DateAdd("m", 1, StartDate) - 1
    Dim CauSQL As String
    If Me.txtThang = "" And Me.txtNam = "" Then CauSQL = "Select * from tblGiaoDich"
    If Me.txtThang <> "" And Me.txtNam <> "" Then CauSQL = "Select * from tblGiaoDich Where Ngay Between " & StartDate & " and " & StopDate
    Form!frmChiTiet.RecordSouce = CauSQL
End Sub 


  
  Trong đó frmChiTiet là Subform
  Bạn test thử nha, tôi không có thời gian test nữa. Bạn tùy nghi chế biến theo cách của bạn. đây chỉ là sự gợi ý mà thôi
  Thân mến
• Bài trước Bài tiếp