Go Back   Access World Forums > Apps and Windows > SQL Server

 
Reply
 
Thread Tools Rate Thread Display Modes
Old 09-18-2017, 12:50 PM   #16
98jbsz
Newly Registered User
 
Join Date: Sep 2017
Posts: 8
Thanks: 6
Thanked 0 Times in 0 Posts
98jbsz is on a distinguished road
Re: Barcode

Quote:
Originally Posted by arnelgp View Post
I am using qrcode in excel through automation. Upload your excel and I'll write a small sample db.
Thank you very much, really a big help.
Attached Files
File Type: xls UPC-AGenerator.xls (18.5 KB, 15 views)

98jbsz is offline   Reply With Quote
Old 09-19-2017, 09:35 PM   #17
arnelgp
Newly Registered User
 
arnelgp's Avatar
 
Join Date: May 2009
Location: somewhere out there
Posts: 4,969
Thanks: 50
Thanked 1,659 Times in 1,580 Posts
arnelgp is a jewel in the rough arnelgp is a jewel in the rough arnelgp is a jewel in the rough
Re: Barcode

Sample of UPC A barcode.
This is in Access 2016 x64.
Attached Files
File Type: zip aaupcASample.zip (286.7 KB, 19 views)
__________________
"Never stop learning, because life never stops teaching"
arnelgp is offline   Reply With Quote
The Following User Says Thank You to arnelgp For This Useful Post:
98jbsz (09-19-2017)
Old 09-20-2017, 12:45 PM   #18
98jbsz
Newly Registered User
 
Join Date: Sep 2017
Posts: 8
Thanks: 6
Thanked 0 Times in 0 Posts
98jbsz is on a distinguished road
Re: Barcode

Quote:
Originally Posted by arnelgp View Post
Sample of UPC A barcode.
This is in Access 2016 x64.
Thanks, this an amazing job. it will help me out a lot.


Last edited by 98jbsz; 10-29-2017 at 02:06 AM.
98jbsz is offline   Reply With Quote
Old 10-29-2017, 02:05 AM   #19
98jbsz
Newly Registered User
 
Join Date: Sep 2017
Posts: 8
Thanks: 6
Thanked 0 Times in 0 Posts
98jbsz is on a distinguished road
Re: Barcode

Update:

i used vba to Finnish my database.
here is the code i used
Code:
Private Sub Command49_Click()
      If Not IsNull(Forms!Main!UPC) Then: Exit Sub
   If IsNull(Forms!Main!Code) Then: Exit Sub
   
   Dim objExcel As Object
    Dim objWorkBook As Object
    Dim objExcelSheet As Object
    
    
    If (objExcel Is Nothing) Then
    Set objExcel = CreateObject("Excel.Application")
        objExcel.Visible = False
        End If
        If objWorkBook Is Nothing Then
        Set objWorkBook = objExcel.Workbooks.Open("M:\UPCAGenerator.xls")
          End If
            With objWorkBook
        Set objExcelSheet = .Sheets(1)
        objExcelSheet.Range("C2") = Forms!Main!Code
        Forms!Main!UPC = objExcelSheet.Range("A20")
        objExcel.DisplayAlerts = False
        objWorkBook.Close
        objExcel.Quit
        
        'Clean Up Memory
        Set objExcel = Nothing
        Set objWorkBook = Nothing
        Set objExcelSheet = Nothing
           End With
    
End Sub
98jbsz is offline   Reply With Quote
Old 10-29-2017, 02:09 AM   #20
arnelgp
Newly Registered User
 
arnelgp's Avatar
 
Join Date: May 2009
Location: somewhere out there
Posts: 4,969
Thanks: 50
Thanked 1,659 Times in 1,580 Posts
arnelgp is a jewel in the rough arnelgp is a jewel in the rough arnelgp is a jewel in the rough
Re: Barcode

Wow, congratulation!

__________________
"Never stop learning, because life never stops teaching"
arnelgp is offline   Reply With Quote
Reply

Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How to use barcode gun to scan barcode to ACCESS rickyfong Modules & VBA 2 08-19-2015 07:32 AM
Barcode Lanason General 5 08-15-2014 05:43 AM
Barcode Vinny1512 General 5 07-29-2014 11:51 AM
Barcode help sroot Reports 7 07-23-2014 01:14 PM
Question MS Access and Barcode Scanners / Barcode Label Printers jonathanchye General 4 11-06-2012 07:26 AM




All times are GMT -8. The time now is 01:34 AM.


Microsoft Access Help
General
Tables
Queries
Forms
Reports
Macros
Modules & VBA
Theory & Practice
Access FAQs
Code Repository
Sample Databases
Video Tutorials

Sponsored Links

How to advertise

Media Kit


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
(c) copyright 2017 Access World