Event Code

[ladybug via AccessMonster.com]

I have a form called "EmpRpt". It has three fields. First field is
"chrUserID, " this is a combo box with a row source from another table. The
Second Field is "BeginDate. " The Third field is "EndDate."

I then have a command button. I want to put a code in this buttons on click
event. The code should open up a report called "EmpRpt."

The report will have the three fields just like the form. I want those three
fields to appear with the data the user entered in the form. I would also
like this report to open in print preview.

Can someone please help me with a code? Thank you!

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[Allen Browne]

See:
Print the record in the form
at:
http://allenbrowne.com/casu-15.html

Note that your table must have a primary key so you can be certain the
report has the same record.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"ladybug via AccessMonster.c om" <u21071@uwewrot e in message
news:767016588c ee4@uwe...

>I have a form called "EmpRpt". It has three fields. First field is
"chrUserID, " this is a combo box with a row source from another table.
The
Second Field is "BeginDate. " The Third field is "EndDate."

I then have a command button. I want to put a code in this buttons on
click
event. The code should open up a report called "EmpRpt."

The report will have the three fields just like the form. I want those
three
fields to appear with the data the user entered in the form. I would also
like this report to open in print preview.

Can someone please help me with a code? Thank you!

[Salad]

ladybug via AccessMonster.c om wrote:

I have a form called "EmpRpt". It has three fields. First field is
"chrUserID, " this is a combo box with a row source from another table. The
Second Field is "BeginDate. " The Third field is "EndDate."

I then have a command button. I want to put a code in this buttons on click
event. The code should open up a report called "EmpRpt."

The report will have the three fields just like the form. I want those three
fields to appear with the data the user entered in the form. I would also
like this report to open in print preview.

Can someone please help me with a code? Thank you!

You could create a query called EmpRpt. Add the 2 tables (since the
combo is linked) you use and drag down the fields you want from the 2
tables. Save the query.

Go to Reports, click New, and use the ReportWizard. Select the query
EmpRpt. Follow the steps to create the report. Save it as EmpRpt.

Now in your command button you open the property sheet to the event tab
and select the OnCLick event. You could enter
Docmd.OpenRepor t "EmpRpt",acView Preview

You can filter it as well. Lets say you have a field called EmpID and
it is numeric. You could enter
Docmd.OpenRepor t "EmpRpt",acView Preview,,"EmpID = " & Me.chrUserID
and this will display the report for the current empid.

Now it's possible you might open a report where all of the data has not
been saved. If this were a new record, the report might even say no
data exists! So sometimes you might want to save the record first
before displaying a report. Your code might look like this
If Me.Dirty then Me.Dirty = False
Docmd.OpenRepor t...
or
If Me.Dirty then DoCmd.RunComman d acCmdSaveRecord
Docmd.OpenRepor t...

[ladybug via AccessMonster.com]

I did what you gave me and I rcvd an error that I have entered an expression
that has an invalid reference to the property dirty. I took out that section
of the code and it opens the report, but no data is captured. Here is the
code I have:

Private Sub Command6_Click( )
Dim strWhere As String

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[chrUserId] = " & Me.[chrUserID]
DoCmd.OpenRepor t "EmpRpt", acViewPreview, , strWhere
End If
End Sub
Allen Browne wrote:

>See:
Print the record in the form
at:
http://allenbrowne.com/casu-15.html

Note that your table must have a primary key so you can be certain the
report has the same record.

>>I have a form called "EmpRpt". It has three fields. First field is
"chrUserID, " this is a combo box with a row source from another table.

[quoted text clipped - 11 lines]

>>
Can someone please help me with a code? Thank you!

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[ladybug via AccessMonster.com]

What two tables? There is no table for the dates they are just text fields.
Salad wrote:

>I have a form called "EmpRpt". It has three fields. First field is
"chrUserID, " this is a combo box with a row source from another table. The

[quoted text clipped - 8 lines]

>>
Can someone please help me with a code? Thank you!

You could create a query called EmpRpt. Add the 2 tables (since the
combo is linked) you use and drag down the fields you want from the 2
tables. Save the query.

Go to Reports, click New, and use the ReportWizard. Select the query
EmpRpt. Follow the steps to create the report. Save it as EmpRpt.

Now in your command button you open the property sheet to the event tab
and select the OnCLick event. You could enter
Docmd.OpenRepor t "EmpRpt",acView Preview

You can filter it as well. Lets say you have a field called EmpID and
it is numeric. You could enter
Docmd.OpenRepor t "EmpRpt",acView Preview,,"EmpID = " & Me.chrUserID
and this will display the report for the current empid.

