Cách tạo ID theo số lần nhập ngày

[hoangminhtien]

em có 1 form nhập dữ liệu, có phần nhập ngày và ID. em muốn mỗi khi em nhập ngày thì ID sẽ hiện có dạng yymmdd-số lần nhập.
ví dụ khi lần đầu em nhập ngày 29/05/2009 thì ID tự động hiện là 090529-001
em nhấn ạo record mới và nhập tiếp ngày 29/05/2009 thì Id lần này là 090529-002
tương tự nếu lần 3, lần 4 đều là ngày 29/05/2009 thì ID lần lượt là 090529-003 và 090529-004.
rất mong các bác hướng dẫn, cám ơ các bác

 

[tuty]

bạn có thể làm như sau:
trên Form1 bạn thêm 1 cái Textata,Control Source=[CurrentRecord],Name:RECORDNO,Visible=No.

Private Sub Text0_AfterUpdate()

varREC = [RECORDNO]
varNAM = Year([Text0])
varTHANG = Month([Text0])
varNGAY = Day([Text0])
Text2 = Right([varNAM], 2) & Right("0" & [varTHANG], 2) & Right("0" & [varNGAY], 2) & "-" & Right("00" & [varREC], 3)

End Sub

chúc bạn thành công

 

[cadafi]

bạn có thể làm như sau:
trên Form1 bạn thêm 1 cái Textata,Control Source=[CurrentRecord],Name:RECORDNO,Visible=No.

Private Sub Text0_AfterUpdate()

varREC = [RECORDNO]
varNAM = Year([Text0])
varTHANG = Month([Text0])
varNGAY = Day([Text0])
Text2 = Right([varNAM], 2) & Right("0" & [varTHANG], 2) & Right("0" & [varNGAY], 2) & "-" & Right("00" & [varREC], 3)

End Sub

chúc bạn thành công

Yêu cầu này không cần thêm Textbox làm gì, cũng không cần khai báo thêm 4 biến nữa làm gì.

@hoangminhtien: Bạn chỉ cần 1 thủ tục xử lý sự kiện khi textbox Ngày (Field: Text0) after update như sau:

Private Sub Text0_AfterUpdate()
Me.Text2 = Format(Me.Text0, "yymmdd") & "-" & Format(CurrentRecord, "000")
End Sub

Xong.

 

[hoangminhtien]

Cám ơn các bác đã giúp đỡ, tuy nhiên chắc do em diễn giải chưa được rõ ràng nên mọi người chưa hiểu được ý của em. Ý của em là:
Lần đầu em nhập là 02/05/2009 thì ID sẽ là 090502-001 (lần đầu nhập ngàu 02/05/2009)
Lần 2 em cũng nhập 02/05/2009 thì ID sẽ là 090502-002 (lần 2 nhập ngày 02/05/2009)
Lần 3 em nhập 03/05/2009 thì ID sẽ là 090503-001 (lần đầu nhập ngày 03/05/2009)
Lần 4 em nhập là 02/05/2009 thì ID sẽ là 090502-003 (vì đây là lần thứ 3 em nhập ngày 02/05/2009)
Lần 5 nhập 05/05/2009 thì ID sẽ là 090505-001 (lần đầu nhập ngày 05/05/2009)
Mong các bác hướng dẫn

 

[cadafi]

Cám ơn các bác đã giúp đỡ, tuy nhiên chắc do em diễn giải chưa được rõ ràng nên mọi người chưa hiểu được ý của em. Ý của em là:
Lần đầu em nhập là 02/05/2009 thì ID sẽ là 090502-001 (lần đầu nhập ngàu 02/05/2009)
Lần 2 em cũng nhập 02/05/2009 thì ID sẽ là 090502-002 (lần 2 nhập ngày 02/05/2009)
Lần 3 em nhập 03/05/2009 thì ID sẽ là 090503-001 (lần đầu nhập ngày 03/05/2009)
Lần 4 em nhập là 02/05/2009 thì ID sẽ là 090502-003 (vì đây là lần thứ 3 em nhập ngày 02/05/2009)
Lần 5 nhập 05/05/2009 thì ID sẽ là 090505-001 (lần đầu nhập ngày 05/05/2009)
Mong các bác hướng dẫn

Nói thì phải nói cho rõ luôn, trong trường hợp không nhập mới mà sửa phiếu thì sao? Ta có update lại số ID không?

 

[hoangminhtien]

Trong trường hợp không nhập mới mà sửa phiếu thì không update lại ID mà vẫn giữ nguyên ID cũ. Chỉ khi nào nhập dữ liệu mới thì nó sẽ tạo ra ID mới theo quy luật như trên. Nhờ các bác hướng dẫn.

 

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

Trong trường hợp không nhập mới mà sửa phiếu thì không update lại ID mà vẫn giữ nguyên ID cũ. Chỉ khi nào nhập dữ liệu mới thì nó sẽ tạo ra ID mới theo quy luật như trên. Nhờ các bác hướng dẫn.

Bạn thử làm theo hướng dẫn của trang này xem:
http://en.allexperts.com/q/Using-MS-Access-1440/2009/3/ID-1.htm
Thân