Merhaba arkadaşari
Denetime uyan kaydı bul.
Dim Rs As Object
Set Rs = Me.Recordset.Clone
Rs.FindFirst "[Cinsi] = '" & Me![CCC] & "'"
If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark
bu kod ile bulduğumuz satırı aynı nada nasıl renklendirebiliriz.
İster satırı, isterse satırdaki metin kutularını renklendirsin farketmez,
önemli olan bulunan yeri hemen farketmemdir...
İyi çalışmalar..
Denetime uyan kaydı bul.
Dim Rs As Object
Set Rs = Me.Recordset.Clone
Rs.FindFirst "[Cinsi] = '" & Me![CCC] & "'"
If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark
bu kod ile bulduğumuz satırı aynı nada nasıl renklendirebiliriz.
İster satırı, isterse satırdaki metin kutularını renklendirsin farketmez,
önemli olan bulunan yeri hemen farketmemdir...
İyi çalışmalar..