Please help me soon

[Shailja]

I have 2 forms in my project I am using vb. One form is sales and other is MainConn

I have written one function in MainConn form.

Dim ctl as control
Public Sub Reset_Fields(ByVal frm As Form)
    For Each objctl In frm.Controls
        If UCase(TypeName(objctl)) = "TEXTBOX" Then
                   objctl.Text = ""
        End If
    Next
End Sub

I am calling this function from sales form by writting code:
frmMainConn.Res et_Fields(Me)

But above code doesnot work.
1) I am getting an error:Type mismatch.
2) When i type objctl in Reset_Fields function, pop up window doesnt come i.e. Text Property.

What is the solution? Can u tell me what is the correct code.Plz help me soon.

[willakawill]

Dim ctl as control

If the purpose of this declaration is only to have a control object for the sub then you should declare this object inside the sub

Public Sub Reset_Fields(ByVal frm As Form)

There is no need to have a form as a parameter because you are calling this sub from the same form therefore:

Private Sub Reset_Fields()

will work unless you plan to use this code for other forms

For Each objctl In frm.Controls

We don't know where this object 'objctl' comes from. I assume you are putting together various pieces of code that you have picked up on TSDN from answers to your other questions which is why, from your point of view, getting others to write your code for you does not work. Having declared ctl, you should continue to use that in your sub

If UCase(TypeName(ctl)) = "TEXTBOX" Then
ctl.Text = ""
End If

So you can call this function like this:

Reset_Fields

You have posted enough here to understand that you must use code tags

[Shailja]

Dim ctl as control

If the purpose of this declaration is only to have a control object for the sub then you should declare this object inside the sub

Public Sub Reset_Fields(ByVal frm As Form)

There is no need to have a form as a parameter because you are calling this sub from the same form therefore:

Private Sub Reset_Fields()

will work unless you plan to use this code for other forms

For Each objctl In frm.Controls

We don't know where this object 'objctl' comes from. I assume you are putting together various pieces of code that you have picked up on TSDN from answers to your other questions which is why, from your point of view, getting others to write your code for you does not work. Having declared ctl, you should continue to use that in your sub

If UCase(TypeName(ctl)) = "TEXTBOX" Then
ctl.Text = ""
End If

So you can call this function like this:

Reset_Fields

You have posted enough here to understand that you must use code tags

No, I have declared the procedure, Reset_Fields in module. And i am calling this sub from other form. When I call the sub by Reset_Fields(Me ) from other form, it gives an error that type mismatch. So how to call an object of the form?

[willakawill]

Tell me about ctl and objctl

[Shailja]

When you use 'Me' as a parameter you are sending a pointer to the form or, in visual basic language, a reference to the form. Therefore you must pass this parameter by reference or 'ByRef'. So change this:

Public Sub Reset_Fields(ByVal frmobj As Form)

to this:

Public Sub Reset_Fields(ByRef frmobj As Form)

[willakawill]

When you use 'Me' as a parameter you are sending a pointer to the form or, in visual basic language, a reference to the form. Therefore you must pass this parameter by reference or 'ByRef'. So change this:

Public Sub Reset_Fields(ByVal frmobj As Form)

to this:

Public Sub Reset_Fields(ByRef frmobj As Form)

Sorry I edited your post by mistake instead of replying to it. Anyway the answer is there. Good luck