Counter on form

[fishtek]

I have a form that I want serve as a count sheet for organisms. On the form I have text boxes that hold counts for various critters. I would like to place a button on the form that increases the count in the active text box by 1 for each click. (Initially the text box would be null) I have made this work with a macro in Excel but have no idea where to start in Access. Thanks for any help..

 

[ClydeData]

Me.critters = Me.critters + 1

should work

you may also want to deal with the null value
If Len(Me.critters) > 0 Then

Me.critters = Me.critters + 1
Else

Me.critters = 1

End If




Hope this helps

Jimmy

 

[fishtek]

Thanks for your response ClydeData. How do I use the code if I have multiple textboxes on the form but only want the count to increase on the active one. Thanks again..

 

[ClydeData]

If you have a command button besite each txt box the just use the name of the textbox in the control




Me.YourTextBox = Me.YourTextBox + 1


Hope this helps

Jimmy

 

[TheAceMan1]

How are ya fishtek . . .

In the [blue]Tag[/blue] property of the organism controls, enter a question mark [blue]?[/blue] (no quotations please!). Then in your button try:

[blue]   Dim ctlName As String
   
   ctlName = Screen.ActiveControl.Name
   
   If Me(ctlName).tag = "?" Then
      Me(ctlName) = Nz(Me(ctlName), 0) + 1
   End If[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[fishtek]

Thanks Aceman1.. I placed your code in the On Click event for the button and tagged the textboxes as you said but nothing happens. Was I incorrect?
Thanks

 

[PHV]

What about this ?

Dim ctl As Control
Set ctl = Screen.PreviousControl
If ctl.Tag = "?" Then
  ctl.Value = Nz(ctl.Value, 0) + 1
  ctl.SetFocus
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[fishtek]

Thanks PHV! That works great! Thanks to ClydeData and Aceman1 as well..