نوشتن یک کد در رویداد لود همه فرمها در اکسس

[mazoolagh]

حالا یک روتین مینویسین که در اون فرمها یکی یکی در حالت design باز و کد onload برای اون تعریف و بعد save میشه:

DIM FORM_OBJECT AS OBJECT

DIM FRM AS FORM

DIM FORM_NAME AS STRING

FOR EACH FORM_OBJECT IN CURRENTPROJECT.ALLFORMS

    FORM_NAME= FORM_OBJECT.NAME

    DOCMD.OPENFORM FORM_NAME , ACDESIGN , , , , ACHIDDEN

    SET FRM= FORMS(FORM_NAME)

    FRM.ONLOAD= REPLACE("=GLOBAL_ONLOAD(""@FORMNAME"")" , "@FORMNAME" , FORM_NAME)

    DOCMD.CLOSE ACFORM , FORM_NAME , ACSAVEYES

NEXT

این روتین یکبار اجرا بشه کافیه، هرچند که اجرای چندباره اون هم مشکل (یا تاثیر) نداره!