سوال: چطور می توان یک شرط برای بررسی باز یا بسته بودن یک فرم گذاشت؟ [بایگانی]

khalil-s

پنج شنبه 17 فروردین 1391, 16:00 عصر

سلام با اساتید محترم
در کد نویسی احتیاج به یک IF ...Then دارم که بااون بتونم چک کنم که آیا مثلاً فرم A قبلا توسط کاربر باز شده است یا نه که به هدفم در شکل زیر برسم
آیا این چک کردن امکان پذیر است؟
85269

Abbas Amiri

پنج شنبه 17 فروردین 1391, 17:45 عصر

ساده ترین روش برای تشخیص باز بودن یک فرم استفاده از تابع زیر است(که براحتی برای گزارشات قابل تغییر است)

Public Function IsOpen(ByVal strformName As String) As Boolean
IsOpen = CurrentProject.AllForms(strformName).IsLoaded
End Function

If IsOpen("FormA") Then
Forms!FormA!TextBox_A = TextBox_C
ElseIf IsOpen("FormB") Then
Forms!FormB!TextBox_B = TextBox_C
End If