איך עושים ברקוד באקסס ללא ActivX

[yits]

שלום
אני השתמשתי עד היום עם ברקוד של BarCodeWiz וזה קובץ DLL שמזוהה כ ActieX וצריך להוסיף אותו ל Reference בפרוייקט.
אני מעוניין להפסיק להשתמש עם תוספות חיצוניות ורפרנסים (שעושים בעיות במחשבים שונים וכדו').
מצאתי קוד VBA עבור אקסל שהוא ניגש לוורד (ללא רפרנס אלא באובייקט) ומקבל משם את DISPLAYBARCODE.

השאלה היא איך ממירים את הקוד ל Access.

זה קישור לקוד:
https://stackoverflow.com/questions/40790010/how-to-generate-barcodes-in-excel-worksheet

Sub INSERT_BARCODE()
    Const BarcodeWidth As Integer = 156
    Dim ws As Worksheet, WdApp
    Set ws = ActiveSheet
    Set WdApp = CreateObject("Word.Application")
    With WdApp.Documents.Add
        .PageSetup.RightMargin = .PageSetup.PageWidth - .PageSetup.LeftMargin - BarcodeWidth
        .Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr(Selection.Value) & " CODE39 \d \t", PreserveFormatting:=False).Copy
    End With
    ws.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
    WdApp.Quit SaveChanges:=False
    Set WdApp = Nothing
End Sub

[clickone]

@yits אתה רוצה להמיר מספר לברקוד?
או לקבל ברקוד ולדעת מה המספר שלו?

אם האפשרות הראשונה היא הנכונה, למה שלא תשתמש בגופן ברקוד? זה הכי פשוט וקל

[clickone]

@yits
0_1518638542437_free3of9.zip
0_1518638546759_code39.ttf

מקורות
https://github.com/craftti/barcode/tree/master/fonts
https://www.barcodesinc.com/free-barcode-font/

אני השתמשתי בגופן באחד הפרוייקטים שלי ועבד מצויין.

[yits]

@clickone
האם צריך להתקין את הפונט בכל מחשב או שאפשר להטמיע אותו בקובץ אקסס שלי
או שהצמדה של הפונט בתיקיה עוזרת.

מה שאני מעדיף את הפונקציה הקודמת כי היא נותנת לי הרבה סוגי ברקוד כמו en13 QrCode
https://msdn.microsoft.com/en-us/library/hh745901(v=office.12).aspx

[clickone]

@yits צריך להתקין את הפונט בכל מחשב. (פעולה של כמה שניות)
לא התנסתי בהצמדה של גופן.

האפשרות של הוורד גם מחייבת התקנה של וורד בכל מחשב. מנסיון, יותר קל האפשרות של התקנת הגופן מאשר התקנת הוורד, בעיקר אם התוכנה שלך תהיה מסחרית ותיתקל בבעיות רישוי.

יש גופנים גם לQR.

[yits]

@clickone
עד היום השתמשתי ב EAN13 ואני רואה שהוא נמצא בגיט
תודה רבה

[clickone]

@yits הנה בכל מקרה הקוד לאקסס.
למעט ההדבקה.
בזה זה ממש שונה מאקסל.
צריך לחשוב על שמירה בשם לקובץ תמונה.
אבל זה עדיין פחות מגופן.

Sub INSERT_BARCODE()
    Const BarcodeWidth As Integer = 156
    'Dim ws As Worksheet, WdApp
    'Set ws = ActiveSheet
    Set WdApp = CreateObject("Word.Application")
    With WdApp.Documents.Add
        .PageSetup.RightMargin = .PageSetup.PageWidth - .PageSetup.LeftMargin - BarcodeWidth
        .Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr("1234") & " CODE39 \d \t", PreserveFormatting:=False).Copy
    End With
    WdApp.Visible = True
    'ws.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
    
    WdApp.Quit SaveChanges:=False
    Set WdApp = Nothing
End Sub

ועוד משהו, אתה יותר ממוזמן לפורום תיכנות כאן.

[yits]

@clickone אמר באיך עושים ברקוד באקסס ללא ActivX:

האפשרות של הוורד גם מחייבת התקנה של וורד בכל מחשב. מנסיון, יותר קל האפשרות של התקנת הגופן מאשר התקנת הוורד, בעיקר אם התוכנה שלך תהיה מסחרית ותיתקל בבעיות רישוי.

התוכנה שלי כוללת טופס מודלרי (פקדים משתנים תוך כדי ריצה) הבנתי שאי אפשר ליצור קובץ ריצה כך שצריך התקנה מלאה של אופיס.
האם יש בכל אופן אפשרות לסגור כזה דבר ACCDE?

[clickone]

@yits מה זה משתנים?
אני חושב שאפשר לעשות את זה באקסס עם תיכנון נכון.
אתה גם מייצר את הטבלאות תוך כדי ריצה?

תן יותר פרטים. אני חושב שבהחלט זה אפשרי באקסס....

[yits]

@clickone
בדיוק את ההדבקה לא ידעתי איך לעשות.

בקשר לפורום תכנות אני כמעט ולא פעיל (אפילו מחשב שלי אין לי).

[clickone]

@yits זה כי אין לך לאן להדביק.
לכן כתבתי שזה ממש שונה מאקסל, אתה אמור או לייצר תמונה ולטעון אותה, או להשתמש בגופן, שזה הכי הגיוני, הכי קל, והכי מהיר.

[yits]

@clickone
יש לי טופס שמכיל רשימת סוגים ולידם מופיע ChkBox לסימון V
אני טוען את הרשימה מתוך טבלה.

אז בעיקרון הכי פשוט לעשות כמו שאתה חושב ליצור טופס שה RecordSource יהיה טבלה.

הבעיה היא כזאת:
אני משתמש בזה בשני מקומות 1. במסך הגדרות 2. בסינונים.

יש לי מסך הגדרות ושם אני נותן למשתמש להחליט מה יהיה מסומן כברירת מחדל בטופס סינונים (גם זה לכאורה לא בעיה).

בסינונים אני טוען את רשימת הסוגים עם ChkBox ואפשר לשנות את הברירת מחדל עבור הסינון הנוכחי אבל אני לא רוצה לשמור את זה לטבלה כי זה זמני.

[clickone]

@yits עדיין לא הבנתי
אתה יכול להעלות דוגמא?
תודה!

[dovid]

נראה לי שאם הגופן באותה תיקיה של האקסס זה יעבוד גם בלי התקנה.

[yits]

@clickone
איך אפשר לשלוח בפרטי?

[yits]

@dovid
ניסיתי, ולא עבד
תודה

[clickone]

@yits
urivpn@gmail.com

[aiib]

זה לא צריך להיות בתכנות?
או שלפותח הפוסט אין גישה לשם?

[yits]

@clickone @aiib
אז איך אני מצטרף לפורום תכנות?

[dovid]

@aiib אמר באיך עושים ברקוד באקסס ללא ActivX:

זה לא צריך להיות בתכנות?
או שלפותח הפוסט אין גישה לשם?

אפשר לשאול פה שאלות בתכנות.
זה נכלל במחשבים וטכנולוגיה, ומתאים לתוכנה.
פורום תכנות הוא יותר ייעודי ויותר לכאלה שבפנים העסק ממש.

[dovid]

@yits אמר באיך עושים ברקוד באקסס ללא ActivX:

@clickone @aiib
אז איך אני מצטרף לפורום תכנות?

http://tchumim.com/topic/32/הוראות-הצטרפות-לפורום-התכנות