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

[gamalin]

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

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

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

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

مالخطأ.xlsm

[عبدالفتاح في بي اكسيل]

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

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

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

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

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

تحياتي

[gamalin]

عذرا استاذنا اشغلت والملف خطا ..الفورم المسمى 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))

 

[gamalin]

اشكرك