(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
