[/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