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

[אוריי]

@OdedDvir
שם הטבלה: ShelfCharacteristics
שם שדה של מספרי פקדים : ShelfNumber
שם שדה של תיבות סימון בטבלה: ClosedShelf

[OdedDvir]

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

[אוריי]

@OdedDvir
שמות הפקדים הם מספרים מ1 ומעלה ללא שום אותיות וכדו'..

[OdedDvir]

@אוריי תוסיף את הקוד הבא לטופס (הופך את צבע הקידמה של הפקד לאדום):

Private Sub SetColors()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM ShelfCharacteristics WHERE ClosedShelf=True", dbOpenSnapshot, dbReadOnly)
    rs.MoveFirst
    While Not rs.EOF
        Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
        rs.MoveNext
    Wend
    rs.Close
End Sub

Private Sub Form_Load()
    SetColors
End Sub

[אוריי]

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

[OdedDvir]

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

[אוריי]

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

פשוט תוסיף רק את הקוד של הפונקציה הראשונה SetColors() שבשורות 1-10, ואת השאר לא

את זה איפה אני מוסיף באיזה אירוע?

[אוריי]

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

[OdedDvir]

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

[אוריי]

@OdedDvir
תודה עובד מצויין

[אוריי]

@OdedDvir
איך אני גורם לו שבכל עידכון בטבלה הוא ישנה מייד את הצבע?

[OdedDvir]

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

Public Sub SetColors()
.....

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

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

[אוריי]

@OdedDvir
מה אני אמור לכתוב?

[אוריי]

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

("<form-name>")

[OdedDvir]

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

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

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

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

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

Forms("Shelves").SetColors()

[אוריי]

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

[OdedDvir]

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

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

או על ידי

Forms!as.SetColors()

[אוריי]

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

[OdedDvir]

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

[אוריי]

@OdedDvir