I am really having a tough time. I need to find a way to print only the current records feilds for address labels.
I have a large data form which has feilds for various contacts. Sometimes several records will have the same contacts. I thought I had this solved with the code below, but it prints out a label for EACH incident that the contact is in the database (if the attorney is in the database on 4 occaisions, I get 4 labels)
Unfortunately my label forms are not query based so I used the code below. Can anyone help me through this.
Private Sub Label370_Click()
On Error GoTo Err_Label370_Click
Dim strCriteria As String
strCriteria = "[QME/AME Information]![attorney]=[Forms]![QME/AME Information]![attorney]"
DoCmd.OpenReport "attorney Label", acViewPreview, , strCriteria
Exit_Label370_Click:
Exit Sub
Err_Label370_Click:
MsgBox Err.Description
Resume Exit_Label370_Click
DoCmd.Close
End Sub
I have a large data form which has feilds for various contacts. Sometimes several records will have the same contacts. I thought I had this solved with the code below, but it prints out a label for EACH incident that the contact is in the database (if the attorney is in the database on 4 occaisions, I get 4 labels)
Unfortunately my label forms are not query based so I used the code below. Can anyone help me through this.
Private Sub Label370_Click()
On Error GoTo Err_Label370_Click
Dim strCriteria As String
strCriteria = "[QME/AME Information]![attorney]=[Forms]![QME/AME Information]![attorney]"
DoCmd.OpenReport "attorney Label", acViewPreview, , strCriteria
Exit_Label370_Click:
Exit Sub
Err_Label370_Click:
MsgBox Err.Description
Resume Exit_Label370_Click
DoCmd.Close
End Sub