(30/06/2020, 10:14)ozanakkaya yazdı: Resimleri ek dosya olarak eklemeyiniz. Resim Ekle butonuna tıklayarak ekleyiniz.
Kaydetme kodunun çalışabilmesi için Kesinti Nedeni ve Enerji Kodu gibi alanların dolu olması gerekiyor. Resimde hatalı gösterilen kod kaydetme kodu.
tablo isimli tabloda gerekli özelliği evet olarak seçilmiş alanlar var. Kaydedebilmeniz için bu alanlar dolu olmalı.

Ayrıca, koddaki veri aktaran kodları aşağıdaki ile değiştirin.

    Me.txtil.Requery

    Me.txtil = Nz(DLookup("il_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)

    Me.txtilce.Requery

    Me.txtilce = Nz(DLookup("ilce_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)

    Me.txtmerkez.Requery

    Me.txtmerkez = Nz(DLookup("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO), 0)

    Me.txtfider.Requery

    Me.txtfider = Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)

    Me.txtsebep = Nz(DLookup("[no]", "kesinti_yapan", "[kesinti_yapan]='" & Dlookup ("kesinti_sebebi", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)

    

    Me.mtnil = txtil.Column(0)

    Me.mtnfider = txtfider.Column(0)

    Me.mtnilce = txtilce.Column(0)

    Me.mtnsebep = txtsebep.Column(1)

Hocam teşekkürler, çalışıyor ama bazen bu hatayı veriyor.