Solved: Change default view

[Cass]

How to change form defaultview depending user answer

Private Sub Form_Open(Cancel As Integer)
Dim kys
kys = MsgBox("Question ...", vbDefaultButton2 + vbYesNo + vbQuestion, "Title")
If kys = 6 Then ' by default is single form
Me.DataEntry = True

Else
Me.DataEntry = False
' this part dosn't work
Me.DefaultView = 2 ' datasheet
End If

End Sub

[omocaig]

this should work for you...

Private Sub Form_Open(Cancel As Integer)
Dim kys
Dim frmName As String

If IsNull(Me.OpenArgs) Then
kys = MsgBox("Question ...", vbDefaultButton2 + vbYesNo + vbQuestion, "Title")

If kys = 6 Then ' by default is single form
Me.DataEntry = True

Else
frmName = Me.Name
DoCmd.Close
DoCmd.OpenForm frmName, acFormDS, , , acFormReadOnly, acWindowNormal, "bla bla bla"
End If
End If
End Sub

hth,
Giacomo