Autonumbering Items in Text Box 1

[infinitx]

Hi,

I have a button on a form that when the user clicks it, it copies the text from Case Text and Item Text (which are two separate text boxes) into one text box (ExptoWord). The user can add as many items as they want to the same Text Box (ExptoWord).

This is the code that I am using:

Me.ExptoWord = Me.ExptoWord & vbCrLf & Me.CaseText & vbCrLf & Me.ItemText

How can I Autonumber every item that the user adds to ExptoWord text box?

Thanks in advance!

 

[lupins46]

In whatever procedure you are doing this:

Static x
if isnull(me.exptword) then x = 0
x = x+1
Me.ExptoWord = Me.ExptoWord & vbCrLf & x &":" & Me.CaseText & vbCrLf & Me.ItemText

 

[infinitx]

Thanks!

That worked!