شرح شيفره

[)نونو(]

السلام عليكم

عندي شيفره في medule كتبها لي اخي dream_works وتستخدم في ظهور اسم المستخدم في اعلى النموذج

ابي شرح لهذه الشيفره حتى اتمكن من فهمها

_______.zip

[Dream_Works]

بما أنني كتبت الكود ... أعتقد أنني قادر على شرحه ...

Public UserName As String

هذا السطر لتعريف متغير ( مكان لتخزين اسم المستخدم فيه بشكل مؤقت حتى تُغلق قاعدة البيانات ) كلمة Public معناها أن المتغير يمكن الدخول عليه من أي نموذج أو تقرير

Public Sub GetUserName(FrmName As String)
Forms(FrmName).Caption = UserName
End Sub

هذا الكود وُضع لإدخال اسم المستخدم الموجود في المتغير السابق في شريط عنوان النموذج المذكور اسمه حيث أنه يستقبل اسم النموذج و يضعه في المتغير FrmName ثم يضع اسم المستخدم في شريط عنوانه وضعت هذا الكود حتى يمكن احداث أي تغييرات مطلوبه أثناء استرجاع اسم المستخدم بسهولة و يسر ( قوانين برمجيه احتمال يصعُب عليكِ فهمها ) ... لاستخدام الكود .... تختاري النموذج المطلوب وضع اسم المستخدم في شريط عنوانه و تقومي بعمل الآتي و تضعين هذا الكود بالضبط داخل الحدث OnLoad

GetUserName.GetUserName (Me.Name)

وهو الكود الخاص باستدعاء الكود الموجود في الوحدة النمطية Module ووضع اسم النموذج فيه

[)نونو(]

هلا اخوي

تسلم على الشرح الوافي والمميز دائما

في سطر الشيفره الاخير ماقصدك بGetUserName الاولى وماقصدك بGetUserName الثانيه

(GetUserName.GetUserName(me.name

[أبا عمر]

تمت الفائدة 

يُنقل ...