Report from Form. Help with VBA Code

[CrostonScottish]

I wonder if anybody can help me with this problem i have. I have the code below on the click property for a command button at the bottom a form i have so that when somebody has populated the form with some data they can click the command button to preview a copy of the form as a report, then print if desired.

Private Sub Command85_Click()
    Dim strReportName As String
    Dim strCriteria As String
 
    If NewRecord Then
        MsgBox "This record contains no data." _
             , vbInformation, "Invalid Action"
        Exit Sub
    Else
        strReportName = "rptRiskAss"
        strCriteria = "[ReferenceNumber]= " & Me![ReferenceNumber]
 
 
        DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
 
    End If
End Sub

However when a new form is opened for data entry via a macro, the MsgBox appears as in the code above, even though data is entered in the form. How do i change the code to recognise the form with some added data as NOT a new record?

[cyberdwarf]

Hi

How are you checking for a new record?

Steve

[CrostonScottish]

Sorry! A bit new to this and not sure what you are asking.
The macro attached to my command button in the switchboard opens a blank form as it is set to Add in the criterea. Not sure why the form is recognised as new record if some of the txt boxes are completed before running this code.

Hi

How are you checking for a new record?

Steve

[Denburt]

However when a new form is opened for data entry via a macro, the MsgBox appears as in the code above, even though data is entered in the form. How do i change the code to recognise the form with some added data as NOT a new record?

Are you trying to say that when you click this button to try and retrieve the report that you see the message box?

In the beginning of your routine add the following:

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdSave
 
 

[CrostonScottish]

Thanks. It now does exactly what is says on the tin!
I know it had to be just a matter of a couple of lines of code. Easy when you know how.

Thanks

[Denburt]

Not a problem glad it is working for you.