برنامج حساب العجز والزيادة فى مدارس التعليم الابتدائى برنامج حساب العجز والزيادة فى مدارس التعليم الابتدائى

[محمود حسونه]

برنامج حساب العجز والزيادة فى مدارس التعليم الابتدائى "

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

برنامج حساب العجز والزيادة.rar

[عبدالسلام ابوالعوافي]

Private Sub CommandButton4_Click()
Unload Me
Application.Visible = True
Sheets("s").Select
End Sub

 

[محمود حسونه]

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

تم تعديل مايو 3, 2016 بواسطه محمود حسونه

[mody_mhashem]

فى ذر شاشة الدخول 

استبدل الكود الموجود بالكود الاتى

Private Sub CommandButton1_Click()
If TextBox1.Value = "محمود" And TextBox2.Value = "1990" Then
Unload Me
User_Data.Show
Exit Sub
End If
MsgBox "المدخلات غير صحيحة - ادخل المطلوب مرة ثانية"
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus

End Sub

فى ذر الدخول الى صفحة العمل ضع الكود التالى بدل الموجود

Private Sub CommandButton4_Click()
Unload Me
Application.Visible = True
Sheet2.Activate
End Sub

 

تم تعديل مايو 3, 2016 بواسطه mody_mhashem
اضافة أجابة

[عبدالسلام ابوالعوافي]

الكود صحيح اخي الفاضل .. لكن يجب التعديل علي زر الدخول في الفورم 3 

Unload Me
User_Data.Show

بدلا من 

User_Data.Show
Unload Me

 

[محمود حسونه]

تم الحل شكرا لكما

[akhmedtaia]

22 ساعات مضت, محمود حسونه said:

تم الحل شكرا لكما

ارفق الملف فى صورتة النهائية الاخيرة

 

[محمود حسونه]

النسخة الاخيرة من البرنامج شكرا لكل من ساعدنى وشكرا للسادة الافاضل القائمين على هذا الموقع

اسم المستخدم : محمود

الرقم السرى : 1990

برنامج حساب 1العجز والزيادة.rar

[akhmedtaia]

الف شكر يا ريس

 

[الكنج باشا]

لا استطيع تحميل البرنامج

[skilltokill01@gmail.com]

جزاك الله كل خير

[إيهاب مصطفى أمين]

ممتاز بارك الله فيك 
هل يوجد برنامج للتعليم الاعدادي أو الثانوي 

 

تم تعديل نوفمبر 9, 2018 بواسطه إيهاب مصطفى أمين