VBA barcode code generator not working

I have no printer but it prints fine as PDF.
maybe add same to the Format event of the report:

=Barcode_39([theHiddenTextboxName], [Report])
 
arnelgp said:
I have no printer but it prints fine as PDF.
maybe add same to the Format event of the report:

=Barcode_39([theHiddenTextboxName], [Report])
Click to expand...
I am sorry to bother all of you with me, I tried it's the same not working.
maybe something related to this line? Const White = 16777215: Const Black = 0
 
Alhakeem1977 said:
I am sorry to bother all of you with me, I tried it's the same not working.
maybe something related to this line? Const White = 16777215: Const Black = 0
Click to expand...
Hi. I am not sure why you're focusing on the code. Didn't you say this same code works for you at home? If so, maybe try to find out what's different between your office and home machines. Just a thought...
 
Uncle Gizmo said:
To clear up any possible misunderstandings. The fact that it works on the 32-bit and not 64-bit indicates there is a problem with 64-bit which is not uncommon when upgrading very old code as I think you appreciate. However, I couldn't see any of The Usual Suspects. Now completely by accident I removed layout-mode and the barcode disappeared. I'm wondering if your report could be suffering from the same problem. Please check in your report, are the fields that display the barcode in layout mode? You should be able to get an idea how to do this if you look at my video. Alternatively, as some people don't have access to YouTube at work follow this procedure:-

Open the report in design view and select the text box (and its Label) which if you followed the instructions in the code the Textbox should be named "Barcode", if you've changed the name then select the text box with your new name (it should be the invisible text box)...


Make sure you have Selected the Text box and its Label. Right-click, and in the menu options that appear select from the third block of options down, the bottom option "Layout".. From the choices provided select "Tabular" ... Close and save the report and then click the:- "Print Preview" button and see if it now displays the barcode correctly...
Click to expand...
Thank you so much, I will try it and let you know.
I am sure it will work.
 
Uncle Gizmo said:
Ditto
Click to expand...
Thanks again Uncle Gizmo, I followed your procedure in the post 32
Open the report in design view and select the text box (and its Label) which if you followed the instructions in the code the Textbox should be named "Barcode", if you've changed the name then select the text box with your new name (it should be the invisible text box)...
Make sure you have Selected the Text box and its Label. Right-click, and in the menu options that appear select from the third block of options down, the bottom option "Layout".. From the choices provided select "Tabular" ... Close and save the report and then click the:- "Print Preview" button and see if it now displays the barcode correctly...
Click to expand...

Actually the benefit of this code is that you can generate Barcode (Code_39) don't need to install the barcode font to the users (Embedded Barcode).

I am wondering is it possible to get the same Embedded VBA 2D QR code?
 
I will explore that.
Thank you so much, appreciate your usual help.
 
I use the free 3to9 font.
I deploy it wherever I put my db

Clean and easy :)
 
Uncle Gizmo said:
Could be this Link:-
blog.ambor.com

Create QR Codes in Excel (or any Spreadsheet)

blog.ambor.com blog.ambor.com

And Here some VBA:-
github.com

barcode-vba-macro-only/barcody.bas at master · JonasHeidelberg/barcode-vba-macro-only

Barcode generator for LibreOffice and MSOffice as pure VBA macro... with a critical bug fixed compared to the version on code.google.com - JonasHeidelberg/barcode-vba-macro-only
github.com github.com
Click to expand...
Thanks Uncle Gizmo for your attention. I think the second code will fit my desired, that I searched a lot of threads and tried many of them almost generate the QR code but unfortunately, it's not stand alone codes, the user machine should be connected to the internet, and it will not work in our office environment, hence, I think this code will help me to generate a stand alone MS Access application, how can I call this code means from a text box in my form or report to be printed? Please when you get free time, I would appreciate your help.
Thanks in advance!
 
Uncle Gizmo said:
I don't know!

You already have the code for putting a single line inside a textbox and displaying it on the report. I don't understand this process, and and I haven't investigated it to see how it works.

But printing it, that's your starting point, can you print it? You need to see if you can convert the line into a square, as a square is the basic element of a QR Code. You need to prove that this method can produce a square.

Next you need to know if you can add extra Lines with this method. Can you add a line of squares followed by another line of squares underneath?

If you discover you can, then you need to decide on the size of of QR code you wish to create.

The size of the QR code you need to create will depend on the information you want to present with it. Follow this link here for more information:- https://www.qrcode.com/en/about/version.html

Let's assume you need a 25 by 25 QR code. That means you need to be able to add 25 squares across and 25 squares down in your text box.

If you achieve this, then you need to check that you can control the appearance of the squares with some simple tests. Can you print every other square so you have a chequerboard effect? If you can achieve that, then you are probably going to be able to take it further.

