En Son Değer - Baskı Önizleme

En Son Değer - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: En Son Değer (/konu-en-son-deger.html)

Sayfalar: 1 2 3 4

Re: En Son Değer - enginbeyy - 30/06/2020

(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. [Resim: do.php?img=10384]

RE: En Son Değer - ozanakkaya - 30/06/2020

(30/06/2020, 12:55)enginbeyy yazdı: Hocam teşekkürler, çalışıyor ama bazen bu hatayı veriyor.

(30/06/2020, 12:55)ozanakkaya yazdı: tablo isimli tabloda gerekli özelliği evet olarak seçilmiş alanlar var. Kaydedebilmeniz için bu alanlar dolu olmalı.

Önceki mesajımda da belirttiğim gibi, kaydedilebilmesi için dolu olması gereken alanların dolu olması gerekiyor.
Test etmek için, forma yeni buton ekle, tıklandığında olayına

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

kodu ekle. "Kayıt Ekle" butonuna basıp kaydetmeden önce yeni eklediğin butonu tıkla. Hatanın nerede olduğunu görebilirsin.

RE: En Son Değer - enginbeyy - 30/06/2020

(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)

Teşekkürler hocam