最近有不少学友问怎么用按钮打开窗体的数据表视图

以下是用按钮打开窗体的数据表视图的按钮的单击事件

希望对有需要的学友有所帮助

Private Sub Command2_Click()
On Error GoTo Err_InputNew_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "（要打开的数据表窗体的名称）"
    DoCmd.OpenForm stDocName, acFormDS

Exit_InputNew_Click:
    Exit Sub

Err_InputNew_Click:
    MsgBox Err.Description
    Resume Exit_InputNew_Click
End Sub

还有一种更简单的代码：

Private Sub Command2_Click()
DoCmd.OpenForm "窗体名", acFormDS, , , , acDialog
End Sub