Open Table Command

[TigerGyrlAlly]

I have a button on a form and I would like for a user to be able to press the button and close the form while opening a table. I am using the OpenTable method of the DoCmd object and including all arguments but it still doesn't seem to work...does anyone see what i'm missing?

The error message that I get is this: Compile Error: Expected: =

This is my code and the part in red is where i'm getting my error
Private Sub ActButton_Click()
On Error GoTo Err_ActButton_Click
DoCmd.Close color=yellow]DoCmd.OpenTable(Activity, acViewNormal , acReadOnly)

Exit_ActButton_Click:
Exit Sub

Err_ActButton_Click:
MsgBox Err.Description
Resume Exit_ActButton_Click
End Sub

 

[SydneyGeek]

This got a bit scrambled so I'm assuming you meant...

Private Sub ActButton_Click()
On Error GoTo Err_ActButton_Click
DoCmd.Close
DoCmd.OpenTable(Activity, acViewNormal , acReadOnly)

Exit_ActButton_Click:
Exit Sub

Err_ActButton_Click:
MsgBox Err.Description
Resume Exit_ActButton_Click
End Sub

You usually need to open the table before closing your form, but you also need to be specific about the object that you are closing.

Try:

Private Sub ActButton_Click()
On Error GoTo Err_ActButton_Click
DoCmd.OpenTable(Activity, acViewNormal , acReadOnly)
DoCmd.Close acForm,"MyForm"

Exit_ActButton_Click:
Exit Sub

Err_ActButton_Click:
MsgBox Err.Description
Resume Exit_ActButton_Click
End Sub

Changes are in BOLD. You'll need to change MyForm to the name of the form that you want to close.

Denis