I found the answer if anyone every needs it
Private Sub Command31_Click()
DoCmd.SetWarnings False
If MsgBox("Would you like to see summary version", vbYesNo, "title") = vbYes Then
DoCmd.OpenReport "claimsbypartno/warrantycode-product summary", acViewPreview
Else
DoCmd.OpenReport...