AccessTr.neT

(14/04/2012, 23:59)Yandemir yazdı: [ -> ]Formdaki Kayıt Eklendiğinde olayına

if isnull(Dmax("SiraNo","KazaKayit","Tarih=cvdate(" & date & "')") ) then

 Me.SiraNo=1 ' İlk Kayıt İse 1 Yaz

else

 Me.SiraNo=Dmax("SiraNo","KazaKayit","Tarih=cvdate(" & date & "')") +1 ' Sonrakilerde 1 artır.

end if

koda hata veriyor hocam

Tırnaklarda hata var. Eğer Parantez ve tırnakları kontrol ederek yazarsanız sıkıntı olmaz.

olduğu gibi yapıştırmayın ben kodu kafamdan yazdım. örneğiniz 2010 olduğundan göremiyorum.
birde kodda ufak bir virgül hatası var düzeltiyorum

"Tarih=cvdate('" & date & "')") olacak

sorguda işlemi yapıyor hocam ancak tabloda sonuç yine olumsuz.. sorguda da da sıra isimli alan oluşturup orada istenileni yapıyor..sıra no da değişen bişey yok



tabloda yine son kayda 1 ekleyerek sıra no veriyor..

aynı kodu bende kullanıyorum. form kirlide bu kod ve ek kontroller var kirlide olduğu için.