אופיס 365 אקסס - קוד לשינוי טקסט בתווית

[KATZ]

שלום רב!

השאלה מופנית לכל בעלי ידע נרחב באקסס!

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

דוגמא והפשטת הדברים: למשל בעת כניסה לפרוייקט יוצג תווית אשר בתוכו ירוצו הערכים 'מאתחל נתונים...' 'מכין מערכת...' עוד רגע אחת..., וכדו'

אשמח לקבל עזרה בנושא.

 

[ארי4791]

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

 

[מאוישת]

caption
לא זה?

 

[KATZ]

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

 

[אפר]

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

ניתן לשנות דרך VBA בקלות

גם דרך מאקרו
ע"י הכנסה בעת טעינה או אירוע פסיקת שעון
פעולת SetProperty
ערך 1 > שם התוית
ערך 2 > תבחר ב"כיתוב"
ערך 3 > אם זה טקסט קבוע תקליד אותו אם אתה רוצה שיקח מהטופס תעשה =[הפקד/השדה]

 

[KATZ]

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

 

[אפר]

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

צריך למצוא מכנה משותף - אירוע פסיקת שעון קורה כל פרק זמן שאתה קובע (באלפיות השניה)
לדוג' אם אתה צריך בשניה ה12,15,24,30
אתה מגדיר ל3000 את פסיקת השעון (3 שניות)
ואז אתה עושה משתנה שכל פעם שיש פסיקה = עצמו +1
ואחרי זה תנאי אם הוא שווה 4 (ל12) ועוד תנאי אם הוא שווה 5 (ל15) וכו'
אם זה מחזורי לדוג' במקרה הזה כל חצי דקה אז אתה עושה תנאי שאם הוא שווה 10 אז פעולת איפוס משתנה או עדכון המשתנה ל0,

 

[ari rm]

בס"ד
תראה בשקול הזה
בהודעה אחרונה, לגבי סגירת טופס לבד אם אין שימוש, כולל החלפת כיתוב
נ.ב. הכיתוב הנ"ל משתנה בתוך תיבת טקסט המוגדרת בצורה, אפשר = false, נעל = true
כמו"כ אפשר לעשות בתווית ולשנות את ה caption דוגמא:

me.תווית0.caption = "מאתחל נתונים..."