Command Buttons (Access 97 SR2)

Topic

New Reply

Just a simple question. I have a button on a form that when clicked opens a subform. The text on the button says “Open Subform”. I would like to have the text on the button read “Close Subform” after the subform opens. TIA

Reply | Quote

Replies

Lonnie: Try this. Assume the name of the Command button is btnCommand.

Private Sub btnCommand_Click()
On Error GoTo btnCommand_Error

If btnCommand.Caption = “Open Form” Then
DoCmd.OpenForm (formname)
btnCommand.Caption = “Close Form”
Else
DoCmd.Close
btnCommand.Caption = “Open Form”
End If

Exit Sub

btnCommand_Error:
MsgBox Err.Description
Exit Sub

End Sub

HTH.

Reply | Quote

Thanks, Bill. I was able to do what I needed by using your example.

Reply | Quote