السلام عليكم
عندي النموذج haj815 يعتمد على وحدة نمطية وليس على الجدول haj815 ، والجدول نفسه يعتمد في قيمته على هذا النموذج ، إلا أنه توجد عندي مشكلة صعبة بالنسبة لي وبسيطة عليكم إن شاء الله ، وهي أنني عندما أقوم بتغيير المعادلة الموجودة في التعليمات البرمجية للنموذج فإن النموذج يتغير فورا ، إلا أن الجدول لا يقوم بالتغيير إلا بعد فتح النموذج .
المطلوب : تحديث فوري للجدول بمجرد أي تغيير في التعليمات البرمجية للنموذج .
للأهمية ، وشكرا للجميع ( الشاعر )
المثال مرفق يوضح المطلوب
أخوي الشاعر
عدل الكود الموجود في النموذج هذا ..
Private Sub Form_Load() Result = ([ShowDriveInfo] + 815 * 5) - 815815 CopyNo = Result End Sub
ليصبح هكذا ..
Private Sub Form_Load() Result = ([ShowDriveInfo] + 815 * 5) - 815815 CopyNo = Result Me.Refresh End Sub
جرب وأخبرني .
تحياتي ..
السلام عليكم
أشكرك أخي العزيز / فهد الدوسري على سرعة استجابتك وإجابتك على سؤالي ، ولكن المشكلة لا تزال قائمة ولا يتم التحديث حتى بعد وضع الأمر Me.Refresh ، وذلك ربما لأن الجدول هو من يعتمد على النموذج وليس العكس .
أنتظر ردك بأقرب وقت ، ولك وللجميع فائق تحياتي .
( الشاعر )
up
اقتباسعندما أقوم بتغيير المعادلة الموجودة في التعليمات البرمجية للنموذج
أعطني مثال على تغيير المعادلة لكي أقوم بتجربته .. بمعنى آخر ما هو التغيير الذي تقوم به أنت ؟
تحياتي ..
السلام عليكم
أخي فهد أشكرك على سعة صدرك
المعادلة هي :
Private Sub Form_Load()
Result = ([showDriveInfo] + 815 * 5) - 815815
CopyNo = Result
Me.Refresh
End Sub
أقصد بالتغيير في المعادلة في الرقم ( 815815 )
بالطبع لو غيرة في الرقم سوف تتغير القيمة الموجودة في النموذج ، وكنها لن تتغير في الجدول إلا إذا فتحت النموذج ، فمثلا لو قمت بتغيير الرقم في المعادلة وقمت بحفظ النموذج ثم خرجت بدون أن أفتح النموذج فلن تتغير القيمة الموجودة في الجدول ، وأنا أريد تحديث مباشر لتتغير القيمة الموجودة في الجدول دون فتح النموذج .
تحياتي ( الشاعر )
أقصد لو غيرت الرقم من 815815 مثلا إلى 815800
لقد جربت عددت مرات والكود يعمل معي 100% حيث قمت بفتح الجدول والنموذج في نفس الوقت لأرى التغيير هل يتم أم لا ثم قمت بتغيير الرقم من خلال الوحدة النمطية في النموذج وعند عرض النموذج تم تغيير القيمة في الجدول ولم أقم بإغلاق النموذج .
تحياتي ..
السلام عليكم
تحملني أخوي فهد
جرب في تغيير المعادلة ففي الوحدة النمطية للنموذج ، ثم احفظها واخرج مباشرة من البرنامج ، وافتح البرنامج من جديد بالشفت واتجه للجدول ، سترى أن الرقم لم يتغير .
وأنا أريد لهذا الرقم بدون أن أفتح النموذج يتغير مباشرة .
تحياتي ( الشاعر )
الموضوع ضروري جدا بالنسبة لي ، الله الله أخوي فهد
أخوي الشاعر ..
ألم تجعل الكود ينفذ في حدث ( عند التحميل ) للنموذج ؟
إذا كان جوابك نعم .. فكيف تريد القيمة أن تتغير ولم تقم بفتح النموذج ؟
أنا أقول لك هذا الكلام من منطق عقلي القاصر وخبرتي القليلة جداً في مجال البرمجة ولا أحكم على فشل ما تريد فهناك من هم أقدر مني ولديهم من العلم الواسع وأتمنى منهم مساعدتك لكي نستفيد جميعاً .
عموماً لا تيأس يا أخي في طلب ما تريد .
تحياتي ..
السلام عليكم
أخوي فهد أشكرك على تواضعك ، ولكن ماذا تقترح كحدث آخر لتنفيذ ما أريد؟
هل هناك تحديث للجدول مثلا ؟
أفيدوني رعاكم الله
تحياتي ( الشاعر )
صراحة لم استوعب فكرتك جيداً أو الهدف من وراء ذلك ولكن جرب التالي:
اجعل الشفرة وحدة نمطيه عامة ( Module) واستبدل مربع النص " CopyNo " بمتغير واستدع الشفرة مثلاً عند فتح البرنامج واستخدم لغة sql تلحق قيمة المتغير إلى الحقل في الجدول.
كما يمكنك الإضافة على الكود ليقوم بعملة إختبار إذا تغيرت القيمة في المتغير يقوم بتحديث الحقل في الجدول وإلا تبقى القيمة على ما هي عليه.
إذا لم تنفع معك هذه الطريقة رجاء وضح التالي:
ما الهدف من ذلك الكود
هل الرقم ثابت أم متغير
هل يتغير الرقم آلياً أم يغيره المستخدم في الكود ( غير معقول)
تقبل تحياتي
تم تعديل هذه المشاركة بواسطة مصلح الحريصي في 10 ديسمبر 2004 في 21:36
ان كنت قد فهمت السؤال فاٍنك تريد أن يتم التحديث مباشرة في الجدول قبل الخروج من البرنامج أو قبل فتحه , فقد عدلت المثال و ربما هذا هو مطلبك, فقد وضعت Me.Refresh
في حدث عند تغيير البيانات , لست أدري ان كا ن هذا هو المطلوب.
السلام عليكم
أخي مصلح الحريصي أشكرك كثيرا على شرحك هذا ، ولكنني للأسف مبتدئ ولا أعي كثيرا مما تقول ( صبرك علنا شوي )
أخي biskra أشكرك كثيرا أيضا ، إلا أنه يبدو أنني لم أعرف أن أوصل ما أريد ، ولكنني توصلت لللفكرة التي من أجلها طرحت هذا السؤال وليس لحل المشكلةهذه ، فجزاكم ربنا خيرا على كل ما بذلتموه وتبذلوه في خدمة عشاق الأكسس .
تحياتي للجميع ( الشاعر )
هذا الموضوع مغلق.