سلام
هماطور كه اساتيد و دوستان ديگه مي دانند از نوع داده AutoNumber مشخص است كه نمي توان آن را ويرايش نموده و سفارشي كرد ولي كد هاي زيادي در زمينه ساخت سري هاي سفارشي هست كه يك نمونش در زير آورده شده :Option Compare Database
Function MySequenceNum() As Long
Dim db As Database
Dim strSQL As String
Dim strUpdate As String
Dim rs As DAO.Recordset
Dim lngNewNum As Long
On Error GoTo Err_Execute
Set db = CurrentDb()
'Retrieve last number assigned for Your Number
strSQL = "SELECT Last_Assigned_Num FROM tbl_SetAutoNum " _
& "WHERE Code_Desc = 'YourNum'"
Set rs = db.OpenRecordset(strSQL)
'If no records were found, return an error
If rs.EOF = True Then
MySequenceNum = 0
MsgBox ". مقدار اوليه كد از تنظيم نشده"
Else
'Determine your new Number
lngNewNum = rs("Last_Assigned_Num") + 1
'Increment your new Number in tbl_SetAutoNum table by 1
strUpdate = "UPDATE tbl_SetAutoNum " _
& "SET Last_Assigned_Num = " & lngNewNum _
& " WHERE Code_Desc = 'YourNum'"
db.Execute strUpdate, dbFailOnError
End If
rs.Close
Set rs = Nothing
Set db = Nothing
MySequenceNum = lngNewNum
Exit Function
Err_Execute:
'An error occurred, return 0
rs.Close
Set rs = Nothing
Set db = Nothing
MySequenceNum = 0
MsgBox ". خطايي در زمان توليد كد رخ داد"
MsgBox Err.Description
End Function
البته همانطوري دوستان مي دونن اين تابع از يك جدول براي ذخيره كدي كه قرار است از يك مقدار دلخواه شروع شود با دو قيلد CodeDesc( با نوع داده متني براي شرح كد) و Last_Assigned_Num(با نوع داده عددي براي ذخيره آخرين عدد تخصيصي به كد) بهره گيري مي كند . دوستان مي توانند به جاي YourNum از شرح مورد نظر خود استفاده كنند .