Hỏi gấp về đoạn mã để đánh số phiếu T,C,N,X

[chihienphuco]

Mình có bảng HoaDonMain chứa dữ liệu Nhập Xuất, ThuChiMain chứa dữ liệu Thu Chi.
* Ở Form nhập liệu HoaDonMain khi chọn nghiệp vụ là:
- Nhập thì số phiếu mới sẻ là N00001,N00002,...
- Xuất số phiếu mới X00001,X00002,...
Và Tương tự cho bảng ThuChiMain.

Chử đầu N,X,T,C được lấy từ chử đầu của bảng Nghiệp vụ. Manghiepvu ( Nsx, Nmua, Xban,Xsanxuat,Tkhachhang,Cnhacungcap,...). Diengiainghiepvu ( Nhập sản xuất, Nhập mua, Xuất bán, Xuất sản xuất, Thu khách hàng, Chi trả nhà cung cấp,...)

Mong giúp đở!

 

[BiDIT]

Bạn giải thích thêm điều bạn cần ở đây là gì? Mình ko hiểu rõ ý bạn lắm.

 

[chihienphuco]

Xin hỏi thêm, mình có 2 khung nhập ngày báo cáo trong Form:

Từ ngày: ..../..../....
Đến ngày: ..../..../....

Mình muốn khung text Từ ngày được lấy là ngày đầu tháng của khung Đến ngày.
Mong giúp gấp.

 

[imex40]

Xin hỏi thêm, mình có 2 khung nhập ngày báo cáo trong Form:

Từ ngày: ..../..../....
Đến ngày: ..../..../....

Mình muốn khung text Từ ngày được lấy là ngày đầu tháng của khung Đến ngày.
Mong giúp gấp.

Nếu textbox từ ngày và đến ngày có tên là : TuNgay và DenNgay thì bạn set
default value của textbox từ ngày là : =Dateserial(Year([DenNgay]),Month([DenNgay]),1)

 

[imex40]

Mình có bảng HoaDonMain chứa dữ liệu Nhập Xuất, ThuChiMain chứa dữ liệu Thu Chi.
* Ở Form nhập liệu HoaDonMain khi chọn nghiệp vụ là:
- Nhập thì số phiếu mới sẻ là N00001,N00002,...
- Xuất số phiếu mới X00001,X00002,...
Và Tương tự cho bảng ThuChiMain.

Chử đầu N,X,T,C được lấy từ chử đầu của bảng Nghiệp vụ. Manghiepvu ( Nsx, Nmua, Xban,Xsanxuat,Tkhachhang,Cnhacungcap,...). Diengiainghiepvu ( Nhập sản xuất, Nhập mua, Xuất bán, Xuất sản xuất, Thu khách hàng, Chi trả nhà cung cấp,...)

Mong giúp đở!

Giả sử textbox số chứng từ là SoChungTu, textbox chọn các loại nghiệp vụ là ChonNghiepVu thì bạn set properties của ChonNghiepvu nhu sau :

Private Sub ChonNghiepVu _AfterUpdate()
Dim MNV as String, SCT as Interger

MNV = Left(ChonNghiepVu,1)
SCT = Right(Dmax("Field1","table1","Left(table1.Field1,1)=" & MNV) +1
SoChungTu = MNV & Right("00000" & SCT,5)
End Sub

Trong đó :
Field1 là manghiepvu , mathuchi
table1 là table xuatnhapmain , thuchimain ...

 

[chihienphuco]

Xin hỏi thêm về sổ quỷ tiền mặt, mình có 2 bảng "Thu Chi có field Thu,Chi" và "Tồn Đầu có field TonDK":
Các dòng liệt kê trong Query sổ quỷ gồm:TonDK,Thu,Chi,TonCK

Report tạo như sau:
Công Ty A
Địa chỉ:....
SỔ QUỶ
Tồn Đầu Kỳ: TonDK
STT NGÀY NỘI DUNG NỢ CÓ Thu Chi Tồn Cuối
.......................................Thu Chi TonCK

Mình muốn số tiền cột TonCK sẻ cộng trừ chạy theo phát sinh của cột Thu Chi.
Mong giúp đở!

Hiện đã làm được rồi.