msgbox combine

[kitty77]

How do I add these two together in on line?

If ([standard] <> "apple") And ([frequency] = "annual") Then strDocName = "report1"

msgbox "all good"

 

[Eugene-LS]

Use a colon to combine lines

If (Me.standard <> "apple") And (Me.frequency = "annual") Then strDocName = "report1": msgbox "all good", vbInformation

 

[Pat Hartman]

Writing code that has multiple instructions on a single line isn't more efficient and it is extremely difficult for the reader to parse correctly.
Best practice is:

If (Me.[standard] <> "apple") And (Me.[frequency] = "annual") Then
    strDocName = "report1"
    msgbox "all good"
End If

 

[kitty77]

Thanks