גופנים שיתפוס באקסס בטפסים

[הכוכב שלנו]

למישהו יש פתרון שהגופנים יתפסו בטפסים? (לא בדוחו"ת)?
תודה

[dovid]

אני לא יודע, אבל נזכרתי בזה
http://tchumim.com/topic/1663/איך-עושים-ברקוד-באקסס-ללא-activx/18

[clickone]

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

controlname.font="Ariel"

יש אפשרות לרוץ בלופ על כל האובייקטים.
פעם כתבתי רקוד קצר כז
אני אשתדל לחפש אותו אם תצטרך

[הכוכב שלנו]

להבא שיחפש:

Private Sub Form_Load()
 Dim ctrl As Control
   For Each ctrl In Me
       If ctrl.ControlType = acTextBox Or ctrl.ControlType = acLabel Then ctrl.FontName = ctrl.FontName
   Next
End Sub

בטופס משנה יש לשים אותו גם בטופס משנה בנפרד, פשוט.

[dovid]

@הכוכב-שלנו עיצוב קוד זה או ע"י
שלושה טילדות (~~~) לפני ואחרי, או הזחה של ארבעה רווחים.

[הכוכב שלנו]

פוסט זה נמחק!

[הכוכב שלנו]

פוסט זה נמחק!