yaptığım hatadan dolayı özür dilerim öncelikle program işine yeni girdim bilgim yok acemiliğimden dolayı kusura bakmayın  forumda aratma özelliğinde hata alıyorum bir türlü düzeltemedim  işlerin yoğunluğundan program ile gece gece uğraşabiliyoruz

Koda yazdığınız [CihazKayit] hatalı, buraya liste kutusunun 1. satırı olan veri ile eşlecek tablodaki alan adını yazmalısınız.
Liste kutusunun 1. satırında "IDMusteri" alanı olduğu için [CihazKayit] yerine [IDMusteri] yazmalısın.

kod şu şekilde olacak

    rs.FindFirst "[IDMusteri] = " & Str(Nz(Me![Liste1], 0))

ayrıca, formda arama olayı eksik yapılmış. Liste kutusunun satır kaynağının aşağıdaki ile değiştirilmesi gerekli

SELECT IDMusteri, AdiSoyadi, Adresi, Telefon, CihazTuru, Marka, Model, [Seri no], GelisTarihi, GelisSaati, Arızası, Fiyati FROM CihazKayit WHERE (((AdiSoyadi) Like "*" & [Formlar]![Kayıt Arama]![gecici] & "*")); 

Uygulamanıza eklediğiniz makrolar yerine olay yordamı kullanmaya çalışın. Böylelikle kod bilginizi geliştirebilirsiniz.

YARDIMINIZ İÇİN TEŞEKKÜR EDERİM

ARAMA ÖZELLİĞİ DÜZELDİ FAKAT ŞİMDİ İSMİN ÜZERİNE ÇİFT TIKLADIĞIMDA SOL TARAFTAKİ KUTUCUKLARA KAYITLAR GEÇMİYOR

yardımınız için çok teşekkür ederim sorum çözdüm tıkladığında olayını kodlamasını hata yapmışım şimdi düzelttim