Selam Arkadaşlar;

Soruyu nasıl soracağımı bilmiyorum ama aşağıda ki kodları bir kaç satıra sığdırabilirmiyiz. Form açılırken buna benzer bir kaç satırı daha okuyup işlediğinden kasıntı yapıyor.

Şimdiden teşekkürler

[code=vba]
If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 1") = 1 Then: Me.btn_001.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 1"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_