Merhaba, konu başlığınız ile sorduğunuz sorunun bağlantısını çözemedim.

Öncelikle Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyiniz.

Formdaki TXTPLAKA açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Dim GYakit As Integer



GYakit = Nz(DMax("[SON KM]", "VERİLEN_YAKIT", "[PLAKA]='" & Me.TXTPLAKA & "'"), 0)



If GYakit = 0 Then



GYakit = Dlookup ("[İLK KM]", "ARAÇ_TANIMLA", "[ID]=" & Me.TXTPLAKA)



End If



Me.TXTİLK = GYakit

Verilen yakıt tablosunda plakaya ait son veriyi aktarır, veri yok ise araç tanımlamadaki ilk km alanındaki veriyi aktarır.

Nesne isimlerinde ve alan isimlerinde Türkçe karakter ve boşluk kullanmamaya özen gösterinb.