كود في داله function والاستفاده من جدول

[خليفة]

بسم الله الرحمن الرحيم

إخواني الكرام

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

كل عام وانتم بخير وتقبل الله منا ومنكم صالح الإعمال وعيدكم مبارك

إخواني يوجد لدي استفسار هو كالتالي :

أريد تصميم function عمومي public في داخل موديل model بحيث امرر له قيمه تاريخ ويقوم بعدة عمليات على هذا التاريخ ويرجع لي القيمة الجديدة :

س 1 – هل من الممكن ارسال تاريخ واحد ويقوم بعد عدة عمليات عليه ارجاع عدة قيم ؟ كيف ؟

س 2 – في هذه function هل من الممكن ان اقوم بتحديد ثوابت من جدول بمعنى كيف احدد له قيم من جدول ؟ كيف ؟

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

ومتعكم بعلمكم

اخوكم خليفه

[iemad]

أولا السلام عليكم

لعمل وظيفة عمومية على كامل المشروع ما عليك ألا أن تكتب الكلمة public كما تفضلت مسبقا وتكتبها في موديول أيضا كما قلت ,وتستطيع ألغاء الكلمة Public لأن المحرر سوف يترجمها تلقائيا على أنها عمومية .

من المفترض ان الوظيفة ترجع قيم , ويتم تصريح الدالة أو الوظيفة كما تفضلت كالتالي :

Function AnyThing (Ddate as Date)

....

..

.

End Function

لقد صرحت دالة على أنها وظيفة تقوم بعمل معين ,وعلى أنها عمومية أنظر أخي الكريم رغم أني لم أضع الكلمة المحجوزة public ولكن المحرر سوف يصرحها على أنها عمومية وتستطيع الوصول أليها من كامل المشروع .

لكني لم أفهم بالزبط ما تقصده من أنك تريد تغيير الثوابت , على حسب معلوماتي أن الثوابت تأتي كالتالي مصرحة بأعلى المشروع أو الموديول

Const MB_ICONQUESTION = &H20L

Const MB_YESNO = &H4

Const IDYES = 6

Const IDNO = 7

تصريح الثابت يبدأ بالكلمة المحجوزة Const ثم المتغير الذي سيحمل القيمة سواء كانت رقما أو نصا .

أما حول تغيير الثابت لا أظن أنه من الممكن تغيير قيمة الثابت وسوف يعطيك خطأ .

سوف أعطيك مثال حول تصريح وظيفة وتقوم بأرجاع قيمة لي .

Function Values(Nnumber As Integer)

Nnumber = Nnumber * 2

Values = Nnumber

End Function

لقد صرحت الكلمة Values على أنها وظيفة , ثم وضعت لها بارامتر Nnumber وصرحته كرقم Integer.

لأمرر للوظيفة Values من خلال البارامتر Nnumber ثم يضرب العدد ب أثنين , ثم أعيد القيمة النهائية الى الوظيفة .

أستدعائها يتم كالتالي :

Label1.Caption = Values(55)

[خليفة]

بسم الله الرحمن الرحيم

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

اخواني الاعزاء

اخي العزيز عماد

اشكرك من كل قلبي على ردك السريع فجزاك الله اكل الخير

اخي كلامك سليم ولا عليه شائبه وانا معاك في هذا كله ولكن مقصدي هو

Nnumber = Nnumber * 2

لاحظ اخي الكريم انت قمت بضرب المتغير بعدد 2 وهذا جيد المقصود من سؤالي والمطلوب هو كالتالي كيف اجعل هذا الرقم يتم من خلال جدول مثلا :

Nnumber = Nnumber * (table.field.value)

بمعنى كيف اقدر ان اقراء هذه القيمة من جدول (table.field.value)

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

ونفعكم بعلمكم

اخوك خليفه