Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách tra cứu giao dịch từng tháng
#1
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é
Chữ ký của hatashibl
Reply
Những người đã cảm ơn
#2
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ân007
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hatashibl
#3
@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é.
Chữ ký của hatashibl
Reply
Những người đã cảm ơn
#4
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.txtNamMe.txtThang1)
    
StopDate DateAdd("m"1StartDate) - 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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hatashibl


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Photo [Hỏi] Cách tạo link để Open form toancvp 7 360 01-09-16, 11:37 PM
Bài mới nhất: toancvp
  [Hỏi] Cách thay đổi Back Color của control theo giá trị toancvp 15 754 16-07-16, 10:43 AM
Bài mới nhất: toancvp
Sad [Help] Hỏi cách đưa kết quả check box từ table vào form khác toidjtjmtoi 2 148 09-07-16, 09:04 AM
Bài mới nhất: cpucloi
  [Hỏi] Cách hiện các record trong combo box theo điều kiện toancvp 5 334 02-07-16, 12:21 AM
Bài mới nhất: toancvp
  [Hỏi] Hỏi cách chọn combobox tự động cannguyen 6 584 03-06-16, 11:40 PM
Bài mới nhất: cannguyen

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