Form1'deki

tarih = Dlookup ("tarih", "musteri", "musteriadi='" & Me.adi.Value & "'")

kodunu

tarih = Dlookup ("last(tarih)", "musteri", "musteriadi='" & Me.adi.Value & "'")

kodu ile değiştirirseniz istediğiniz işlem gerçekleşir
ama
siz yinede BlackEagle'ın belirttiği gibi işlemler tablosu oluşturun