Hi
In your example file, change the function code to be
Function WhichTB(TargetTB As Control)
Dim WhichTB1 As String
If TargetTB.Name = Me.TextBox1.Name Then
WhichTB = "Date"
Else
End If
If TargetTB.Name = Me.TextBox2.Name Then
WhichTB = "Trust Name/Case Name"
Else
End If
If TargetTB.Name = Me.TextBox3.Name Then
WhichTB = "Referred By"
Else
End If
End Function
I just opened the form, left everything blank, and pressed the OK button and it brought back 3 lines
Date
Trust Name/Case Name
Referred By
Is that correct?
rylo
Bookmarks