I need some help:



I am trying to declare a varible of type userform so I can pass it as a
paramater such as :



Public ufrmForm As UserForm



Sub ValidEntry(i)
For Each ctlFormControl In frmNewOrder.Controls
If ctlFormControl.TabIndex = i Then
Worksheets("WorkingArea").Activate
Range("C2") = ctlFormControl
Range("E2").Select
If ActiveCell.Value = "not valid" Then
intError = MsgBox(strMsg, vbOKOnly, "Error")
Call TextSelect(frmNewOrder, i)
End If
Exit For
End If
Next ctlFormControl
End Sub



Public Sub TextSelect(ufrmForm, i)
For Each ctlFormControl In ufrmForm.Controls
If ctlFormControl.TabIndex = i Then
ctlFormControl.SelStart = 0
intTextLength = Len(ctlFormControl.Text)
ctlFormControl.SelLength = intTextLength
Exit For
End If
Next ctlFormControl
End Sub



not working real well...............any ideas?



thanks and have a great day,

Brian

What is it supposed to do, and what does it do (not do)?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

wrote in message
ups.com...
I need some help:



I am trying to declare a varible of type userform so I can pass it as a
paramater such as :



Public ufrmForm As UserForm



Sub ValidEntry(i)
For Each ctlFormControl In frmNewOrder.Controls
If ctlFormControl.TabIndex = i Then
Worksheets("WorkingArea").Activate
Range("C2") = ctlFormControl
Range("E2").Select
If ActiveCell.Value = "not valid" Then
intError = MsgBox(strMsg, vbOKOnly, "Error")
Call TextSelect(frmNewOrder, i)
End If
Exit For
End If
Next ctlFormControl
End Sub



Public Sub TextSelect(ufrmForm, i)
For Each ctlFormControl In ufrmForm.Controls
If ctlFormControl.TabIndex = i Then
ctlFormControl.SelStart = 0
intTextLength = Len(ctlFormControl.Text)
ctlFormControl.SelLength = intTextLength
Exit For
End If
Next ctlFormControl
End Sub



not working real well...............any ideas?



thanks and have a great day,

Brian

I call TextSelect and send 2 parameters:

ufrmForm and i
i is the tabindex of the control within the form ufrmForm.............

in this call, the form is frmNeworder

ufrmForm = frmNewOrder
call NewOrder.TextSelect(ufrmForm, 1)

Public sub TextSelect(ufrmForm, 1)

TextSelect finds the control on the secified form and selects the text
within that control for overtype

regards,
Brian

CASE CLOSED.......................CASE SOLVED

I found that the userform varible is not causing a problem.

Brian