ایجاد کدینگ دلخواه با توجه به تاریخ روز

[majid_tiger]

سلام ، چطور می تونم در فرمی که به جدول لینک نشده کدینگ اتوماتیک ایجاد کنم ؟
اول از یک فیلد Autonumber استفاده کردم که به سال و ماه اضافه میشد مثلا 92/091 ؛ ولی در ذخیره اطلاعات به مشکل خوردم چون فیلد Autonumber رو نمی تونم کنترل کنم .

[majid_tiger]

یه راه پیدا کردم اگر درست بود که دیگر دوستان هم استفاده کنند اگر نبود که اساتید راهنمایی کنن :


Private Sub Form_Current()

Dim rst1 As Recordset
Dim dbs1 As Database
Dim cnt As Integer


Dim lngCount As Long
Set dbs1 = CurrentDb
Set rst1 = dbs1.OpenRecordset("Table1")
cnt = rst1.RecordCount
If cnt <= 1 Then
Me.ID = 1
Me.txtCodeProj = Mid(TarikhShamsi(Date, True), 3, 5) & "-" & "1"
rst1.Close
dbs1.Close
Exit Sub
Else
cnt = rst1.RecordCount - 1
Me.ID = cnt
Me.txtCodeProj = Mid(TarikhShamsi(Date, True), 3, 5) & "-" & Me.ID
rst1.Close
dbs1.Close
End If
End Sub