اذهب الي المحتوي
أوفيسنا

(تمت الاجابة) مشكلة كود في حدث الحالي


الردود الموصى بها

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

أخوتي الأعزاء الأكارم تحية طيبة وبعد ،،

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

  • كود لصورة الشيك .
  • كود لعداد السجلات .
  • كود لتغيير لون النموذج بحيث إذا كان السجل صرف يعطي لون معين وإذا كان قبض يعطي لون آخر.
  • وكود لعدم تفعيل بعض حقول النموذج إذا كان السند نقداً .

المشكلة هي عندما أضع كود الصورة في المقدمة ويليه كود اللون فإن كود عداد السجلات وكود عدم تفعيل بعض الحقول لا يعملان ، وعندما أضع الأخيران في المقدمة فأن الأول والثاني لا يعملان .

وأعتقد أن المشكلة تكمن في عملية تنسيق الأكواد في حدث الحالي ، فأرجو من الأخوة الأحبة التكرم بالتعديل او التصحيح على الكود ، وجزاكم الله عنا خير الجزاء .

مرفق ملف للبرنامج

أخوكم أبو محمد

Voucher1.rar

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

أخي العزيز

التطبيق جميل ومنسق ...

بالتحليل والتجربة ... وانت أدرى بما لديك ، وجدت ما يلي

أسماء مسارات الملفات للصور فيها خطأ حسب الصورة ، وعند ازاله "\" الاضافية تتحقق صحة المسار ويفتح الملف

post-12714-0-40175600-1314313916_thumb.j

post-12714-0-23380100-1314313954_thumb.j

هناك جملة محرر أخطاء On Error GoTo HandleErr يفضل إزالتها و الاسناد لمحرر أخطاء On Error GoTo Err_Form_Current

post-12714-0-46719000-1314314067_thumb.j

post-12714-0-97161600-1314314236_thumb.j

والبقية تأتي ... بإذن الله

والله اعلم

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

أخي العزيز nart lebzo

جزاك الله عنا خير الجزاء على الرد والجهد الذي بذلته وشاكراً لك فضلك

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

فضهرت لي بعض المشاكل الا وهي عندما أقوم بفتح النموذج من المفترض أن يفتح النموذج على سجل جديد وفعلاً يفتح على سجل جديد ولكن تظهر بيانات أول السجل في السجل الجديد واليك الصورة

وأما المشكلة الثانية عندما أضغط على زر سجل جديد تظهر عندي حقول غير مفعلة لان السجل الذي يسبقه كان السند نقداً علماً أن هذه الجملة الشرطية وضعتها في حدث الحالي إذا كان طريقة الدفع لا تساوي نقداً تكون الحقول مفعلة واليك الصورة

وعذراً على الإطالة وجزاك الله عنا خير الجزاء

أخوك أبو محمد

post-22243-0-97501100-1314319356_thumb.j

post-22243-0-32212500-1314319803_thumb.j

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

أخي العزيز



    • كود لصورة الشيك .
    • كود لعداد السجلات .
    • كود لتغيير لون النموذج بحيث إذا كان السجل صرف يعطي لون معين وإذا كان قبض يعطي لون آخر.
    • وكود لعدم تفعيل بعض حقول النموذج إذا كان السند نقداً .

    انا كنت ملتزما بطلبك فقط ولم اتطرق لصحة أي كود آخر أو كون مكانه مناسبا أم لا ...

    جاري التدقيق .......

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

أخي العزيز

في حدث الحالي للنموذج عدل في المكان المناسب كما يلي



If Me.NewRecord Then


     	Dim ctl As Control

	On Error Resume Next

	For Each ctl In Me.Controls

    	ctl.Enabled = True

	Next ctl


	DoCmd.GoToRecord , , acNewRec


	' Use appropriate prompt for your database.

    	Me.Caption = "New Record: Please Select The Action Type ..."


	End If

عندي الأمور تمام

جرب ووافني بالنتيجة

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

ما شاء الله عليك أحسنت .....

أخي الأمور تمام التمام أسأل الله العظيم أن يجزيك خيراً على ما فعلت وأن يتقبل منك صالح الأعمال .

وعذراً منك إن أثقلت عليك .

أخوك أبو محمد

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

ما شاء الله عليك أحسنت .....

أخي الأمور تمام التمام أسأل الله العظيم أن يجزيك خيراً على ما فعلت وأن يتقبل منك صالح الأعمال .

وعذراً منك إن أثقلت عليك .

أخوك أبو محمد

الحمد لله الذي بفضله تقضى الحاجات

أخي أبا محمد

لم تثقل على فانا بخدمتكم ما استطعت وقدر لي

وحياك الله

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information