Print Command Button - Report Not Populating with New Data

[MayaMia]

Hello. I recently setup a database with a form that contains a command button to print a report (actually there are many command buttons tied to different reports.) All worked fine, so I moved the database to a different location on the network (not sure if this has anything to do with my problem, but I thought I'd make you aware of it) for others to begin using. Now, when I use the form to enter a new record, the reports do not populate with any data from the new record; however, if I pull up one of the older records (which I entered while testing the database and before I moved it) the reports populate with the data. It's like any new records entered are not pulling through to the reports. I need to be able to print the report with ONLY the current record shown on the form; not all records in the query. Also, I need to be able to print the report with the data right after it is entered into the form. The code tied to the command button is:



Private Sub VocSurvey_Click()
On Error GoTo Err_VocSurvey_Click
Dim strDocName As String
Dim strWhere As String
strDocName = "Vocational Survey"
strWhere = "[ClaimNumber]='" & Me!ClaimNumber & "'"
DoCmd.OpenReport strDocName, acNormal, , strWhere
Exit_VocSurvey_Click:
Exit Sub
Err_VocSurvey_Click:
MsgBox Err.Description
Resume Exit_VocSurvey_Click

End Sub

I appreciate any help or advice you can give me. Thank you.

[Missinglinq]

...Now, when I use the form to enter a new record, the reports do not populate with any data from the new record...

...it's like new records entered are not pulling through to the reports...

Private Sub VocSurvey_Click()
On Error GoTo Err_VocSurvey_Click

    Dim strDocName As String
    Dim strWhere As String
       
     strDocName = "Vocational Survey"

     strWhere = "[ClaimNumber]='" & Me!ClaimNumber & "'"

     DoCmd.OpenReport strDocName, acNormal, , strWhere

Exit_VocSurvey_Click:
     Exit Sub

Err_VocSurvey_Click:
     MsgBox Err.Description
     Resume Exit_VocSurvey_Click
    
End Sub

That's because the 'New Record' doesn't exist! At the point in time where you're clicking on the VocSurvey ('print') button, the Record has not been Saved/Committed! In your code, just below your Dim Statements, add the line in Red and see what happens:

Private Sub VocSurvey_Click()
On Error GoTo Err_VocSurvey_Click

    Dim strDocName As String
    Dim strWhere As String

    DoCmd.RunCommand acCmdSaveRecord
    
    strDocName = "Vocational Survey"

    strWhere = "[ClaimNumber]='" & Me!ClaimNumber & "'"

    DoCmd.OpenReport strDocName, acNormal, , strWhere

Exit_VocSurvey_Click:
    Exit Sub

Err_VocSurvey_Click:
    MsgBox Err.Description
    Resume Exit_VocSurvey_Click
    
End Sub

Linq ;0)>

[June7]

Keep in mind that record entry/edit is committed to table when form closes, move to another record, or run code. So Linq is probably on the mark for your issue and solution.

[MayaMia]

Thank you for your responses. I added the line in red as indicated, but it did not correct the problem. I have even closed the form, reopened it AND closed the entire database and reopened it; neither one of these steps helped. The NEW data is still not populating on the form when I use the command button (but the old data does.) I opened the actual report through the Reports link on the Objects menu (not through the form) and the report contained the new data amd printed with it correctly. Unfortunately, I need this form to work with the command buttons as the people who will be using the database are not experienced enough to navigate through Access. It seems as though there is a disconnect between the new data, forms, and/or reports. I keep thinking it has something to do with moving the database, because everything worked perfectly before I moved it.....but I am also not an expert (or even close.) : ) Any help or ideas you can give me would be greatly appreciated. Thank you.

[June7]

You mean none of the records added since the move show, not just the latest record? This is odd.

Want to provide db for analysis? Follow instructions at bottom of my post.

[MayaMia]

Claims Follow Up Database - Copy.zip

You mean none of the records added since the move show, not just the latest record? This is odd.

Want to provide db for analysis? Follow instructions at bottom of my post.

Here is a copy of the db (if I attached it correctly.) Thank you!!

[June7]

You are using ClaimNumber as the criteria but this is not a required field in the Claims table. Either make this the PK and a required field or use the ClaimID autonumber which is set as PK as the report criteria.
strWhere = "[ClaimID]=" & Me!ClaimID

[MayaMia]

You are using ClaimNumber as the criteria but this is not a required field in the Claims table. Either make this the PK and a required field or use the ClaimID autonumber which is set as PK as the report criteria.
strWhere = "[ClaimID]=" & Me!ClaimID

That solved my problem. Thank you so much!!!