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

[אוריי]

@OdedDvir
עדיין מחזיר שגיאה
אולי עדיף לעבוד כמודול?

[OdedDvir]

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

[אוריי]

@OdedDvir

[OdedDvir]

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

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

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

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

[אוריי]

@OdedDvir
משום מה לא מצליח
יכול להיות שאני לא כותב את זה במקום הנכון
אני אסביר מה יש לי ואיפה אני כותב כעת
לי יש שאילתה לפי מס' מדף השאילתה מוצגת בתוך טופס והטופס הזה בתוך טופס אחר
אני ניסתי לכתוב את זה באירוע לאחר עידכון של הטופס האמצעי (המקשר בין השאילתה לטופס המוצג)
ושם כתבתי כך

Private Sub Form_AfterUpdate()
Call Forms("as").Form.SetColors
End Sub

וזה לא עובד.

[OdedDvir]

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

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

נקרא לו A

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

נקרא לו B

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

[אוריי]

@OdedDvir
עכשיו זה נמצא שם (A) באירוע לאחר עידכון ולא עובד

[OdedDvir]

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

[אוריי]

@OdedDvir
נראה לי שלא הוא נתקע בקוד הזה

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

ובלחיצה על F8 הוא מחזיר שגיאה כזו

[OdedDvir]

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

Call Forms("as").SetColors()

[אוריי]

@OdedDvir
עכשיו עובד
אבל נוצרה בעיה אחרת שאם אני מוריד את הסימון הוא לא מחזיר את העיצוב הקודם

[OdedDvir]

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

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

[אוריי]

@OdedDvir
מחזיר כזו שגיאה

[OdedDvir]

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

[אוריי]

@OdedDvir הההא
אם כך יש לי הרבה פקדים חסרים בסידרה
צריך קוד שידע לדלג על הפקדים האלו וירוץ עד הסוף

[OdedDvir]

תוכל להוסיף בין שורה 1 לשורה 2 את הקוד

On Error Resume Next

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

[אוריי]

@OdedDvir

תודה רבה אין מילים להודות על כל העזרה שלך כאן בפורום