Otomatik Sayı Değişmez
Dediniz ve Kaybettiniz!

Otomatik Sayı (Autonumber) alanları ile ilgili birçok yerde hala aynı sorular soruluyor.
- Kayıtlar silindiğinde neden eski numaralar kullanılamaz oluyor?
- Bu alanı 1'den itibaren yeniden sıralayamaz mıyım?

Verilen cevaplar hep aynı. Herhalde bunu bilmeyen de kalmamıştır. Bu veri alanının temel özelliği her yeni kayıt anında otomatik artması. Örneğin Access içinde iken yeni kayıt moduna geçildiği anda bu değer otomatik olarak artırılır. ADO ile SQL Server'a bağlanırken konumlandırıcı tipine göre ekleme komutu gönderildikten sonra bu değerler değişik seçeneklere göre artırılabilirler.(*)

Bu işlemin nasıl yapıldığını anlatıyorum fakat kullanmanızı tavsiye etmiyorum ve problem çıkmayacağını garantilemiyorum.

Deneme amaçlı bir veritabanı ve bu veritabanı dosyasında otomatik sayı alanı içeren bir tablo oluşturdum. Bu tabloya 15 kayıt ekledim ve bazı kayıtları sildim. Bu durumdayken dosyanın bir yedeğini aldım.

Normal şartlarda Otomatik Sayı değerinin veritabanı dosyası içinde bir yerlerde tutulması gerekir. Bu durumda otomatik sayı ile ilgili bir işlem sonrasında veritabanı dosyasında bir yere bu bilgi yazılmalıdır.

Bu teoriden yola çıkarak tabloda yeni kayıt satırına gelip birşeyler yazdım ama sonra ESC tuşu ile kayıttan vazgeçtim. Böylelikle son kullanılan otomatik sayı değeri dosyanın bir yerine yazılmış olur.

Dosya kapatıp orjinal ve yeni dosyaların arasındaki farkları program kodu yazarak araştırdım.

Sub FarklariBul()
  Open "c:\autonumber1.mdb" For Binary As #1
  Open "c:\autonumber2.mdb" For Binary As #2
  Dim i As Long
  Dim deger1 As Byte, deger2 As Byte
  For i = 1 To FileLen("c:\autonumber1.mdb")
    Get #1, i, deger1
    Get #2, i, deger2
    If deger1 <> deger2 Then Debug.Print i, deger1, deger2
  Next
  Close #1
  Close #2
End Sub   

İlk denemelerimde birçok fark olduğunu gördüm. Bunun sebebi veritabanı penceresinde farklı sayfa ve nesnenin seçili olmasıydı. Bu durumda farkı daha iyi algılayabilmek için tablolar sayfasının açık olması ve de kontrol edeceğim tablonun üzerine konumlanmış olmam gerekiyordu. En son denememde sadece iki fark olduğunu gördüm.

Her iki satır için ayrı ayrı değer aramaya başlamak gerekiyor. Otomatik sayı değerimiz en son 16 olduğuna göre bu değeri oluşturan baytları bulmak gerekiyordu.

106517. bayttan sonraki 4 bayt (LONG tipinde), 16 sayısını yani son kullanılan otomatik sayı değerini veriyordu. Bunun yerine bizim istediğimiz yeni değeri yazmamız yeterli oluyor.

Sub Getir()
  Open "c:\autonumber1.mdb" For Binary As #1
  Dim deger As Long
  Get #2, 106517, deger
  MsgBox deger
  Close #2
End Sub

Sub YenisiniYaz()
  Open "c:\autonumber2.mdb" For Binary As #2
  Dim deger As Long
  deger = 0
  Put #2, 106517, deger
  Close #2
End Sub

Oraya ne yazılırsa otomatik sayı yeni değerini bu numaradan başlatıyordu. Burayı 0 olarak değiştirdikten sonra üst resimdeki gibi bir görüntü normaldi artık.

Bu işlemden sonra Veritabanı Düzenle (Compact) komutu kullanıldığında Otomatik Sayı normal hale dönecektir. Siz en iyisi bu değeri arkaplan işlemleri için kullanın ya da kullanıcıya herhangi bir kod değeriymiş gibi gösterin. Ben olsam ekran başındaki kişiyi resimde olduğu gibi kandırırdım. Nasıl mı oldu diyorsanız, tablonun tasarım görünümünde otomatik sayı alanının Format (Biçim) özelliğinin değerini tam olarak “Kod “# şeklinde belirtmeniz yeterli.

Değiştirilmiş otomatik sayı değeri ile ilgili örnek dosyayı yükleyip inceleyebilirsiniz.
autonumber_mdb.rar (17 KB)

 
Serkan ŞAHİNOĞLU