如何在运行时将单一窗体的Microsoft Access窗体视图更改为连续窗体？

Question

我想在窗体中放一个按钮，通过点击按钮来改变它的视图。 我试图把这个子程序：

Pricate Sub SwitchView_Click() 
    Me.DefaultView = 1 
End Sub 

但在运行它，我遇到了，说

Run-time error '2136': To set this property, open the form or report in Design View. 

如何解决这个错误？

Answer 1

的错误信息是明确的：这是一个只能在设计视图中设置属性。

所以你必须切换视图，设置属性，切换回来。
我会把它放到一个标准模块中，而不是放到表单模块中。

Private Sub SwitchView_Click() 
    Call SwitchDefaultView(Me) 
End Sub 

' in standard module 
Public Sub SwitchDefaultView(frm As Form) 

    Dim sFrm As String 

    ' Make sure the current record is (and can be) saved 
    On Error Resume Next 
    frm.Dirty = False 
    If Err.Number <> 0 Then MsgBox Err.Description: Exit Sub 

    On Error GoTo 0 
    sFrm = frm.Name 
    ' Switch to Design view 
    DoCmd.OpenForm sFrm, acDesign 
    Forms(sFrm).DefaultView = 1  ' Continuous form 
    ' DoCmd.Save acForm, sFrm   ' optional 
    ' Switch back to Form view 
    DoCmd.OpenForm sFrm, acNormal 

End Sub 

虽然我想知道：通常一个表单是为连续或单一形式设计的。我很难想象这个开关的用例。

Answer 2

第一个问题是您无法在数据表视图中显示按钮，因此您可能必须使用Dbl_Click事件。

在任何方面，这样的事情：

Private Sub SwitchView_Click() 

Select Case Me.CurrentView 
    Case 1 
      'Currently in form view 
      DoCmd.RunCommand acCmdDesignView 
    Case 2 
      'Currently in datasheet view 
      DoCmd.RunCommand acCmdFormView 
    Case Else 
      'Must be design view (0) or some as yet undefined view 
      'So do nothing. 
End Select