Add a number automatically

Lyncroft

QPR for ever
Local time
Today, 21:55
Joined
May 18, 2002
Messages
168
Can this be done?

I've a continuous form with two text boxes, txtA and txtB. When a user enters a figure in B i want it to show in A. When the user updates box B I want it to automatically update A and so on.

Andy ideas gratefully received.
 
This seems work.........I think, fingers crossed, etc.

Private Sub Addd_AfterUpdate()
Number = GetNextNumber(Me.Addd)
End Sub

Private Function GetNextNumber(Addd As String) As Variant

Dim intFirst As Variant
Dim intSecond As String

intFirst = Me.Number
intSecond = Me.Addd

GetNextNumber = intFirst + intSecond

End Function
 

Users who are viewing this thread

Back
Top Bottom