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.