Adding Code 128/39 Barcodes to Access Reports

[ssanfu]

@saeedmzm,

You do realize that this thread is almost 2 years old?
What you have done is called "Hi-jacking a thread".


You will have a better chance of getting responses by starting your own thread and referencing this thread if it is relevant.

[MAJORA]

Thank you for this practical case
Thank you for this practical case

[RafeeqQasem]

I want I want help getting a module to create qr Code in Arabic language

[ssanfu]

@RafeeqQasem,

What you have done is called "Hi-jacking a thread" because you asked a question in a thread you did not start.

You will have a better chance of getting responses by starting your own thread and referencing this thread if it is relevant.

[chris3371]

I tried getting this to work but couldnt. I downloaded the free 3 of 9 which worked.

In the Control Source of the text box ="*" & [Your Field] & "*"

[Sunshack]

Code 128 Barcodes
Usage:

• Step 1 - Paste the function below into a VBA Module.
• Step 2 - In your Reports, create a Text Box with the dimensions you want the barcode to fill.
• Step 3 - Set the Text Box's Visible Property to No.
• Step 4 - In the Report Detail's On Print Event, add Result = Barcode_128(Me!MyTextBox, Me). You may need to Define the variable Result as a Boolean first.
• Step 5 - Print out the Report (or view it via "Print Preview") to see your barcode!

Hi!

I am a total beginner, and I am trying to work out how to do Step 4. Ive tried to add the on print event as described, but im not sure what exactly Me!Mytextbox and "Me" is supposed to be. Or if I need to name my module something specifically...I also have no idea how to define the variable result as a Boolean :/

Any help is greatly appreciated! Please spoon feed like you would a 3 year old


NEVER MIND! I FIGURED IT OUT

By reading the description on the Code_39, stuff made a whole lot more sense to me!

[hollsten]

Anyone know how to get 128c (not 128b) barcodes?

[Zaust]

I couldn't get this running but found from the sample db provided that the "On Print" event needed to point to an event procedure. That subroutine should contain the "Result = Barcode_128(Me.MyTextBox,Me)" line - you can't put it directly on the report's print event.

[Welshgasman]

Replied to old post in error.