VBA Variable as userform

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)

<[email protected]> wrote in message
news:[email protected]...
> 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