Displaying count in a text box.

[mdub]

Hi,

I have a text box (txtCount) and an Add button. I am trying to write code
that increases the count by 1 in the text box, every time the button is
clicked. The code I have so far only produces "1" in the text box:

Private Sub cmdAdd_Click()

Dim Count As Integer

Count = 0
Count = Count + 1
txtCount.Value = Count

End Sub

Thanks for the help.

Michael

 

[Jeanette Cunningham]

Michael,
sounds like you are using an unbound text box.
Each time you set the count value, it is not stored anywhere.
Try storing the value of count in the tag property of the text box.
in the after update event of the text box put
Me.txtCount.Tag = Me.txtCount

In the cmdAdd click event put
Me.txtCount = Nz(Me.txtCount.Tag) + 1

Jeanette Cunningham

 

[akphidelt]

Im not sure the exact coding but you need to create a Static variable I
think. Each time you press the button it Sets the Count to 0 then adds 1 to
it... so it will come up as 1 every time.

I think if you put it on top of the module such as

Static Count As Integer
Count = 0

Private Sub cmdAdd_Click()
Count = Count + 1
txtCount.Value = Count
End Sub

 

[fredg]

Hi,

I have a text box (txtCount) and an Add button. I am trying to write code
that increases the count by 1 in the text box, every time the button is
clicked. The code I have so far only produces "1" in the text box:

Private Sub cmdAdd_Click()

Dim Count As Integer

Count = 0
Count = Count + 1
txtCount.Value = Count

End Sub

Thanks for the help.

Michael

Your code resets Count to 0 each time it's run.
Then you add 1 to the 0 and it now equals 1.
Then you set the control txtCount to 1.
That's why it alwayw will =1.

Try it this way:

Private Sub cmdAdd_Click()
txtCount = Nx(txtCount,0)+1
End Sub

 

[mdub]

Thanks for your help, I figured it out.

Michael

Michael,
sounds like you are using an unbound text box.
Each time you set the count value, it is not stored anywhere.
Try storing the value of count in the tag property of the text box.
in the after update event of the text box put
Me.txtCount.Tag = Me.txtCount

In the cmdAdd click event put
Me.txtCount = Nz(Me.txtCount.Tag) + 1

Jeanette Cunningham