rs.AddNew
kodunun hemen altına rs!DosyaSıraNo = Nz(DCount("sno", "tbl_dosyalar") + 1, 1)
kodunu ekle,
Yazdır butonunun tıklandığında olayındaki kodlar,
Set rs = Nothing
kodunun hemen altına DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Sorgu1 SET ÇıktıSayısı = '0', Secim_Yapınız = 0;"
DoCmd.SetWarnings True
Form.Requery
kodlarını ekle
yazdırdıktan sonra onay kutuları temizlenir, çıktı sayıları sıfırlanır.
Form kapanıp açıldığında tablo yenilendiği için sno alanı sürekli artıyor. Üstteki kod ile "DosyaSıraNo" alanının sıralı olmasını sağladım.
Ayrıca, aşağıdaki konuyu incelemenizde fayda var.
Yapılmaması gereken ölümcül hatalar