Hi

I put the following code - taken from a Wrox book - into a module thinking that it would be available to multiple forms. The function simply clears any fields on a form, ready for fresh input.

Public Sub clearFields()
With Me.Controls
  For indx = 0 To .Count - 1
    If Me.Controls(indx).Tag = "1" Then
      If (TypeOf Me.Controls(indx) Is TextBox) Then
        Me.Controls(indx).Text = ""
      ElseIf (TypeOf Me.Controls(indx) Is MaskEdBox) Then
        tempMask = Me.Controls(indx).Mask
        Me.Controls(indx).Mask = ""
        Me.Controls(indx).Text = ""
        Me.Controls(indx).Mask = tempMask
      ElseIf (TypeOf Me.Controls(indx) Is OptionButton) Then
        Me.Controls(indx).Value = False
      Else
        Me.Controls(indx).Caption = ""
      End If
    End If
  Next
End With
End Sub

However, when I try to run the program I get a compile error: Invalid use of Me keyword. I guess I can't use "Me" in a module? Any ideas gratefully received. Thanks.

That's right, you can't use 'Me' in a module. The easiest way around this would be to supply the Form you want to run this code against as an object parameter, then pass it in as 'Me' from the calling form.
i.e. change the function signature to Public Sub clearFields(objForm as Form), then replace all the instances of 'Me' in the function with 'objForm'. Then when you call the function from each form, just use: Call clearFields(Me)

hth
Phil

Excellent Phil, thanks!

Hi,

Phil is right. We can't use ME keyword in a module.

Lalit
Life Means More...;)