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

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

@אוריי הקוד צריך להמצא בטופס שמציג את השאילתא על 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

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

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

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

@אוריי מה שם הטבלה והשדות הרלוונטיים?

@אוריי אתה יכול בארוע הטעינה של הטופס להריץ לולאה על הטבלה ולשנות את הצבע של כל פקד בטופס שמסומן.

@הבוס-הגדול אמר בהתקן קול שדורש אתחול כל פעם:

מהבהבת

תפרט מה סוג ההתקן החיצוני: חברה\מודל

@A0533057932
תוכל לבטל את האזהרות על ידי קוד VBA

Application.DisplayAlerts = False

וכדי להחזיר את האזהרות:

Application.DisplayAlerts = True

@smk123 זה מופיע בעמוד שהבאת: קישור

@אוריי הקוד נראה תקין, זו נראית בעיה של תצוגה.
האם כשאתה מרענן את הטופס (F5) התצוגה מסתדרת?

@אוריי נא להסביר יותר מה אתה מבקש

@MusiCode לסוללות לית'יום יש אורך חיים של כ- 3 שנים. והן מחזיקות הכי הרבה זמן על טעינה של 60%. והכי פחות זמן על טעינה מלאה.
גם ריקון של הסוללה מאוד מקצר את תוחלת החיים שלה ויש להמנע מכך ככל האפשר.
אם המחשב תמיד מחובר לחשמל - צריך לעצור את הטעינה ב-60%.
ל-ASUS יש תוכנת עזר ומנגנון ששומר על הסוללה לפי מצב העבודה במחשב.
מצ"ב תמונה: