Dim Val1 As String
Dim Val2 As Date
Dim Val3 As String
Combine Val1Val2 and return a single value Val3 As String
With Val3 Add 001 for the first record 002 for the second record and so
on
insert Val3001 into a texbox
So for Example if Val1 = ABCDE, Val2 = 01/01/2006
Val3 shoule be = ABCDE01/01/2006001 --- for the first recode (or for
the first time)
I have created the following funtion
Public Function CalculateFindingNo(Val1 As String, Val2 As Date, RecNo
As Long) As String
CalculateFindingNo = Val1 & Val2 & RecNo
End Function
I have three textboxes --- txtbox1 (Val1) , txtbox2 (Val2),
txtbox3(Val3)
In the afterupdate event of txtbox2 i have
Me.txtbox3 = CalculateFindingNo (me.txtbox1, me.txtbox2, RecNo)
Its not working Pal
Pleae someone help me
Moe