تحديد قيمة افتراضية لوسيط دالة

تفضل اخي الكريم

za-210.rar

بالتوفيق

السلام عليكم ورحمة الله 

شكرا لك استاذة زهرة هذا هو المطلوب 

جزاك الله الجنة واتمني لك التوفيق 

ممكن سؤالين 

السؤال 1:

في العبارة التالية :

اخي الفاضل

لا يوجد لديك في الكود الخاص بك  المتغير  var

Dim var As Integer

الكود الخاص بك هو :

Function openforms(Optional ByVal nomyforms = 1) As Integer
Select Case nomyforms
Case Is = 1
DoCmd.OpenForm "100"
Case Is = 2
DoCmd.OpenForm "200"
Case Is = 3
DoCmd.OpenForm "300"
End Select
End Function

السلام عليكم ورحمة الله 

شكرا لك استاذة زهرة

فعلا هو لا يوجد وكان هذا كمثال للسؤال الذي اود طرحة ,

وهو كيف اذا اردنا تحديد نوع متغير للمتغير الموجود داخل القوس ؟

الكود كان للتوضيح فقط 

بارك الله فيك 

اخي الفاضل : ماجد جلال

اليك المرفق التالي فقد يساعدك على فهم الكثير مما تريد وبأقصر الطرق بالعربي

دروس في  الـ VBA

VBA_lessons.rar

بتالتوفيق

شكرا لك استاذة زهرة 

وجزاك الله كل خير 

السلام عليكم 

ممكن سؤال منفصل ولكن في نفس الموضوع 

ما هو الخطاء في العبارة التالية :

dim one as integer = 24

حيث انني ارغب في وضع قيمة افتراضية للمتغير one ولتكن 24 !  بحيث لا يكون لهذا المتغير اي وسيط او اقواس 

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

expected end of statement

لقد قرات المرفق حول الدرس الذي ارسلته الاستاذة زهرة كان يدور حول تعليم قواعد vba ولم يتطرق كثيرا الي byval   لذا طرحت السؤال ,,,

و جزاكم الله عني كل خير ,,

اخي الفاضل : ماجد

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

Dim one as integerone = 24

السلام عليكم ورحمة الله

لقد رغبت اخواني في تعريف متغير عام يستخدم في نطاق كامل البرنامج وذلك من خلال وحدة نمطية عامة , لانني ساستخدمة في العديد من النماذج ومربعات النص ان شاء الله

ووضعت لة قيمة مبدئية وهو الرقم 2 

ولكن للاسف تظهر دوما رسالة خطاء 

ارجو منكم المساعدة ولكم جزيل الشكر و الامتان

220.zip

للرفع