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 - 28/06/2020

(28/06/2020, 17:55)ozanakkaya yazdı: Formda, soldaki 5 açılan kutu için, formun açıldığında olayındaki

DoCmd.GoToRecord , , acNewRec

kodunun altına

Dim AccessTr_SNO As Integer



AccessTr_SNO = DMax("[no]", "Sorgu1")



Me.txtil.DefaultValue = Dlookup ("il_kodu", "tablo", "[no]=" & AccessTr_SNO)

Me.txtilce.DefaultValue = Dlookup ("ilce_kodu", "tablo", "[no]=" & AccessTr_SNO)

Me.txtmerkez.DefaultValue = Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO)

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

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

kodu ekleyerek deneyiniz.

hocam ekli fotoğraftaki hatayı veriyor.

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

Örneğin kod uygulanmış halini son halini ekle.

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

(28/06/2020, 18:20)ozanakkaya yazdı: Örneğin kod uygulanmış halini son halini ekle.

ekledim hocam

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

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

Koddaki

DLookup("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'")

kodu ile 12283 numaralı merkez_kodu değeri bulunuyor, ancak fider tablosunda merkez_kodu alanında 12283 numaralı merkez_kodu olmadığında bu hatayı veriyor. Bu sorunu, Dlookup kodu önüne NZ ekleyerek çözebilirsiniz.

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

şeklinde olacak, yani kırmızı renkli kısım koda eklenecek.

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

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

(28/06/2020, 18:34)ozanakkaya yazdı:
Me.txtfider.DefaultValue = Dlookup ("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'")
Koddaki
DLookup("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'")
kodu ile 12283 numaralı merkez_kodu değeri bulunuyor, ancak fider tablosunda merkez_kodu alanında 12283 numaralı merkez_kodu olmadığında bu hatayı veriyor. Bu sorunu, Dlookup kodu önüne NZ ekleyerek çözebilirsiniz.
Me.txtfider.DefaultValue = Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)
şeklinde olacak, yani kırmızı renkli kısım koda eklenecek.

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

Hocam yazdıklarınızı uyguladım ama olmadı.

(28/06/2020, 21:07)enginbeyy yazdı:
(28/06/2020, 18:34)ozanakkaya yazdı:
Me.txtfider.DefaultValue = Dlookup ("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'")
Koddaki
DLookup("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'")
kodu ile 12283 numaralı merkez_kodu değeri bulunuyor, ancak fider tablosunda merkez_kodu alanında 12283 numaralı merkez_kodu olmadığında bu hatayı veriyor. Bu sorunu, Dlookup kodu önüne NZ ekleyerek çözebilirsiniz.
Me.txtfider.DefaultValue = Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)
şeklinde olacak, yani kırmızı renkli kısım koda eklenecek.

Nz(DLookup("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'"), 0)
Hocam yazdıklarınızı uyguladım ama olmadı.
dosyayı ekledim.

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

Neresinin olmadığını anlayamadım. Formu açtığınızda son kayda ait veriler geliyor.