Accessten fazla anlamam ama yinede birşey yaptım alttaki gibi deneyiniz.
Sub kayitsayisi()
Dim rs As Recordset
If Forms![Frm_Site_Tesis_Uye_ve_Ucret_Kayit]![AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu].Form.Count = 0 Then
kayitsay.Caption = "Kriterinize uygun kayýt bulunamadý.."
Else
Set rs = Form_AltForm_Site_Tesis_Uye_ve_Ucret_Takip_Tablosu.RecordsetClone
kayitsay.Caption = "Kritere uygun toplam " & rs.RecordCount & " kayýt bulunmuþtur.."
End If
End SubHatta 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