اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

شرح شيفره


)نونو(

الردود الموصى بها

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

Public UserName As String
هذا السطر لتعريف متغير ( مكان لتخزين اسم المستخدم فيه بشكل مؤقت حتى تُغلق قاعدة البيانات ) كلمة Public معناها أن المتغير يمكن الدخول عليه من أي نموذج أو تقرير
Public Sub GetUserName(FrmName As String)
Forms(FrmName).Caption = UserName
End Sub
هذا الكود وُضع لإدخال اسم المستخدم الموجود في المتغير السابق في شريط عنوان النموذج المذكور اسمه حيث أنه يستقبل اسم النموذج و يضعه في المتغير FrmName ثم يضع اسم المستخدم في شريط عنوانه وضعت هذا الكود حتى يمكن احداث أي تغييرات مطلوبه أثناء استرجاع اسم المستخدم بسهولة و يسر ( قوانين برمجيه احتمال يصعُب عليكِ فهمها ) ... :smile2: لاستخدام الكود .... تختاري النموذج المطلوب وضع اسم المستخدم في شريط عنوانه و تقومي بعمل الآتي post-5352-1242426952.jpg و تضعين هذا الكود بالضبط داخل الحدث OnLoad
GetUserName.GetUserName (Me.Name)

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

رابط هذا التعليق
شارك

  • 5 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information