Now it's possible you might open a report where all of the data has not
been saved. If this were a new record, the report might even say no
data exists! So sometimes you might want to save the record first
before displaying a report. Your code might look like this
If Me.Dirty then Me.Dirty = False
Docmd.OpenRepor t...
or
If Me.Dirty then DoCmd.RunComman d acCmdSaveRecord
Docmd.OpenRepor t...

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[Allen Browne]

If the form does not have a Dirty property, then it is an unbound form.

If it is an unbound form, then there is no current record to print.

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"ladybug via AccessMonster.c om" <u21071@uwewrot e in message
news:7670a6cdcc 48f@uwe...

>I did what you gave me and I rcvd an error that I have entered an
expression
that has an invalid reference to the property dirty. I took out that
section
of the code and it opens the report, but no data is captured. Here is the
code I have:

Private Sub Command6_Click( )
Dim strWhere As String

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[chrUserId] = " & Me.[chrUserID]
DoCmd.OpenRepor t "EmpRpt", acViewPreview, , strWhere
End If
End Sub
Allen Browne wrote:

>>See:
Print the record in the form
at:
http://allenbrowne.com/casu-15.html

Note that your table must have a primary key so you can be certain the
report has the same record.

>>>I have a form called "EmpRpt". It has three fields. First field is
"chrUserID, " this is a combo box with a row source from another table.

[quoted text clipped - 11 lines]

>>>
Can someone please help me with a code? Thank you!

[Salad]

ladybug via AccessMonster.c om wrote:

What two tables? There is no table for the dates they are just text fields.

You stated "First field is "chrUserID, " this is a combo box with a row
source from another table..."

So I figured 2 tables were in play. Sometimes combos can have multiple
columns and I figured the data in the combo might be used as well as the
other fields.

>
Salad wrote:

>>>I have a form called "EmpRpt". It has three fields. First field is
"chrUserID ," this is a combo box with a row source from another table. The

[quoted text clipped - 8 lines]

>>>Can someone please help me with a code? Thank you!

You could create a query called EmpRpt. Add the 2 tables (since the
combo is linked) you use and drag down the fields you want from the 2
tables. Save the query.

Go to Reports, click New, and use the ReportWizard. Select the query
EmpRpt. Follow the steps to create the report. Save it as EmpRpt.

Now in your command button you open the property sheet to the event tab
and select the OnCLick event. You could enter
Docmd.OpenRepor t "EmpRpt",acView Preview

You can filter it as well. Lets say you have a field called EmpID and
it is numeric. You could enter
Docmd.OpenRepor t "EmpRpt",acView Preview,,"EmpID = " & Me.chrUserID
and this will display the report for the current empid.

Now it's possible you might open a report where all of the data has not
been saved. If this were a new record, the report might even say no
data exists! So sometimes you might want to save the record first
before displaying a report. Your code might look like this
If Me.Dirty then Me.Dirty = False
Docmd.OpenRepor t...
or
If Me.Dirty then DoCmd.RunComman d acCmdSaveRecord
Docmd.OpenRepor t...

[ladybug via AccessMonster.com]

So why do I get the error for the Dirty property?

Allen Browne wrote:

>If the form does not have a Dirty property, then it is an unbound form.

If it is an unbound form, then there is no current record to print.

>>I did what you gave me and I rcvd an error that I have entered an
expression

[quoted text clipped - 27 lines]

>>>>
Can someone please help me with a code? Thank you!

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[ladybug via AccessMonster.com]

The dates do not come from a table. This is just a form which sets the
criteria that will be used when opening the report.

Salad wrote:

>What two tables? There is no table for the dates they are just text fields.

You stated "First field is "chrUserID, " this is a combo box with a row
source from another table..."

So I figured 2 tables were in play. Sometimes combos can have multiple
columns and I figured the data in the combo might be used as well as the
other fields.

>>>>I have a form called "EmpRpt". It has three fields. First field is
"chrUserID, " this is a combo box with a row source from another table. The

[quoted text clipped - 28 lines]

>>> If Me.Dirty then DoCmd.RunComman d acCmdSaveRecord
Docmd.OpenRepor t...

--
Message posted via AccessMonster.c om
http://www.accessmonster.com/Uwe/For...ccess/200708/1

[Allen Browne]

If the error is as you said - invalid reference to the property dirty - it
is because your form is unbound.

(If the error said you can't set the property, it's because the record
cannot be saved.)

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"ladybug via AccessMonster.c om" <u21071@uwewrot e in message
news:7671418c98 553@uwe...

So why do I get the error for the Dirty property?

Allen Browne wrote:

>>If the form does not have a Dirty property, then it is an unbound form.

If it is an unbound form, then there is no current record to print.

>>>I did what you gave me and I rcvd an error that I have entered an
expression

[quoted text clipped - 27 lines]

>>>>>
Can someone please help me with a code? Thank you!