Số Tự Động Nhập và Thay Đổi Trong Form??? (1 người xem)

[quocsantak]

Chào các Anh, Chị trong diễn đàn.
Em có một vấn đề nhỏ nhờ các anh chị giúp đỡ
Em muốn tạo một Form nhập dữ liệu, khi nhập lần đầu tiên thì Số Phiếu sẽ tự động nhập. VD: em nhập phiếu tháng 10 và lần đầu thì Số Phiếu tự động nhập vào Table1 là: 10.001, và nhập tiếp sẽ tự động tăng lên: 10.002, 10.003, .... Và khi sang một tháng mới thì sẽ tự trả lại từ đầu . Như khi sang tháng 11 thì số phiếu là: 11.001, 11.002, 11.003, ....
Em gởi kèm file VD.mdb nhờ các anh, chị xem giúp.

 

[Hai Lúa Miền Tây]

Chào các Anh, Chị trong diễn đàn.
Em có một vấn đề nhỏ nhờ các anh chị giúp đỡ
Em muốn tạo một Form nhập dữ liệu, khi nhập lần đầu tiên thì Số Phiếu sẽ tự động nhập. VD: em nhập phiếu tháng 10 và lần đầu thì Số Phiếu tự động nhập vào Table1 là: 10.001, và nhập tiếp sẽ tự động tăng lên: 10.002, 10.003, .... Và khi sang một tháng mới thì sẽ tự trả lại từ đầu . Như khi sang tháng 11 thì số phiếu là: 11.001, 11.002, 11.003, ....
Em gởi kèm file VD.mdb nhờ các anh, chị xem giúp.

Trên Form Main:

-Tạo 1 TextBox tên là txtThang, Source: =Month([ngay])
-Code trong form:

Private Sub TXTNgay_AfterUpdate()
SoPhieu = txtThang & "." & _
   Format(DCount("[ngay]", "table1", "MONTH(NGAY) = [forms]![MAIN]![txtthang]") + 1, "000")
End Sub

Trên Subform:

-Record Source:

SELECT Table3.MaSP, Table2.TenSP, Table2.DVT, Table2.DG, Table3.SL, Table3.TT, Table3.KeySo
FROM Table2 INNER JOIN Table3 ON Table2.MaSP = Table3.MaSP;

-Code trong SubForm

Private Sub MaSP_AfterUpdate()
SL.SetFocus
TT = Val(SL * DG)

End Sub


Private Sub SL_AfterUpdate()

TT = Val(SL * DG)
End Sub

Bạn xem thêm file nhé.

 

[quocsantak]

Rất cảm ơn anh rất nhiều, em đã làm thành công trọn vẹn rồi, cũng chỉ là một CSDL nhỏ nhưng em bị kẹt chỗ này nên không thể dùng được. May nhờ anh giúp đỡ!!!
Thank you very much !!!
Xin chân thành cảm ơn và trân trọng kính chào.