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

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

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

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

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

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

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

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

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

=DSum("book", "qq")

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

DoCmd.OpenForm "as"
Forms("as")!Libraries.Pages("Page3").SetFocus

כפי שציינתי קודם, ניתן לעבור לפי מספר הכרטסת (בסיס 0)

Me.Libraries = 2 ' עובר לכרטיסיה השלישית

אפשר גם לציין את שם הכרטיסיה בפירוש:

Me.Libraries.Pages("Page3").SetFocus 'עובר לכרטיסיה השלישית

@אוריי אמר בשאלה באקסס // שאילתא לפי שם כפתור:

Page1
Page2
וכו'

אלו שמות העמודים (ה"חוצצים" או הכותרות) של הפקד, מה שם הפקד שמכיל את כל העמודים?

@אוריי מה שם פקד הכרטיסיה בטופס?

@אוריי באקסס ניתן לכתוב ולקרוא למשתנה עם שם הפקד של הכרטיסיה, על מנת לקבל את מספר הכרטיסת הפתוחה או לעבור לכרטסת מסויימת. הכרטיסיות ממוספרות עם בסיס 0, ז"א הכרטסת הראשונה מספרה 0, השנייה 1 וכו'.
ניתן לעבור אל כרטסת על ידי כתיבה למשתנה עם שם הפקד.
למשל כדי לעבור לכרטסת השלישית, נכתוב את המספר 2:

me.TabCtrName = 2 

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

if me.TabCtrlName = 1 then ... 'אם הכרטסת השנייה פתוחה

@OdedDvir אני מרשה לעצמי להזכיר לך שפתיחה של שאילתה באופן של DoCmd.OpenQuery עלולה לאפשר למשתמש לשנות נתונים בטבלאות, ואם זו לא ההתנהגות שאתה מחפש, תציין זאת במפורש בפתיחה:

DoCmd.OpenQuery "qq", acViewNormal, acReadOnly

@אוריי אמר בשאלה באקסס // שאילתא לפי שם כפתור:

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

אם זה הטופס הפעיל פשוט תכתוב

Me.Requery

אם זה טופס משנה של הטופס הפעיל, ושם הפקד של טופס המשנה הוא foo

Me.foo.Form.Requery

אם זה טופס אחר (שלא פעיל) אפשר באופן דומה לשאילתא

DoCmd.SelectObject acForm, "MyFormName"
DoCmd.Requery

או

Forms("MyFormName").Requery

@אוריי יפה. אבל נראה לי שאם השאילתה עדיין לא פתוחה תקבל שגיאה.. נכון?

@אוריי תסגור את השאילתא הפתוחה ותפתח אותה מחדש

docmd.Close acQuery, "qq"
'תעדכן את השאילתא
docmd.OpenQuery "qq"

תנסה אולי הקוד הבא יעבוד (בלי לסגור ולפתוח)

DoCmd.SelectObject acQuery, "qq"
DoCmd.Requery

@אוריי תפרט בבקשה מה הקוד VBA שמציג את השאילתה (בארוע לחיצה על הפקד)

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

@אוריי תשתמש במתודה Requery

@ראש-פינה זו שאלה מעניינת, אפשר ב-VBA ואפשר גם על ידי עמודות עזר ו-VLOOKUP.
שתי הדרכים מפורטות כאן

מנסיוני, Access 2019 היא לא תוכנה עם יותר באגים מקודמותיה
לי זה נראה כמו שגיאה בתאימות שפה.

1. האם תוכל להעלות עוד תמונות של הודעות שגיאה?
2. איזו מערכת הפעלה יש בניידים? מה שפת מערכת ההפעלה?
3. האם אתה מריץ קובץ ריצה מקומפל ACCDE או קובץ רגיל?