איך עושים ברקוד באקסס ללא ActivX
-
@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ועוד משהו, אתה יותר ממוזמן לפורום תיכנות כאן.
-
@clickone אמר באיך עושים ברקוד באקסס ללא ActivX:
האפשרות של הוורד גם מחייבת התקנה של וורד בכל מחשב. מנסיון, יותר קל האפשרות של התקנת הגופן מאשר התקנת הוורד, בעיקר אם התוכנה שלך תהיה מסחרית ותיתקל בבעיות רישוי.
התוכנה שלי כוללת טופס מודלרי (פקדים משתנים תוך כדי ריצה) הבנתי שאי אפשר ליצור קובץ ריצה כך שצריך התקנה מלאה של אופיס.
האם יש בכל אופן אפשרות לסגור כזה דבר ACCDE? -
-
@clickone
יש לי טופס שמכיל רשימת סוגים ולידם מופיע ChkBox לסימון V
אני טוען את הרשימה מתוך טבלה.אז בעיקרון הכי פשוט לעשות כמו שאתה חושב ליצור טופס שה RecordSource יהיה טבלה.
הבעיה היא כזאת:
אני משתמש בזה בשני מקומות 1. במסך הגדרות 2. בסינונים.יש לי מסך הגדרות ושם אני נותן למשתמש להחליט מה יהיה מסומן כברירת מחדל בטופס סינונים (גם זה לכאורה לא בעיה).
בסינונים אני טוען את רשימת הסוגים עם ChkBox ואפשר לשנות את הברירת מחדל עבור הסינון הנוכחי אבל אני לא רוצה לשמור את זה לטבלה כי זה זמני.
-
