Counter with empty textboxes

[BigJohn89]

Hi,
I have a userform with 60 textboxes. What I am trying to do is to count the number of non-blank textboxes and put the quantity in another label. So that every time data is entered into a textbox, the label would automatically update with the total of non-blank textboxes.

I have something like that and it almost works:

Private Sub Form_AfterUpdate()
Dim x As Integer
Dim intC As Integer
intC = 0
For x = 1 To 60
If IsNull(Me("slot_" & x)) Or (Me("slot_" & x)) = "" Then
intC = intC + 1
txtCount = intC
End If


Next
End Sub

But, when I assign number to the last empty textbox - counter is still showing "1" even though all textboxes are fill with the data.
What I'm doing wrong?

[pbaldy]

That is only running when you leave the form or update it (not when you update each control). For that to work you'd probably have to force a save in every textbox. I'd probably make that a function and call it from the after update event of all the textboxes.

[June7]

Is txtCount an UNBOUND textbox?

After the code runs, are you on next record?

You probably need to use the AfterUpdate event of each textbox, not the form AfterUpdate.

EDIT: And I now see Paul has basically the same suggestion.

[ssanfu]

Kind of confusing...
You say

What I am trying to do is to count the number of non-blank textboxes and put the quantity in another label.

The the code is

<snip>
    For x = 1 To 60
        ' If IsNull(Me("slot_" & x)) Or (Me("slot_" & x)) = "" Then
        If (Me("slot_" & x) & "") = "" Then  ' If slot is empty  (does the same thing as the line above)
            intC = intC + 1                  ' Add 1 to the variable  (increase the count of empty 'slots')
            txtCount = intC                  ' is "txtCount" a LABEL or a text box control???
        End If
    Next
End Sub

You say you want to count the NON-BLANK 'slots', but you are counting the BLANK 'slots'.
If you want to put the quantity into a Label, you would need to update the Caption property of a Label.


This updates the NON-BLANK slot count (I tested only using two slots)

Private Sub Slot_1_AfterUpdate()
    Call CountSlotsFull
End Sub


Private Sub Slot_2_AfterUpdate()
    Call CountSlotsFull
End Sub


Private Sub CountSlotsFull()
    Dim x As Integer
    Dim intC As Integer
    intC = 0
    For x = 1 To 2
        If Len(Trim(Me("slot_" & x) & "")) > 0 Then
            intC = intC + 1
        End If
    Next

    Me.txtCount = intC   '<< in this case, txtCount is a control, not a label

End Sub

[BigJohn89]

Sorry guys - it was late hour.

txtCount is an unbound textbox control and my code is counting blank textboxes (slots) as you already noticed
I have this code behind Form_AfterUpdate(), Form_Current(), Form_Load()

ssanfu - I'm not sure where I have to paste this code "Private Sub CountSlotsFull()"

edit:
Ok, I got it. I've used snafu's code but I needed to change it a little:

Private Sub Form_AfterUpdate()
Dim x As Integer
Dim intC As Integer
intC = 40
For x = 1 To 40
If Len(Trim(Me("slot_" & x) & "")) > 0 Then
intC = intC + (-1)
txtCount = intC
End If
Next
End Sub

After that my txtInput was showing blank control while form opening. I used:

Me.txtCount.DefaultValue = 40

In Form_Current() and Form_Load()

So, many thanks guys for help Next step further to finish my project.