The next stage is to start deciphering the VBA code to see how it it modifies the Excel spreadsheet. Then see if you can apply that VBA code to the process of adding the lines in the text box..

None of this is trivial, but it is small/manageable steps, but it will take many hours, probably weeks and many iterations until you perfect it.

But first of all you have to prove that it is possible to modify what you present in the text box.

If you decide to undertake this project I suggest you start a new thread in Access World Forums. I'm sure that if you show willing to take on this project you will get some of the best help available. Also I wouldn't be too restricted in how you want to approach this, as there are many people here who have vast experience and might be able to steer you in a completely different direction.
Click to expand...
Thank you so much, I will do my best to try that later, unfortunately, my wife got sick and I will not get enough time to implement this. But once my wife recovered from her sickness, I will follow the steps you provided and let you know the result.
Thanks again for your efforts.
 
I've been lurking and have yet to say anything yet because I haven't had time to try it ... I'm quite sure barcodes can be made with the Access Line method, and characters written using Print. Here is a presentation on my free CalendarMaker tool, which uses both of these methods:

CalendarMaker presentation to AccessUserGroups, hosted by Dale Fye, on YouTube (49:05):

and you can download the CalendarMaker ACCDB here:
https://msaccessgurus.com/tool/CalendarMaker.htm

Coordinates are relative to what section the code is attached to (the CalendarMaker uses Page).

best wishes for everyone to be in good health
 
Uncle Gizmo said:
That's good to know thank you Crystal. Would you have any examples that could be adapted to produce 25 by 25 grid of squares in a chequerboard pattern to test the possibility of producing a QR code?
Click to expand...

not yet, but now its on my rather long to-do when I get some spare time list ;)
 
Good evening @Alhakeem1977 said of course it's a challenge I'm facing I use Ms Access to generate a list that must have this QRcode that's why I'm looking for this vba code that I can adapt in Ms Access, the example given by our friend @arnelgp doesn't work when I don't have when I have more than 5000 data in a table
 
Option Compare Database
Option Explicit

Public Function GenQRCode(ByRef img As Access.Image, anything As Variant) As String

Dim i As Integer, strFile As String

If Not (IsFormLoaded("hiddenForm")) Then
DoCmd.OpenForm "hiddenForm", , , , , acHidden
End If

SysCmd acSysCmdSetStatus, "Generating QRCode..."

With gxlWB
.Sheets(12).Cells(1, 1).Value = genPictPath()
.Sheets(1).textbox1.Value = anything & ""
.Sheets(1).textbox1_change
'.Sheets(1).Range("A1").Value = _
' DLookup("RefNo", Me.RecordSource)
.Sheets(1).CommandButton1_Click
While gxlApp.CalculationState <> 0 'xlDone
DoEvents
Wend
.Sheets(2).CommandButton1_Click
While gxlApp.CalculationState <> 0
DoEvents
Wend
.Sheets(12).qrtopic
While gxlApp.CalculationState <> 0
DoEvents
Wend
'Debug.Print ""
'For i = 1 To .Sheets.Count
' Debug.Print i & ": " & .Sheets(i).Name
'Next
strFile = .Sheets(12).Cells(1, 1)
End With

img.Picture = strFile
SysCmd acSysCmdClearStatus
GenQRCode = strFile
End Function

Private Function genPictPath() As String
Dim sPath As String
Dim sFile As String
Dim i As Long
i = 1
sPath = TempPath() & "QRCode" & i & ".bmp"
sFile = Dir(sPath)
While sFile <> ""
i = i + 1
sPath = TempPath() & "QRCode" & i & ".bmp"
sFile = Dir(sPath)
Wend
genPictPath = sFile
End Function


here is the code below that makes my computer crash when I put more than 500 data in the table if our friend @arnelgp can help us
 
i have no time to revisit the code.
please see this one.
 

Attachments

Hello @arnelgp thank you very much for your help, would you please allow that when I click on the Generate QRCode button that these codes load directly on the sampleReport and not on the form, thank you also for allowing all the QRcode to be loaded on all the pages of the report because it is a little slow when you want to display the next page, thank you very much for this application we are on the way to find a better solution to this problem, I know you are so busy, I beg you please help us.
 
You must log in or register to reply here.

Similar threads

Rx_
  • Locked
Excel Formatting VBA Automation - Speed Up Code
Replies
1
Views
8,272
Rx_
Rx_
D
Input form barcode scanner.
Replies
2
Views
7,954
KeithG
KeithG
A
Access ADP VBA code works first time. Does not work if run again
Replies
5
Views
5,412
boblarson
boblarson

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom