Kod:
Private Sub CommandButton1_Click()
For i = 1 To 47
If Controls("TextBox" & i).Value = "" Then
say = say + 1
End If
Next
Controls("TextBox49").Value =say
End Sub
Private Sub CommandButton1_Click()
For i = 1 To 47
If Controls("TextBox" & i).Value = "" Then
say = say + 1
End If
Next
Controls("TextBox49").Value =say
End Sub
Bu Konudaki Yorumlar |
Textbox Boş Olanları Sayma - Yazar: malatyalı - 01/12/2020, 09:13
RE: Textbox Boş Olanları Sayma - Yazar: alicimri - 01/12/2020, 12:48
RE: Textbox Boş Olanları Sayma - Yazar: malatyalı - 07/12/2020, 13:57
RE: Alt Form - Yazar: berduş - 01/12/2020, 16:26
|