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)