+- فروم تخصصی - پشتیبانی CPSD (http://cpsd.ir/forum)
+-- انجمن: آموزش (/forumdisplay.php?fid=9)
+--- انجمن: عمومی (/forumdisplay.php?fid=21)
+--- موضوع: تشخیص باز بودن یک فرم (/showthread.php?tid=10)
تشخیص باز بودن یک فرم - 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 یک دکمه , عبارت زیر را درج میکنید
نحوه فراخوانی آن هم به صورت زیر میباشد , فرضا در داخل رویداد On Click یک دکمه , عبارت زیر را درج میکنید
کد:
FormIsLoaded("frmSample")