J
jlig via AccessMonster.com
I have the following code behind my cmdPreview button on a Form:
---------------------------------------------------------------
Private Sub cmdPreview_Click()
On Error GoTo ErrorPreview
Select Case [Frame0]
Case Is = 1
DoCmd.OpenReport "rptCPUpdatedSusp", acViewPreview
Case Is = 2
DoCmd.OpenReport "rptCPUpdatedDisc", acViewPreview
Case Is = 3
DoCmd.OpenReport "rptCPUpdatedReco", acViewPreview
' If you don't chose a default value, this generates a message box if the
user clicks a button without making a selection
Case Else
MsgBox "Please check a service; Suspend, Disconnect or Reconnect?",
vbExclamation, "Reports"
End Select
ExitPreview:
Exit Sub
ErrorPreview:
MsgBox Err.Description
Resume ExitPreview
End Sub
-----------------------------------------------------------
I need to add the following feature:
---------------------------------------------
1) When user clicks the cmdPreview button
2) The frmNotes form opens up,
2) User enters any notes, and clicks CLOSE, which
3) Previews the appropriate report.
---------------------------------------------
Everything works fine now, but I need the User to Choose Option, Enter Notes,
& Preview the Report.
Thanks in advance for your help,
jlig
---------------------------------------------------------------
Private Sub cmdPreview_Click()
On Error GoTo ErrorPreview
Select Case [Frame0]
Case Is = 1
DoCmd.OpenReport "rptCPUpdatedSusp", acViewPreview
Case Is = 2
DoCmd.OpenReport "rptCPUpdatedDisc", acViewPreview
Case Is = 3
DoCmd.OpenReport "rptCPUpdatedReco", acViewPreview
' If you don't chose a default value, this generates a message box if the
user clicks a button without making a selection
Case Else
MsgBox "Please check a service; Suspend, Disconnect or Reconnect?",
vbExclamation, "Reports"
End Select
ExitPreview:
Exit Sub
ErrorPreview:
MsgBox Err.Description
Resume ExitPreview
End Sub
-----------------------------------------------------------
I need to add the following feature:
---------------------------------------------
1) When user clicks the cmdPreview button
2) The frmNotes form opens up,
2) User enters any notes, and clicks CLOSE, which
3) Previews the appropriate report.
---------------------------------------------
Everything works fine now, but I need the User to Choose Option, Enter Notes,
& Preview the Report.
Thanks in advance for your help,
jlig