Command Button problem - Access 2003

[KrazyKasper]

I created two Command buttons in a form, one to preview the entire report and one to "cancel" or exit the form. They both work. I'm trying to create a third Command button to select/filter data from the report. My code to filter the data is:

Private Sub SelectedContrac t_Click()
On Error GoTo Err_SelectedCon tract_Click

strFilter = "[LeaseMasterCont ractId] = '" & Me![LeaseMasterCont ractId] & "'"
DoCmd.OpenRepor t "OPTIMIZEIT-Audit1", acViewPreview, , strFilter

Exit_SelectedCo ntract_Click:
Exit Sub

Err_SelectedCon tract_Click:
MsgBox Err.Description
Resume Exit_SelectedCo ntract_Click

End Sub

I get the error message "Cannot find the field 'LeaseMasterCon tractId' referred to in your expression." I know the field name and report name are correct. I'm not very knowledgeable about VBA so I appreciate any help you can provide.

Krazy

[Dököll]

I created two Command buttons in a form, one to preview the entire report and one to "cancel" or exit the form. They both work. I'm trying to create a third Command button to select/filter data from the report. My code to filter the data is:

Private Sub SelectedContract_Click()
On Error GoTo Err_SelectedContract_Click
 
strFilter = "[LeaseMasterContractId] = '" & Me![LeaseMasterContractId] & "'"
DoCmd.OpenReport "OPTIMIZEIT-Audit1", acViewPreview, , strFilter
 
Exit_SelectedContract_Click:
    Exit Sub
 
Err_SelectedContract_Click:
    MsgBox Err.Description
    Resume Exit_SelectedContract_Click
 
End Sub
 
 

I get the error message "Cannot find the field 'LeaseMasterCon tractId' referred to in your expression." I know the field name and report name are correct. I'm not very knowledgeable about VBA so I appreciate any help you can provide.

Krazy

Greetings, KrazyKasper!

Have you tried having your wizard create certain buttons for you?

Here is what I have working to exit my database:

 
Private Sub QuitMeNow_Click()
On Error GoTo Err_QuitMeNow_Click
 
 
    DoCmd.Quit
 
Exit_QuitMeNow_Click:
    Exit Sub
 
Err_QuitMeNow_Click:
    MsgBox Err.Description
    Resume Exit_QuitMeNow_Click
 
End Sub
 
 

Nothing fancy just add code under your button named QuitMeNow
Here is what I ahve to pull up my reports, same deal created through wizard:

 
'Opens Open Report
Private Sub OpenOpenReport_Click() ' this is your button
On Error GoTo ErrHandler
  DoCmd.OpenReport "OpenMeReport", acPreview, acEdit
ErrHandler:
   Exit Sub
End Sub
 
 

I actually have a bit of code with the report using the On No Data procedure pane that'll allow report to not load when empty, thus get to your report in design view and add the additional info so it works well with the code above:

 
Option Compare Database
 
 
Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ErrHandler
ErrHandler:
MsgBox "Sorry! There are no records to display for this report." & vbCrLf & vbCrLf & _
               "Please be sure data available in the system to continue...", vbInformation + vbOKOnly, _
               "Data Central Report Error"
   Cancel = True
   Exit Sub
End Sub
 

Hope this helps you:-)

In a bit!

Dököll

[Fiddler2]

I created two Command buttons in a form, one to preview the entire report and one to "cancel" or exit the form. They both work. I'm trying to create a third Command button to select/filter data from the report. My code to filter the data is:

Private Sub SelectedContrac t_Click()
On Error GoTo Err_SelectedCon tract_Click

strFilter = "[LeaseMasterCont ractId] = '" & Me![LeaseMasterCont ractId] & "'"
DoCmd.OpenRepor t "OPTIMIZEIT-Audit1", acViewPreview, , strFilter

Exit_SelectedCo ntract_Click:
Exit Sub

Err_SelectedCon tract_Click:
MsgBox Err.Description
Resume Exit_SelectedCo ntract_Click

End Sub

I get the error message "Cannot find the field 'LeaseMasterCon tractId' referred to in your expression." I know the field name and report name are correct. I'm not very knowledgeable about VBA so I appreciate any help you can provide.

Krazy

The field name must be in the dataset behind the form and on the form itself to be "seen" in your code. Is it there? Also, perhaps an easier way to pull this off is to parameterize your report query and reference the field on your form. To open the report, you'll only need the line you have to open the report as the filter will be "built in" to the query behind the report.

[KrazyKasper]

Got it done.
Thanks for your help.

Krazy (Bill) Kasper