תוֹכֶן

• הוראות

הוסף אוהל באמצעות פקד תיבת טקסט כדי לתפוס בקלות את תשומת הלב של המשתמש בעת השימוש ב- Microsoft Access. ניתן להשתמש ב- Visual Basic עבור יישומים (VBA) כדי להפוך את התהליך של גלילה טקסט בבקר. VBA היא שפת תכנות המשמשת להרחבת יישומי Microsoft Office. השתמש באירוע "Form.Timer" (זמן טופס) כדי לבצע subprocedure כי יהיה לעדכן באופן רציף את התוכן של תיבת הטקסט.

הוראות

השתמש ב- VBA ב- Access כדי לעדכן את הפקד (Comstock / Comstock / Getty Images)

1. לחץ על הכרטיסייה "צור" ולאחר מכן על "טופס פרוייקט" כדי ליצור טופס חדש. לחץ על "תיבת טקסט" בחלונית 'פקדים' ולאחר מכן בטופס כדי להוסיף בקרת תיבת טקסט חדשה. לחץ לחיצה ימנית על הכרטיסייה "עיצוב" ולהגדיר את המאפיין "יישור טקסט" ל "ימין". לחץ על הכרטיסייה "אחר" והקלד "txtMarquee" תחת "שם".

2. לחץ לחיצה ימנית על הטופס, ולאחר מכן "Build Event" ולחץ פעמיים על "קוד בונה" כדי להפעיל את חלון העריכה VBA. לחץ על "Ctrl" ו- "A" כדי לבחור את כל קוד ברירת המחדל, ולאחר מכן לחץ על "מחק" כדי להסיר את הקוד.

3. העתק והדבק את הקוד הבא כדי להוסיף משתנים גלובליים שבהם תשתמש בקוד שלך:

   
   

   עמעום textStr כמו מחרוזת עמעם padstr כמו מחרוזת עמעם txtScroll כמו מחרוזת עמום txtLength כמו מספר שלם עמעום iLength כמו מספר שלם עמום כמו מספר שלם דימוי iView כמו מספר שלם עמום כמספר שלם

4. הוסף את הקוד הבא כדי להגדיר את הטקסט שיחצה את השליטה של ​​תיבת הטקסט:

   ("TxtScroll = txtMarqee.SetFocus txtMarqee.Text =" "textStr =" כיצד להוסיף סוג של טקסט עבור Microsoft Access "padstr =" "txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

5. צור תהליך משנה שייקרא "moveText":

   פרטי Sub Sub_Timer () MoveText End Sub

6. צור את subprocedure "moveText" אשר למעשה לגלול את הטקסט המוצג בפקד תיבת הטקסט:

   פרטי Sub SubText ()

   txtMarqee.SetFocus txtMarqee.Text = Mid (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)

   אם iView <20 ו iView <iRem אז iView = iView + 1 סוף אם

   
   

   אם ה- iPos <txtLength ו- iView> = 20 אז iPos = iPos + 1 End אם אחרת txtMarqee.Text = "" iPos = i iView = 1 End End End Sub

7. חזור אל Microsoft Access ולחץ על הסמל "תצוגה" כדי להפעיל את התוכנית. הטקסט המוגדר בשלב 4 ידפדף בתיבת הטקסט.