• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

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

מתוזמן נעוץ נעול הועבר תוכנה
אקססvba
21 פוסטים 4 כותבים 1.9k צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • Y מנותק
    Y מנותק
    yits
    כתב ב נערך לאחרונה על ידי yits
    #1

    שלום
    אני השתמשתי עד היום עם ברקוד של 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
    

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    clickoneC 2 תגובות תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #2

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

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    3
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #3

    @yits
    0_1518638542437_free3of9.zip
    0_1518638546759_code39.ttf

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

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    Y תגובה 1 תגובה אחרונה
    2
  • Y מנותק
    Y מנותק
    yits
    השיב לclickone ב נערך לאחרונה על ידי
    #4

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

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    clickoneC תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #5

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

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

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    1
  • Y מנותק
    Y מנותק
    yits
    כתב ב נערך לאחרונה על ידי yits
    #6

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    clickoneC תגובה 1 תגובה אחרונה
    1
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #7

    @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
    
    

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    Y תגובה 1 תגובה אחרונה
    3
  • Y מנותק
    Y מנותק
    yits
    כתב ב נערך לאחרונה על ידי
    #8

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

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

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    clickoneC תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #9

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

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    0
  • Y מנותק
    Y מנותק
    yits
    השיב לclickone ב נערך לאחרונה על ידי
    #10

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

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    clickoneC תגובה 1 תגובה אחרונה
    2
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #11

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    1
  • Y מנותק
    Y מנותק
    yits
    כתב ב נערך לאחרונה על ידי yits
    #12

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

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

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

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

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    clickoneC תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #13

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

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    Y תגובה 1 תגובה אחרונה
    0
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    כתב ב נערך לאחרונה על ידי
    #14

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

    אפשר ליצור קשר dovid@tchumim.com

    Y תגובה 1 תגובה אחרונה
    1
  • Y מנותק
    Y מנותק
    yits
    השיב לclickone ב נערך לאחרונה על ידי
    #15

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    clickoneC תגובה 1 תגובה אחרונה
    0
  • Y מנותק
    Y מנותק
    yits
    השיב לdovid ב נערך לאחרונה על ידי
    #16

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    תגובה 1 תגובה אחרונה
    1
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    השיב לyits ב נערך לאחרונה על ידי
    #17

    @yits
    urivpn@gmail.com

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    0
  • A מנותק
    A מנותק
    aiib מורחק
    כתב ב נערך לאחרונה על ידי
    #18

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

    dovidD תגובה 1 תגובה אחרונה
    0
  • Y מנותק
    Y מנותק
    yits
    כתב ב נערך לאחרונה על ידי
    #19

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

    לקניה והנחות ב KSP כנסו מכאן.
    למוצרים עם הנחה מכאן.

    dovidD תגובה 1 תגובה אחרונה
    0
  • dovidD מנותק
    dovidD מנותק
    dovid ניהול
    השיב לaiib ב נערך לאחרונה על ידי dovid
    #20

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

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

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

    אפשר ליצור קשר dovid@tchumim.com

    תגובה 1 תגובה אחרונה
    3

  • 1
  • 2
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.