Filter records to be printed 1

[DavidDF]

I wish to print part of the current record (not a print screen format) from an Access 2000 form. Here is part of the code:

1 Dim StrDocName As String
2 Dim StrWhere As String

3 StrDocName = "CurrentRecReport"

** the field CustomerNum is a numeric,AutoNumber field
4 StrWhere = Str("CustomerNum]=&quot & me!CustomerNum
5 DoCmd.OpenReport StrDocName,acPreview, StrWhere

I know there is an error in line 4. What should the correct code be? Any help would be appreciated.

David

 

[Rolliee]

David,

In order to tell the compiler that you are choosing a field you should use [..]'s.

StrWhere = "[CustomerNum] = " & me![txtCustomerNum]

The brackets tell the compiler to look for a field. Note the left hand entity and the right hand entity must be different or you are saying: "When I am I or when 2 = 2"

I supposed that you had a textbox associated with the form which is aliased by 'me.'

rollie@bwsys.net

 

[David27]

Thank you so much! I changed your suggestion a little and it worked within a couple of minutes. Here is what I did:

StrWhere = "[CustomerNum] = " & Me![CustomerNum]
DoCmd.OpenReport StrDocName,,, StrWhere

Extra commas in DoCmd line are placeholds so StrWhere is
recognized. It printed current record in the label report format I had already set up.

Since I want this to print as an envelope I want to add landscape code prior to printing then portrait after printing to set printer back to normal (I am using an HP PhotoSmart printer and operating system is Win XP Prof).
Thanks again!

David