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

خطأ في الكود


إذهب إلى الإجابة الإجابة بواسطة سامي الحداد,

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

قام بنشر

السلام عليكم ورحمة الله وبركاته ارجو مساعدتى في معرفة المشكلة فى الكود 

مع حسابات العملاء الحمد لله بفضل الله ثم بمجهود الاخوة الخبراء البرنامج يعمل بدون مشاكل

حبيت انفذ نفس الاكواد على حسابات الموردين مع مراعاة تغيير الاسماء حتى اتجنب التعارض بسبب الاسماء المتشابه

ولكن في خطاء كما هو موضح في الصور وجزاكم الله خيرا

1.png

2.png

3.png

4.png

shady master garage test1 24052023.rar

قام بنشر

لو في حاجه غير واضحه يا ريت حد يبلغني

نسخ العملاء تلقائيا بالضغط على الزر كمت قد طرحته قبل ذلك والحمد لله الإخوة ساعدوني وتم حل المشكله بنجاح

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

قام بنشر

جرب توقف الكود اللي في اللون الاخضر نفس اللي سويت وجرب  لتعطيله ضع فاصله قبل الكود '

وشوف يشتغل او لا

 

image.png.ff4fb23b07dabc72496f4c6f2d01b09c.png

 

  • تمت الإجابة
قام بنشر

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

الخطاء هنا

Exit_cmd_Select_Click:

    Call cmd_close_Click
    Exit Sub
    
err_cmd_Select_Click:

    If Err.Number = 1 Then
            
    Else

        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_cmd_Select_Click


وهذا الصحيح

Exit_cmd_Select2_Click:

    Call cmd_close_Click
    Exit Sub
    
err_cmd_Select2_Click:

    If Err.Number = 1 Then
            
    Else

        MsgBox Err.Number & vbCrLf & Err.Description
        Resume Exit_cmd_Select2_Click

وهذا ملفك بعد التعديل

shady master garage test1 24052023.rar

  • Thanks 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information