sürekli formda belirleyeceğimiz bir sayı'nın sürekli olarak her kayıtta otomatik olarak artmasını istiyorum. Sayın sledgeab'ın örneğini inceledim ama olmadı...
örnek ek'te teşekkürler..

Sayın karaayhan,

Nerelerdesiniz

Eğer aynı zamanda tabloya da kaydetmek istiyosanız, bir alan daha eklemeniz gerekecek. sırano alanı gizli olacak ve iki alan birbirine eşitlenecek.

İyi çalışmalar

sıra no sunun kaydedilme örneği.

sayın modalı teşekkür ederim. Sizler nasılsınız?
çok güzel örnek eklemişiniz yine şöyle bir çözüm buldum.

Dim sira As String
sira = DMax("[sırano]", "[barkod]", "[id]")
If IsNull(Me.sırano) Then
Me.sırano = sira + 1
End If

yazdığımızda sıra no alanındaki değerden bir fazlasını şimdiki kaydımıza ekliyor..
sıra no alanı boş olduğundan (şimdiki kayıt) istediğimiz değeri manüel yazarsak
bir sonraki kayıtta bu yazdığımız değer artarak kaldığı yerden devam ediyor..


teşekkürler, kolay gelsin ...

Sayın karaayhan;

Günaydın iyi pazarlar.

Kodunuzu nereye yazacağımı saptayamadım.

ürün grubu güncellendiğinde olay yordamına yazmanız yeterli.
kolay gelsin