thread702-798009

[kamiri]

Hi,
Thanks for the code posted in the thread noted above.
However, I have a form with a subform on which has field named company with the following code on the [On Click] Event:

Private Sub Company_Click()
Dim strWhere As String
Dim DocName As String

DocName = "DRRSub2"
strWhere = "[Company]='" & Me.Company& "'"
DoCmd.OpenForm DocName, acNormal, , strWhere
End Sub

When I click this field it opens the required form but it also maximizes the main access window.

What could the problem be?

Thanks