Accessten fazla anlamam ama yinede birşey yaptım alttaki gibi deneyiniz.
Hatta galiba en mantıklısı alttaki gibi olmalı.
Kod:
Sub kayitsayisi()
Dim rs As Recordset
Set rs = Form_AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu.RecordsetClone
If rs.RecordCount = 0 Then
kayitsay.Caption = "Kriterinize uygun kayıt bulunamadı.."
Else
kayitsay.Caption = "Kritere uygun toplam " & rs.RecordCount & " kayıt bulunmuştur.."
End If
End Sub