ایا می شود برای نوع Autonumber مقدار اولیه تعریف کرد

[جعفر88]

سلام
هماطور كه اساتيد و دوستان ديگه مي دانند از نوع داده 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 از شرح مورد نظر خود استفاده كنند .