السلام عليكم ورحمة الله وبركاته
قد ترغب احيانا التاكد من ان نموذج معين محمل في الذاكرة او لا
الكيم هذه الدالة التي تختبر ان كان نموذج معين محمل ام لا
قد تكون هذه الدالة غير جديدة عليكم ولك ارد ان افيد بها من لم يعرفها بعد
هذه الدالة تتطلب تعريف وسيط واحد من نوع String وهو اسم النموذج وتعيد قيمة True أو False
Function IsLoaded(ByVal strFormName As String) As Integer Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function
تحياتي