otomatik sayıyı sıfırlamak

[sweeter46]

arkadaşlar ben yaptığım programda deneme amacıyla kayıt yaptım ama ben otomatik sayımın 0 dan başlamasını istiyorumm yardım ederseniz sevinirim

 

[Taruz]

Merhaba..

Aynı tabloda sıfırlayamazsınız..

Yeni bir tabloya yeni bir otomatik sayı alanı ekleyin. Diğer alanları eski tablonuzdan tasarımdayken kopyalayın ve yeni tabloya yapıştırın.

Eski tabloyu silin, yenisine eskisinin adını verin..

Kolay gelsin

 

[hozzeybek]

merhaba
tablonuzdaki verileri silip araçlar bölümünden veritabanını sıkıştır onar işlemini yaparsanız otomatik sayı 1 den başlayacaktır.

 

[tacikyol]

İŞlerİnİ Bİtİrdİkten Sonra AraÇlar MenÜsÜnden Verİ Tabanini Onar Ve SikiŞtir Yap Kayitlarin Sifirdan BaŞlayacaktir.

 

[Ömer64]

tablondaki verileri önce sil daha sonra kopyala ve eski tablonu silip bu yeni tablona eski tablonun ismini verdiğinde otomatik sayının tekrar 1 den başladığını göreceksin iyi çalışmalar

 

[modalı]

Arkadaşlar,

Bu konu birkaç kez işlendi. Soru sormadan ve cevap vermeden önce önceki konularda arama yapalım.

Tablonuzdaki otomatik sayı alanını silip tabloyu kaydedin. Tekrar otomatik sayı alanını ekleyin tablonuzu açıp ne olduğuna bakın.

İyi çalışmalar

 

[beab05]

Merhaba;

İhtiyacım olunca biraz araştırma gereği duydum bunun daha kolay yolu var mıdır diye... Alttaki kodu module ekleyiniz..

Function DeleteAllAndResetAutoNum(strTable As String) As Boolean
    'Purpose:   Delete all records from the table, and reset the AutoNumber using ADOX.
    '           Also illustrates how to find the AutoNumber field.
    'Argument:  Name of the table to reset.
    'Return:    True if sucessful.
    Dim cat As New ADOX.Catalog
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column
    Dim strSql As String
    
    'Delete all records.
    strSql = "DELETE FROM [" & strTable & "];"
    CurrentProject.Connection.Execute strSql
    
    'Find and reset the AutoNum field.
    cat.ActiveConnection = CurrentProject.Connection
    Set tbl = cat.Tables(strTable)
    For Each col In tbl.Columns
        If col.Properties("Autoincrement") Then
            col.Properties("Seed") = 1
            DeleteAllAndResetAutoNum = True
        End If
    Next
End Function

kullanımı;

DeleteAllAndResetAutoNum ("tablo_ismi")

Not: Referanslardan Microsoft ADO Ext. ekleyiniz..

Tablodan bütün veriler silinir ve otomatiksayı resetlenir..

 

[assenucler]

Sn. beab05 hocam;

İyi hafta sonları. Arşivime koyduğum her zaman yararlanacağım bir kod...

Sağolun.

Sevgi ve saygılar.