كيفية ادراج زرالتصغيروالتكبير في تروسية النموذج بالاضافة الى كيفية حفظ البيانات في النموذج

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل الموقر

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

ارجوا المساعدة وحسب المرفق

تقبلوا تحياتي

نموذج.rar

[محمد يحياوي]

الاخ الكريم لاحظ الرابط التالي

كود لاضافة زر تصغير لليوزرفورم

[محمد يحياوي]

و هذا تطبيق على ملفك

نموذج.rar

[skyblue]

استاذ yahiaoui بارك الله فيك ووفقك دائما للخير الكود قمت بتطبقه في برنامج لدي وكان مئة في المئة .

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

[محمد يحياوي]

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

[الـعيدروس]

السلام عليكم

الاخ الفاضل skyblue

جربت انا الأن في مرفقك الأول اخرج من الفورم

وافتحه ثاني مرة القى بيانات التكست الثاني موجودة ؟؟؟

[skyblue]

لقد جربت القورم . فعندما اخرج ثم اعود لااجد البيانات التي سبق تسجيلها

[skyblue]

استاذي العيدروس انا لااقتصد التكست الثاني فانت سبق ان عملته لي مشكورا .

لكن انا بصدد لو استخدمت زر الخروج فقط ثم رجعت للفورم لااجد البيانات هذا مااقصده .

[الـعيدروس]

ضلل الكود السابق

وحط هذا بداله

هذا نفس كود الاستاذ الحبيب يحياوي

ولاكن سوى عند اختيار نعم او لاا يحفظ

Private Sub CommandButton1_Click()

Unload Me

If MsgBox("هل تريد الخروج", vbYesNo, "خروج") = vbYes Then

  Application.DisplayAlerts = False

  ActiveWorkbook.Save

    Application.Quit

   End If

ActiveWorkbook.Save

Sheets("البيانات").Select

End Sub

[محمد يحياوي]

الاخ الكريم هل تقصد هذا ... لاحظ الملف

نموذج.rar

[skyblue]

استاذ yahiaoui نعم هذا المطلوب وزيادة لك مني دعوة بظهر الغيب من ارض مكة وهذه ايضا لك

[محمد يحياوي]

مااجملها دعوة و خاصة اذا كانت من مهب القلوب و مهجة الالباب