report by unique identifier

Hi,

I have a command button on a form. The form brings up patient information
by a unique identifier called PatientID. The button calls open to preview
before printing a form a sheet of 30 labels. The problem, is that instead of
bringing up just a sheet for that one patient, it brings up a sheet of 30
labels for every patient.

any help would be appreciated. The code is below.

Private Sub cmdHCPatientLabel_Click()

DoCmd.OpenForm "HC_labels", acNormal, ,
"[forms]![frmPatients]![PatientID]=" & [PatientID]


End Sub

I think try this

DoCmd.OpenForm "HC_labels", acSelection, ,
"[forms]![frmPatients]![PatientID]=" & [PatientID]


"fascal" <fascal@discussions.microsoft.com> wrote in message
news:ACD1F85C-D464-4223-A09C-6EBE68A89514@microsoft.com...
> Hi,
>
> I have a command button on a form. The form brings up patient information
> by a unique identifier called PatientID. The button calls open to preview
> before printing a form a sheet of 30 labels. The problem, is that instead
> of
> bringing up just a sheet for that one patient, it brings up a sheet of 30
> labels for every patient.
>
> any help would be appreciated. The code is below.
>
> Private Sub cmdHCPatientLabel_Click()
>
> DoCmd.OpenForm "HC_labels", acNormal, ,
> "[forms]![frmPatients]![PatientID]=" & [PatientID]
>
>
> End Sub

that opened the form in design view.

"apna" wrote:

> I think try this
>
> DoCmd.OpenForm "HC_labels", acSelection, ,
> "[forms]![frmPatients]![PatientID]=" & [PatientID]
>
>
> "fascal" <fascal@discussions.microsoft.com> wrote in message
> news:ACD1F85C-D464-4223-A09C-6EBE68A89514@microsoft.com...
> > Hi,
> >
> > I have a command button on a form. The form brings up patient information
> > by a unique identifier called PatientID. The button calls open to preview
> > before printing a form a sheet of 30 labels. The problem, is that instead
> > of
> > bringing up just a sheet for that one patient, it brings up a sheet of 30
> > labels for every patient.
> >
> > any help would be appreciated. The code is below.
> >
> > Private Sub cmdHCPatientLabel_Click()
> >
> > DoCmd.OpenForm "HC_labels", acNormal, ,
> > "[forms]![frmPatients]![PatientID]=" & [PatientID]
> >
> >
> > End Sub
>
>
>