Otomatik Artan Sayı Giriş Yapmadan Artmasın

genco051 · **Kayıt Tarihi:** 04.04.2010

Merhaba

Kayıt işlemlerimde bir düzenleme yaptım. Otomatik artan sayının en son kaldığı yerden devam ediyor .Bu sayıyı tekrar baştan başlamasını nasıl sağlayabilirim?
Unsure

beab05 · 26-05-2010, 14:38

Merhaba;

Alttaki kodu kullanabilirsiniz ama dikkat edin tablodaki tüm kayıtlar SİLİNECEKTİR. Birincil anahtar olan oto sayınız tekrar resetlenecektir.

Not: Kod "Allen Brown" tarafından yazılmıştır ve çalışması için de referanslara "Microsoft ADO Ext. ... DDL and security" eklenmelidir.

Visual Basic
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

genco051 · 26-05-2010, 15:06

Sn. Berkant

Kodu hangi alana ekleme yapacam ben ana form tasarım görünümünde otomatik sıra alanındaki yerden özelliklerden olay oluşturdan denedim olmadı. Güncelleştirme öncesinde felan da denedim olmadı. Galiba yalnış yoldayım. Tabloda kaydım yok.

Son olarak veri girişlerine başladığım zaman sürekli resetlemez dimi ?

beab05 · 26-05-2010, 15:59

Kodu bir module kopyalayın. Daha sonra istediğiniz gibi kullanabilirsiniz, örnek olarak bir düğmenin tıklama kodunda kullanmanız gerekirse kod aşağıdaki gibi olmalıdır.

Visual Basic
DeleteAllAndResetAutoNum("Tablo_Ismi") 'Resetlenecek tablo ismini yazınız.

İşiniz bittiğinde düğmeyi silebilirsiniz. Moduldeki kodu da...

Tablodaki verilerin silineceğini de unutmayınız..

genco051 · 26-05-2010, 17:01

sn. Berkant Bey

Teşekkürler ama yapamadım. Program reklam içerdiği için siteye eklemek istemiyorum. Çare ne olabilir. 1 haziranda kullanmaya başlayacaz.

beab05 · 26-05-2010, 17:23

Tablolar arasındaki ilişki engelleyebilir. Bence en güzeli tabloyu boşaltan kısmını silelim ve "seed" kısmını da istediğiniz sayıdan başlatın. Bu durumda module ekleyeceğiniz kod alttaki gibi olacaktır.

Visual Basic
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
 
    'Tablodaki kayıtları silen kodları pasif yaptık
    '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 ' burada 1 yerine istediğiniz sayıdan başlatabilrisiniz.
            DeleteAllAndResetAutoNum = True
        End If
    Next
End Function

"Seed" eşitliğinde "1" yerine istediğiniz sayıdan da başlatabilrisiniz ama tabloyu boşaltmadığınız için daha önce girilmiş bir sayıdan başlarsa sorun çıkacaktır.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] iki sayı arasında nasıl sorgu yapılır?	26092009	3	7.658	15-12-2024, 08:42 Son Mesaj: halil.tefci
	[RAPOR] Kayıt Içerisindeki Miktar Alanındaki Sayı Kadar Rapora Ilgili Kaydı Rapora Kopyalama	gurolk	12	937	29-07-2024, 12:01 Son Mesaj: dsezgin
	Sayı Bulma	evren89	1	326	16-06-2024, 01:49 Son Mesaj: dsezgin
	Format([giris], "dd-mm-yyyy" Sorgu Ifadesi Içindeki Derleme Hatası.	gncbil	5	600	07-06-2024, 10:48 Son Mesaj: dsezgin
	Tabloya Qr Kodla Veri Giriş	SBNS	3	525	08-02-2024, 13:24 Son Mesaj: BeyTor
	[SORGU] Sayı Formatı Bozulmadan Metinle Birleştirme	atyaty	2	384	08-12-2023, 18:57 Son Mesaj: atyaty
	[TABLO] çoklu Birleşik Giriş Kutusu	RASİMPEH	2	487	19-09-2023, 04:53 Son Mesaj: RASİMPEH
	[VBA] Yıl Ay Sayı Sıralama Kodu Hakkında	Ahmet51	6	768	29-05-2023, 09:31 Son Mesaj: halily

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL