حالت موضوعی | حالت خطی

***CPSD Admin***

ضمن سلام

با استفاده از تابع زیر و فراخونی آن , قادر خواهید بود از باز بودن یک فرم در داخل فایل اکسس مطلع شوید

کد: 

Function FormIsLoaded(ByVal FormName As String) As Boolean

    If SysCmd(acSysCmdGetObjectState, acForm, FormName) <> 0 Then

        If Forms(FormName).CurrentView <> 0 Then

            FormIsLoaded = True

        End If

    End If

End Function

این تابع در صورتی که فرم مورد نظر باز باشد مقدار True و در صورت بسته بودن مقدار False را باز خواهد گرداند
نحوه فراخوانی آن هم به صورت زیر میباشد , فرضا در داخل رویداد On Click یک دکمه , عبارت زیر را درج میکنید

کد: 

FormIsLoaded("frmSample")

حالت موضوعی \| حالت خطی تشخیص باز بودن یک فرم
نویسنده	پیام