wdgriggs (AT) ftc-i (DOT) net (wdgriggs) wrote in message news:<3ccf9c62.0407070621.672afad3 (AT) posting (DOT) google.com>...
Quote:
I'm sure it's simple but....
Have a mainform / subform subform defaults to form view. Want a
toggle button on mainform to toggle subform from formview to datasheet
view and back. Looked everywhere for help.
Thanks. |
Answered my own question:
This example uses a button called cmdDatasheet and a subform control on the
Main Form called subTestForm. It changes the caption of the button to
reflect the change that will occur when clicked.
'***************** Code Start *******************
'This code was originally written by Terry Wickenden.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
Private Sub cmdDatasheet_Click()
On Error GoTo ErrCmdDatasheet
Me.subTestForm.SetFocus
DoCmd.RunCommand acCmdSubformDatasheet
If Me.cmdDatasheet.Caption = "Datasheet View" Then
Me.cmdDatasheet.Caption = "Form View"
Else
Me.cmdDatasheet.Caption = "Datasheet View"
End If
Exit Sub
ErrCmdDatasheet:
Select Case Err
Case 2046
'Datasheet view not available
MsgBox "This command not available at this time"
Exit Sub
Case Else
MsgBox Err.Number & vbCrLf & Err.Description
Exit Sub
End Select
End Sub