اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ما الخطأ لا ادري .. انهيت العمل والشاشة كنت بتفتح جيدا وبعد تفريغ البيانات لم تعد تفتح


gamalin

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

الاخوة الافاضل 

ما الخطأ في الاكواد 

كانت الفورم addacc تفتح وادخلت عليها بيانات 

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

مالخطأ.xlsm

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

هل  تقصد  عند  الضغط  على  زر  الرئيسية يعطي  مرجع غير  صالح (بسبب حماية الورقة الغي  الحماية) 

بالاضافاة انه غير  مرتبط  باليوزرفورم   

لقد  قمت  بتشغيلة من داخل  المحرر يعمل  بدون  اي  خطا 

فقط  اربط  الزر باليوزرفورم 

اما  اذا  كان  شيء  اخر  قم  بتفصيل  اكثر  لتجد تفاعل  من بقية  الاعضاء 

تحياتي

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

عذرا استاذنا اشغلت والملف خطا ..الفورم المسمى addacc هو المقصود ..اوقات يفتح واوقات بعد تفريغ البانات من شيت acc لا يفتح 

واعدت تجربته الان يفتح مش عارف هل في كود تحميل النموذج اي خطأ او في كود تفعيله  ربما ينقص شيء مش عارف عذرا سوف ارفق صورة الخطأ عند ظهوره مرة اخرى اعتذر لك اخي الكريم ...ولكن هذا الكود يعطي خطأ في حالة عدم وجود داتا وعدم وجود اسطر تحت السطر رقم 3

Private Sub Cob1_DropButtonClick()
w = Sheet3.Cells(Rows.Count, 3).End(xlUp).Row
CoB1.List = Sheet3.Range("c3:c" & w).Value
End Sub

 

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

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

 الان  لاحظت   الخطا  .  مرة  اخرى  لم  توضح  ذلك  هل  اقوم  بالتخمين ( لاحظت  ذلك   بعد  عدة   محاولات  عندما  اقوم بالبحث  واختيار الكومبوبوكس)

مجرد  محاولة  استبدله  بهذا 

Set w = Worksheets("acc").Range(Worksheets("acc").Range("c3"), Worksheets("acc").Range("c3:c10000").End(xlDown))

 

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information