切换窗体视图与数据表视图的代码

tmtony

原作者:Terry Wickenden.

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

chaojianan

谢谢分享。

szyewj

互联网自动更新

goto2008

能弄个库吗