Open Form In Datasheet View

[burrina]

I need to open this form in datasheet view using my criteria. How can I edit the DoCmd.OpenForm code to do this? Having a Senior moment!

Code: Select all

 Dim stDocName As String
    Dim stLinkCriteria As String

   On Error GoTo cmdhistory_Click_Error

    stDocName = "frmPatientHistory"
    
    stLinkCriteria = "[Patient]=" & "'" & Me![cbosearch] & "'"
        DoCmd.OpenForm stDocName, , , stLinkCriteria

[HansV]

Change the OpenForm line like this:

Code: Select all

    DoCmd.OpenForm stDocName, acFormDS , , stLinkCriteria

acFormDs as second argument specified DataSheet view.

[burrina]

Many Thanks. First cup of Coffee did not work!