Office中国论坛/Access中国论坛

标题: 切换窗体视图与数据表视图的代码 [打印本页]

作者: tmtony 时间: 2008-3-21 00:37
标题: 切换窗体视图与数据表视图的代码
原作者: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

作者: goto2008 时间: 2008-3-23 16:51
能弄个库吗

作者: szyewj 时间: 2009-4-17 13:14
互联网自动更新

作者: chaojianan 时间: 2009-10-11 20:17
谢谢分享。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)