Secim ekranında hata alıyorum. Dosya büyük olduğundan resim olarak ekledim. Eksik olan nedir acaba. Değerli yardımlarınızı bekliyorum..

Saygılar;

aşağıdaki gibi deneyin. siz text alanda sayısal arama yapıyorsunuz.

rs.findfirst "[MTemsilcisi] ='" & me.liste022 & "'"

Hakkı Bey İnceleyerek dönüş yaparsanız memnun olurum.

(15/09/2011, 16:06)Yandemir yazdı: aşağıdaki gibi deneyin. siz text alanda sayısal arama yapıyorsunuz.

rs.findfirst "[MTemsilcisi] ='" & me.liste022 & "'"

Değerli Yandemir Hocam.. Söylediğiniz gibi düzelttim lakin Hata değişti.
Hata dosyası ektedir.

---

(15/09/2011, 16:07)Kur@l yazdı: Hakkı Bey İnceleyerek dönüş yaparsanız memnun olurum.

Hemen inceliyorum..

---

(15/09/2011, 16:07)Kur@l yazdı: Hakkı Bey İnceleyerek dönüş yaparsanız memnun olurum.

Süper .. Oldu..
Yardımlarınızdan ötürü her ikinizede çok tşk ediyorum..
Sağlıcakla kalın.Allah razı olsun..



Private Sub Liste022_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "MTemsilcisi ='" & Me.Liste022 & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub