Adding integers (2000)

Topic

New Reply

I am trying to add integers in multiple textboxes and display them in a label just like VB. I am not having any luck. Can anyone help me get started?

Thanks

Reply | Quote

Replies

Your code would look something like this:

Me.Label1.Caption = Nz(Me.Text1,0) + Nz(Me.Text2,0) + Nz(Me.Text3,0)

Where Label1 is assumed to be the name of the label and Text1, Text2 and Text3 are textboxes. The Nz functions are necessary because otherwise a Null in any of the textboxes will cause you problems.

Reply | Quote

I get a message which says: “The expression ON Exit you entered as the event property setting produced the following error:Expected: Text or Binary”
I cant figure out what i am doing wrong

Thanks

Reply | Quote

In the Property window, on the line On Exit you should have :
[Event Procedure]

In the VBE editor enter for each textbox Charlotte’s code:
Private Sub Text1_Exit(Cancel As Integer)
Me.Label1.Caption = Nz(Me.Text1,0) + Nz(Me.Text2,0) + Nz(Me.Text3,0)
End Sub

Reply | Quote

I have the code exactly as you put it. I put the event prodedure for the text boxes ON EXIT property. I even tried putting it as an ON CLICK event for the label. Any help is appreciated.

Reply | Quote

Try putting the code in the After Update event of the text boxes, i.e.
– Select [Event Procedure] in the After Update box in the Properties window
– Click the … to the right of the dropdown arrow in the After Update box.
– Make the code look like this, with the appropriate names substituted:

Private Sub Text1_AfterUpdate()
Me.Label1.Caption = Nz(Me.Text1, 0) + Nz(Me.Text2, 0) + Nz(Me.Text3, 0)
End Sub

– Repeat for the other text boxes
– Remove the …_Exit event procedures.

If you still can’t make it work, you might post a stripped down copy of your database. See post 412737 for instructions.

Reply | Quote

Try putting the code in the After Update event of the text boxes, i.e.
– Select [Event Procedure] in the After Update box in the Properties window
– Click the … to the right of the dropdown arrow in the After Update box.
– Make the code look like this, with the appropriate names substituted:

Private Sub Text1_AfterUpdate()
Me.Label1.Caption = Nz(Me.Text1, 0) + Nz(Me.Text2, 0) + Nz(Me.Text3, 0)
End Sub

– Repeat for the other text boxes
– Remove the …_Exit event procedures.

If you still can’t make it work, you might post a stripped down copy of your database. See post 412737 for instructions.

Reply | Quote

I have the code exactly as you put it. I put the event prodedure for the text boxes ON EXIT property. I even tried putting it as an ON CLICK event for the label. Any help is appreciated.

Reply | Quote

In the Property window, on the line On Exit you should have :
[Event Procedure]

In the VBE editor enter for each textbox Charlotte’s code:
Private Sub Text1_Exit(Cancel As Integer)
Me.Label1.Caption = Nz(Me.Text1,0) + Nz(Me.Text2,0) + Nz(Me.Text3,0)
End Sub

Reply | Quote

I get a message which says: “The expression ON Exit you entered as the event property setting produced the following error:Expected: Text or Binary”
I cant figure out what i am doing wrong

Thanks

Reply | Quote

Try:

Dim X As Integer

X = CInt(Me![TextBoxName]) + CInt(Me![TextBoxOtherName])

Msgbox X

Reply | Quote

Try:

Dim X As Integer

X = CInt(Me![TextBoxName]) + CInt(Me![TextBoxOtherName])

Msgbox X

Reply | Quote