Remove Controls On A Forms' Opening

Hi there,

I've been puzzling over this one for a few days. I've done a few searches on here to borrow some code - but the fact is I don't understand how to implement the suggestions. I'm hoping somone can help.

Basically, I have a form for editing the database, however, there are a number of reasons for opening this form - so at the moment I have several copies of the same form all with very minor changes. In order to streamline the way I've done this, I'd rather have controls always call up the same Form - but state in their code whether or not certain controls on the editing form are visible or not...

:mad: :eek: :mad: :eek: :confused:

It's all gone rather Pete Tong here. And I must admit I'm button bashing the code a bit now. Basically, when a button is pressed, I want it to load the form "frmEditJob". Depending on what I want visible, the Tags "N, M and V" will activate and deactivate certain controls on "frmEditJob".

With me? :confused:

Any help is appreciated!

Cheers.

Private Sub EditJob_Click()
On Error GoTo Err_EditJob_Click

Dim stDocName As String
Dim stLinkCriteria As String


If IsNull(Me![IDEntry]) Then
strMsg = "You need to enter a Valid ID number in the box provided."
strTitle = "ID Number Error"
intStyle = vbOKOnly
MsgBox strMsg, intStyle, strTitle
Exit Sub
End If

stDocName = "frmEditJob"
Dim ctl As Control

stLinkCriteria = "[WorkorderID]=" & Me![IDEntry]
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria


If ctl.Properties("Tag") = "N" Then
ctl.Properties("Visible") = False
Else
ctl.Properties("Visible") = True
End If

Exit_EditJob_Click:
Exit Sub

Err_EditJob_Click:
MsgBox Err.Description
Resume Exit_EditJob_Click


End Sub