مشكلة بالفورم

بمكانك عمل دالة بحث عن فورم معين بواسطة اسم المستخدم

مثلا لو كل فورم بيحمل اسم مستخدم معين في الـCaption

بنعمل دالة بحث بحيث تاخد اسم مستخدم و بترجع الفورم الخاص بالمستخدم اللي بحثنا عنه . الدالة كالتالي .

Function GetUserForm(UserName As String ) As Form
Dim M_CurrentForm As Form
For Each M_CurrentForm In Forms

IF M_CurrentForm.Caption = UserName Then
Set GetUserForm = M_CurrentForm
Exit For
End if 

Next
End Function

ويتم استدعاء الدالة السابقة بالطريقة التالية بحيث سيتم البحث عن اسم المستخدم ثم يقوم بارجاع الفورم الخاص به

وينسب له الـCaption الموضح في الدالة .

GetUserForm("UserName").Caption = "Hi User"