Boo.Reema
عضو جديد 01-
Posts
26 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Boo.Reema
-
اقصد عمود الـ ID الذى يظهر باسم م للمستخدم أى المسلسل وقد جعلته لايبل حتى لا يمكن تعديله تفاديا للأخطاء بالنسبة للطلب الثانى ممكن كود حذف عمود الـ ID وارجاعه فى مكانه مرة أخرى عن طريق زر فى الفورم اذا أردت ممكن ارفع قاعدة البيانات أو ملف المشروع كامل فهو للتعلم والتجربة أفادكم الله وجعله فى ميزان حسناتكم
-
السلام عليكم ورحمة الله وبركاته أنا مبتدئ جدا فى هذا المجال لكنى أريد الخوض فيه من باب التعلم عندى تجربة بسيطة وهى ربط فيجوال 2013 بقاعدة بيانات أكسيس 2007 فيها جدول واحد فقط عندى كود حذف يعمل بكفاءة لكن مشكلته أريد تعديله عندما يكون المسلسل فارغ لا أريد تفعيل زر الحذف أو أريد اظهار رسالة تخبر بأن المسلسل فارغ ولا يمكن الحذف Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click ''If DataGridView1.Visible = True Then Label10.Focus() ''If Label10.Text = "" Then Button6.Enabled = False 'If Label10.Text = "" Then ' Button6.Enabled = False 'End If Conn.Close() If MsgBox("هل تريد حذف الاسم من البرنامج نهائياً ", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "حذف الاسم نهائياً ") = MsgBoxResult.Cancel Then Exit Sub Dim SavInto As New OleDb.OleDbCommand Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn) SavInto.Connection = Conn SavInto.CommandType = CommandType.Text SavInto.CommandText = "DELETE * FROM thename WHERE id like " & Label10.Text & "" Conn.Open() SavInto.ExecuteNonQuery() DataSet1.Clear() Conn.Close() MsgBox("تم الحذف بنجاح") Call Button2_Click(sender, e) End Sub نظرا لقلة خبرتى المحاولات كثيرة كما ترون وهناك طلب اخر أعلم أنه كثيرا ما طلب منكم لكن كل محاولاتى معه فشلت وهو اعادة الترقيم التلقائى لقاعدة البيانات عن طريق زر مع العلم أن الترقيم التلقائى مفتاح اساسى بالجدول فى انتظار ردودكم
-
مطلوب ترحيل الطلاب على 10 قاعات أرجو المساعدة
Boo.Reema replied to Boo.Reema's topic in منتدى الاكسيل Excel
تم حل المشكلة شكرا لكم على الاهتمام بالموضوع -
مطلوب ترحيل الطلاب على 10 قاعات أرجو المساعدة
Boo.Reema replied to Boo.Reema's topic in منتدى الاكسيل Excel
فى انتظار الرد -
السلام عليكم ورحمة الله وبركاته مطلوب كود ترحيل للطلاب على 10 قاعات مرفق الملف بالكامل البيانات موجودة فى الصفحة Data وصفحة كل قاعة برقمها من 1 الى 10 لم انتهى من عمل الملف بعد لذلك يمكنكم العمل والتنقل من خلال محرك ال vba داخل الملف K G.rar
-
مطلوب توزيع الرقم القومى على 14 خانة من صفحة لصفحة أخرى
Boo.Reema replied to Boo.Reema's topic in منتدى الاكسيل Excel
تم حل المشكلة وتم تنفيذ المطلوب -
اسم المستخدم Reem كلمة المرور 232629.1
-
السلام عليكم ورحمة الله وبركاته أقدم لكم برنامج شئون الطلاب للمرحلة الإعدادية البرنامج خاص بالصف الأول الإعدادى فإن أردتم أرفقت لكم باقى الصفوف البرنامج يقوم بعمل جميع السجلات الخاصة بالمدرسة 41 مستجدين قيد الطلاب الناجحين قيد الطلاب الباقين 5 سلوك استمارات للغياب سجلات المعلم (( أعمال السنة - حصر الغياب )) سجلات المصروفات المدرسية وبالنسبة للصف الثالث الإعدادى يزيد على ذلك استيكرات كتابة الاستمارات البرنامج تم عمله من العام الماضى هنا فى هذا المنتدى العظيم وبعد الانتهاء منه قمت ببعض التعديلات البسيطة عليه ليس لسبب إلا لتجربته عمليا داخل مدرستى الحق يقال أعجب الجميع بلا استثناء لسهولته واستخراج سجلاته المختلفة بسهولة ويسر الذى كان يأخذ منهم أياما وأسابيع للعمل أصبح بنقرة زر ملحوظة بسيطة * - البرنامج تم تصميمه ليناسب العمل فى مدرستى *- ادخال البيانات لأول مرة يكون من بيانات الطلاب فى الشيت ولا يوجد يوزر فورم لذلك فتقبلوا اعتذارى عن ذلك *- البرنامج لا توجد عليه أى حماية نهائيا فأرجو ممن يستخدمه ألا ينسب العمل لنفسه ويكفينى الدعاء بظهر غيب لى ولأهل بيتى فقد أكون فى حاجة إليه *- من يريد التعديل فليتفضل وبعد ذلك يرفع لنا البرنامج لنستفاد منه آسف جدا للإطالة إليكم البرنامج فى المرفقات برنامج شئون الطلاب للصف الأول الإعدادى.rar
-
أين الخطأ فى هذا الكود البسيط لتعديل البيانات
Boo.Reema replied to Boo.Reema's topic in منتدى الاكسيل Excel
تم حل المشكة -
السلام عليكم ورحمة الله وبركاته أين الخطأ فى هذا الكود لتعديل البيانات Dim WS As Worksheet Set WS = Sheets("KG01") WS.Activate III = 11 Do Until WS.Cells(III, "B").Text = "" If Me.ComboBox1.Text = WS.Cells(III, "C").Text Then WS.Cells(III, "B").Activate '---------------------------------------------------------------- WS.Cells(III, "C").Offset(0, 0).Value = Me.TextBox1.Value WS.Cells(III, "K").Offset(0, 0).Value = Me.TextBox2.Value Me.Label17 = WS.Cells(III, "E").Offset(0, 0).Text Me.Label18 = WS.Cells(III, "F").Offset(0, 0).Text Me.Label19 = WS.Cells(III, "G").Offset(0, 0).Text Me.Label20 = WS.Cells(III, "H").Offset(0, 0).Text Me.Label21 = WS.Cells(III, "I").Offset(0, 0).Text Me.Label22 = WS.Cells(III, "J").Offset(0, 0).Text Me.Label16 = WS.Cells(III, "D").Offset(0, 0).Text Exit Sub End If III = III + 1 Loop Me.ComboBox1.SetFocus الملف على أكسيل 2007 الصفحة الرئيسية - حضانة صغرى - البحث عن تلميذ - تعديل الكود خاص نتعديل الاسم والرقم القومى أحيانا يتم تعديل الاسم فقط وانا اريد تعديل الاسم والرقم القومى فى انتظار الرد K G 2018 22.rar
-
السلام عليكم ورحمة الله وبركاته أريد كود لمعاينة جزء معين من ورقة العمل وذلك داخل اليوزر فورم لأنى أريد إخفاء تطبيق الأكسيل تماما أثناء العمل يعنى حاجة كده زى الداتا جريد فيو فى الفيجوال بيسك