Arkadaşlar eklediğim programda ekle butonuna bastığımda tbl_karar tablosundan karar_no alanındaki değeri saydırıp bir fazlasıyla karar numarası oluşturuyorum. Yalnız ekle butonuna basıp verileri girip kaydet butonuna basınca, tbl_karar tablosunun ilk kaydı alt satırına yapıyor. Hatam nerede. Bunu sadece hiç kayıt yokken yapıyor.
[sql]Dim yil, ay, gn As Integer
Dim d1 As Variant
d1 = Nz(DLookup("yenikararsay", "Srg_karar_say"), 0)
If d1 = 0 Then
Me.txtkararno = Forma
|