MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click Dim iViewMode As Integer Dim stDocName As String Dim strFilter As String Forms.frmTrip.Dirty = False 'save the record before printing stDocName = "rptTrip" strFilter = "[IDtrip] = Forms!frmTrip!IDtrip" Select Case MsgBox("Preview report before printing?", vbQuestion Or vbYesNoCancel) Case vbYes DoCmd.OpenReport stDocName, acViewPreview, , strFilter Case vbNo DoCmd.OutputTo acOutputReport, "rptTrip", acFormatRTF 'DoCmd.OpenReport stDocName, acViewNormal, , strFilter Case vbCancel GoTo Exit_cmdPrint_Click End Select Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End Sub
|combo box query||6||17|
|How can I force a specific field to it's default value on a certain date?||18||29|
|database opened as read only||10||24|
|How to use vba to split the text of a first name and last name into two separate fields to add to another form.||3||24|