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

[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

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