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

@אוריי יש לך כנראה כבר קוד עבור הארוע 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 יש תוכנת עזר ומנגנון ששומר על הסוללה לפי מצב העבודה במחשב.
מצ"ב תמונה:

@clickone אמר בתוכנות לניהול תורמים כמו APT:

נראה לי שהוא נמצא אצלם ולא אצלך אבל אני לא בטוח בזה ב100%

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

האם אתה בוחר להפעיל את הקובץ מהדפדפן או קודם מוריד את הקובץ ואח"כ מריץ?

@אוריי תוכל לומר לDSum להמיר כל NULL ל-1

DSum("Nz(book,1)", "qq")

@אוריי אמר בסיכום עמודה באקסס:

האם ישנה אפשרות שהוא יחשב לי כל שורה באקסס (כמו ספירה של שורות) אבל בתנאי שאם book לא null יחשב את הסכום שרשום שם לא כולל ספירה של השורה?

לא הבנתי מה כוונתך

@אוריי אתה צריך לרשום כך

=DSum("book", "qq")

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

@אוריי במאפיין מקור הנתונים של הפקד תרשום

=DSum([fieldName], [queryName])

queryName = שם השאילתה
fieldName = שם השדה לסיכום