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

@ראש-פינה אתה צריך ליצור טבלת ציר PivotTable

@שעטנ-ז-ג-ץ אני הייתי מנסה בResourceEditor להחליף את התמונה

@אוריי אמר בהפעלת קוד vba באקסל דרך אקסס:

אבל צריך לשים לב שבאקסל מותאם לvba הסיומת היא .xlsm ולא .xlsx כך שבמצב כזה הוא לא יקרא אותו

נכון, אני אערוך את המקור למעלה

מוזר מאד שבהתחלה זה עבד לי גם כאשר הסיומת הייתה .xlsx אבל כאשר השתמשתי עם הקוד הזה הוא דורש דווקא סיומת של .xlsm

גם אצלך (בצילום מסך למעלה) כתוב .xlsm

@אוריי אמר בהפעלת קוד vba באקסל דרך אקסס:

האם ישנה אפשרות להריץ את הקוד בלי לפתוח את האקסל (או לכל הפחות שלא יראו אותו).

כן, תשנה את שורה 7 ל:

xl.Visible = False

או שפשוט תמחק אותה, כמדומני שברירת המחדל היא לא להציג את הקובץ

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

הבנתי, אפשר לעשות כך, ולקרוא את הערך מהטבלה על ידי DLookup. אבל אז תצטרך לעדכן בכל מחשב את הטבלה...

אני מציע לך לשים את האקסל באותה תיקיה כמו קובץ האקסס ולהשתמש באובייקט CurrentProject כדי לאחזר את מיקום הקובץ של האקסס, ואז לבצע קריאה כך (במקום שורה 9):

Dim xlFilePath As String
xlFilePath = CurrentProject.Path & "\" & "שם הקובץ שלך.xlsm"
xl.Workbooks.Open xlFilePath, True, False

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

@אוריי תשנה את שורה 3 ל:

Dim xl As Object

@אוריי אמר בהפעלת קוד vba באקסל דרך אקסס:

יש לי קובץ אקסל שבו יש לי קוד vba להדפסה שלו.
ואני רוצה דרך האקסס להדפיס ואפי' מבחינתי לא לפתוח את האקסל בכלל (אם אפשרי)

תפרט יותר את הקוד שבאקסל, מה עשית לקוד שמצאת, ומה השגיאה

@אוריי זה אומר שאין לך פקד בשם "5" בטופס, אבל בטבלה יש

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

Public Sub SetColors()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("ShelfCharacteristics", dbOpenSnapshot, dbReadOnly)
    rs.MoveFirst
    While Not rs.EOF
        If rs!ClosedShelf Then
              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
        Else
              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbBlack
       End If
       rs.MoveNext
    Wend
    rs.Close
End Sub

@אוריי אתה צריך להוריד את המילה Form

Call Forms("as").SetColors()

@אוריי האם מתבצעת בכלל קריאה לפונקציה בזמן הריצה?

@אוריי הקוד צריך להמצא בטופס שמציג את השאילתא על ShelfCharacteristics
העובדה שהטופס הנ"ל נמצא בעוד טופס אחר לא משנה.

י יש שאילתה לפי מס' מדף השאילתה מוצגת בתוך טופס

נקרא לו A

והטופס הזה בתוך טופס אחר

נקרא לו B

הקוד צריך להיות בטופס A

@אוריי אההה, זו לא באמת שגיאה, אלא מוגבלות של השפה:
תשנה את הקוד ל:

Forms!as.SetColors
או
Forms("as").Form.SetColors

דהיינו בלי סוגריים, או אם דווקא אתה רוצה סוגריים תוסיף את המילה Call בהתחלה

Call Forms("as").Form.SetColors()

@אוריי מה השגיאה שמחזיר?

@אוריי זו שגיאה כי הקומפיילר לא מזהה את הפונקציה.
תוכל לעקוף את השגיאה על ידי

Forms("as").Form.SetColors()

או על ידי

Forms!as.SetColors()

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

א. איך להפוך לציבורית

רשמתי לך למעלה (לשנות את המילה Private למילה Public)

ב. האם אני אמור לשנות את זה?

כן, תכניס שם את שם הטופס שמכיל את הפקדים, למשל:

Forms("Shelves").SetColors()

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

Public Sub SetColors()
.....

אחר כך תוסיף לטופס שבו נמצאת הטבלה את הארוע After_Apdate() ושם תקרא לפונקציה של הטופס:

Private Sub After_Update()
    Forms("<form-name>").SetColors()
End Sub

@אוריי צודק, ערכתי את הקוד למעלה

@אוריי יש לך כנראה כבר קוד עבור הארוע Form_Load
פשוט תוסיף רק את הקוד של הפונקציה הראשונה SetColors() שבשורות 1-10, ואת השאר לא, ותוסיף לפונקציה Form_Load הקיימת בטופס את הקריאה שבשורה 13

@אוריי כיצד נקראים הפקדים ביחס למספרים?