help with code builder

I have set up a button using the wizard which opens
another form and displays the related record. I want this
button to also close the original form when it displays
the related form. Where do I put the code and what do I
say?
the existing code produced by the wizard is as follows:

Private Sub go_to_edit_worker_Click()
On Error GoTo Err_go_to_edit_worker_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "new employee edit"

stLinkCriteria = "[employee ID new]=" & Me![employee
ID new]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_go_to_edit_worker_Click:
Exit Sub

Err_go_to_edit_worker_Click:
MsgBox Err.Description
Resume Exit_go_to_edit_worker_Click

End Sub

I want to close the original form called 'worker details
filter form'

How do I go about this?

regards

See VBA Help on the DoCmd object and its methods.

Insert the following line after the DoCmd.OpenForm
statement:

DoCmd.Close acForm, "Your Form Name"

HTH
Kevin Sprinkel


-----Original Message-----
I have set up a button using the wizard which opens
another form and displays the related record. I want this
button to also close the original form when it displays
the related form. Where do I put the code and what do I
say?
the existing code produced by the wizard is as follows:

Private Sub go_to_edit_worker_Click()
On Error GoTo Err_go_to_edit_worker_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "new employee edit"

stLinkCriteria = "[employee ID new]=" & Me![employee
ID new]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_go_to_edit_worker_Click:
Exit Sub

Err_go_to_edit_worker_Click:
MsgBox Err.Description
Resume Exit_go_to_edit_worker_Click

End Sub

I want to close the original form called 'worker details
filter form'

How do I go about this?

regards
.

On Wed, 22 Sep 2004 04:42:11 -0700, lynn atkinson wrote:

I have set up a button using the wizard which opens
another form and displays the related record. I want this
button to also close the original form when it displays
the related form. Where do I put the code and what do I
say?
the existing code produced by the wizard is as follows:

Private Sub go_to_edit_worker_Click()
On Error GoTo Err_go_to_edit_worker_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "new employee edit"

stLinkCriteria = "[employee ID new]=" & Me![employee
ID new]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_go_to_edit_worker_Click:
Exit Sub

Err_go_to_edit_worker_Click:
MsgBox Err.Description
Resume Exit_go_to_edit_worker_Click

End Sub

I want to close the original form called 'worker details
filter form'

How do I go about this?

regards

DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, Me.Name


--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.