Conditional Statement

[fucell26]

guys i have this code

DoCmd.OpenReport "MainReport", acViewPreview, , RCriteria

now my problem is what if the MainReport is open. i dont the exact syntax of conditional statement if the report is open.

its like if the vba finds out that the report template is still open, there should be a message like Msgbox " please close the report first"

thanks..

fucell

[June7]

Can't user see that the report is still open? Why would they try to open it again?

Try:

If CurrentProject.AllReports("report name").IsLoaded Then

[fucell26]

actually what my macro doing is to query a table and then after query call a report template and then print. but the form is still open so that they can search a new query again. And usually the user forgot to close the report and when they are trying to generate a report again, program will not do anything because its open. that's why i need the conditional statement.

Anyhow thank you and I will try your code.

fucell

[Z1nkstar]

Here is what I have found you said you wanted a msg box that says error you need to close report first well here are 2 different ways you can make a great msg box:
1.This one is more less simple gives a statement and a yes or no feature

If MsgBox("This is What the MSGBOX will say!!!", vbQuestion + vbYesNo, "This is What you want it to do") = vbYes Then
DoCmd.RunCommand 'Make Sure you run whatever Command you chose to do
End If

2.More advanced that has a 3 button layout same concept.

On Error GoTo Err_bSave_Click


    Me.tbHidden.SetFocus


    If IsNull(tbFirstName) Or IsNull(tbLastName) Then
        Beep
        MsgBox "All required fields must be completed before you can save a record.", vbCritical, "Invalid Save"
        Exit Sub
    End If


    Beep
    Select Case MsgBox("Do you want to save your changes to the current record?" & vbCrLf & vbLf & "  Yes:         Saves Changes" & vbCrLf & "  No:          Does NOT Save Changes" & vbCrLf & "  Cancel:    Reset (Undo) Changes" & vbCrLf, vbYesNoCancel + vbQuestion, "Save Current Record?")
        Case vbYes: 'Save the changes
            DoCmd.RunCommand acCmdSaveRecord


        Case vbNo: 'Do not save or undo
            'Do nothing


        Case vbCancel: 'Undo the changes
            DoCmd.RunCommand acCmdUndo


        Case Else: 'Default case to trap any errors
            'Do nothing
    End Select


Exit_bSave_Click:
    Exit Sub


Err_bSave_Click:
    If Err = 2046 Then 'The command or action Undo is not available now
        Exit Sub
    Else
        MsgBox Err.Number & " - " & Err.Description
        Resume Exit_bSave_Click
    End If