mrshed2006

شرح تفصيلي لهذا الكود وماذا يعمل

2 ردود في هذا الموضوع

أتمنى أن يشرح أحدكم لي هذا الكود بالتفصيل لكل رمز وكلمة بالضبط أو ما نسميه كترجمة للكود

والكود هو :

On Error GoTo mf2

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "moad_t"

stLinkCriteria = "[F3]=" & "'" & Me![number] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

وهو موضوع عندى في حدث عند النقر

ولكم منى جزيل الشكر والتقدير

وأتمنى من العملاقة زهراء أن ترد علي والإخوة الكرام بأسرع وقت لأني متوقف على ذلك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام/

ما يقوم به هذا الكود هو:

On Error GoTo mf2

في حال وقوع خطاء أذهب لسطر اسمه mf2

 Dim stDocName As String
Dim stLinkCriteria As String

تعريف متغيرين من نوع نص، الأول ليتم استخدامه لاسم النموذج والاخر للشرط لتحديد الحقل أو الحقول المرغوب فيها بالظهور

stDocName = "moad_t"

تحديد بأن اسم النموذج هو moad_t

[stLinkCriteria]="[F3]=Me![number]"

لتحديد الشرط وهي تساوي قيمة الحقل F3 مع القيمة الموجودة في النموذج الحالي للحقل number

DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.OpenForm هي الدالة التي من خلالها سيتم فتح النموذج الجديد وتم تمرير المتغيرات التي تم تحديدها سابقا.

اللهم صلي وسلم على نبينا محمد،

أخوكم/ فراس فهد ناصر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .