[/align]anlatamadım ama çok basit olmalı örneği incelerseniz istediğimi anlarsınız teşekkürler

Aşağıdaki kodu formunuzun
kod sayfasına yapıştırın

Private Sub Form_Current()

Me.Metin3 = DMax("[sıra no]", "tablo1")

End Sub

Bu son sayıyı verir
yeni sayı için :

Private Sub Form_Current()

Me.Metin3 = DMax("[sıra no]", "tablo1")+1

End Sub

(08/02/2011, 11:43)okileturc yazdı: Aşağıdaki kodu formunuzun
kod sayfasına yapıştırın

Private Sub Form_Current()

Me.Metin3 = DMax("[sıra no]", "tablo1")

End Sub

Bu son sayıyı verir
yeni sayı için :

Private Sub Form_Current()

Me.Metin3 = DMax("[sıra no]", "tablo1")+1

End Sub

sayın hocam neden şu veritabanına uygulayamıyorum uyuşmuyor anlamadım ekteki veri tabanını incelermisiniz

yeni kayıt girerken, daha öncesinde tabloya toplam kaç kayıt girildiğini görmek istiyorsunuz. Doğru mu anladım?

hayır hocam ekte nereye nasıl olmasını belirttim incelerseniz teşekkürler

No alanını metin yapmışsınız
Onu sayıya çevirdim, Kayıt no ya
metin olarak yazdırdım


sayın palmet bence "No" alanı için de koda +1 ekleyin böylece
no ve kayıt no ya elle müdahele etmezsiniz aksi halde
no tekrar edeceğinden hata verecektir

yani şu kodu

Private Sub Form_Current()
Me.no = DMax("[no]", "Evrak_Kayit_Defteri_Veri_Tabani")
End Sub

şöyle kullanın

Private Sub Form_Current()
Me.no = DMax("[no]", "Evrak_Kayit_Defteri_Veri_Tabani") +1
End Sub