أتمنى أن يشرح أحدكم لي هذا الكود بالتفصيل لكل رمز وكلمة بالضبط أو ما نسميه كترجمة للكود
والكود هو :
On Error GoTo mf2
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "moad_t"
stLinkCriteria = "[F3]=" & "'" & Me![number] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
وهو موضوع عندى في حدث عند النقر
ولكم منى جزيل الشكر والتقدير
وأتمنى من العملاقة زهراء أن ترد علي والإخوة الكرام بأسرع وقت لأني متوقف على ذلك
السلام/
ما يقوم به هذا الكود هو:
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 هي الدالة التي من خلالها سيتم فتح النموذج الجديد وتم تمرير المتغيرات التي تم تحديدها سابقا.
اللهم صلي وسلم على نبينا محمد،
أخوكم/ فراس فهد ناصر
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
هذا الموضوع مغلق.