kodu bu şekilde değiştir
Private Sub Komut8_Click()
Dim say As Integer
Liste0.Requery
Liste0.Visible = True
Metin9.Visible = True
Metin11.Visible = True
Etiket12.Visible = True
Me.Metin2 = Me.Liste0.ListCount
End Sub
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz