چگونه مي توان كد نوشت كه اتو نامبر اولين ركورد جدول بعد از حذف ركورد هاي قبلي از يك شروع شود؟

[reshehri]

سلام
در بك جدول اگر ركوردي حذف شود اتو نامبر آن نيز حذف مي شود مثلا اگر 5 ركورد داشته باشيم با حذف اين 5 ركورد ركورد هاي جديد از 6 شروع خواهد شد

حالا سوال من اين است كه چگونه مي توان كد نوشت كه اتو نامبر اولين ركورد جدول بعد از حذف ركورد هاي قبلي از يك شروع شود؟

[mbf5923]

شما ميتونيد از .Recordset.RecordCount استفاده كنيد.
اين دستور تعداد ركوردهاي جدول موجود رو برميگردونه

[reshehri]

دوست عزيز سلام
مي شه كد آن برام بنوسي؟

[محسن شامحمدی]

چگونه مي توان كد نوشت كه اتو نامبر اولين ركورد جدول بعد از حذف ركورد هاي قبلي از يك شروع شود؟ با compact and repair کردن دیتابیس.
سورس می خوای؟

این هم سورس:

'PROCEDURE : CompactDB
' DESCRIPTION :
' RETURN VALUE: true or false depending wether there were errors or not
' NOTE :
' Add "Microsoft Jet and Replication Objects 2.x Library" to
' the references of your project
' EXAMPLE :
'---------------------------------------------------------------------------
----
Public Function CompactDB(pFileName As String) As Boolean
On Error GoTo ErrH
Dim CONN As New JRO.JetEngine
Dim ConnstringSorg As String, ConnstringDest As String

' Ensure file is not read only
SetAttr pFileName, vbNormal
ConnstringSorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
pFileName & ";User ID=;Password=;"
ConnstringDest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Temp.mdb" & ";Jet OLEDB:Engine Type=5;"

Screen.MousePointer = vbHourglass
CONN.CompactDatabase ConnstringSorg, ConnstringDest
Screen.MousePointer = vbDefault

'Copia il file compattato.
Kill pFileName
FileCopy App.Path & "\Temp.mdb", pFileName
Kill App.Path & "\Temp.mdb"

Set CONN = Nothing
CompactDB = True
Exit Function
ErrH:
Screen.MousePointer = vbDefault
Debug.Print Err.Description
End Function


http://barnamenevis.org/images/attach/rar.gif compactdb.rar‏ (http://barnamenevis.org/attachment.php?attachmentid=28170&d=1234259232)