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 نظرا لقلة خبرتى المحاولات كثيرة كما ترون وهناك طلب اخر أعلم أنه كثيرا ما طلب منكم لكن كل محاولاتى معه فشلت وهو اعادة الترقيم التلقائى لقاعدة البيانات عن طريق زر مع العلم أن الترقيم التلقائى مفتاح اساسى بالجدول فى انتظار ردودكم

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

سليم حاصبيا لم يعمل ايضا برغم ترقيم العمود B يقوم بتغيير مساحة الطباعة الى الافتراضى يعنى عمود الاسم فى صفحة وتاريخ الميلاد فى صفحة والرقم القومى فى صفحة للأسف لم يعمل على الملف الأصلى

سليم حاصبيا فى الانتظار منكم أو من أى أعضاء الموقع الكرام

إليكم الملف الأصلى أريد تنفيذ الكود على الصفحة Print العدد فيها 500 طالب وعلى كل الصفحات من 1 إلى 10 وهى بنفس التنسيقات يختلف اسم الصفحة فقط العدد فى كل صفحة 50 طالب أرجو ألا أكون أثقل عليكم K G.rar

فى ملف التجربة رائعة جدا فى الملف الأصلى لم تعمل على الاطلاق هل ارفق لكم الملف الاصلى

السلام عليكم ورحمة الله وبركاته العنوان يدل على المطلوب ومرفق ملف بسيط للتجربة عليه أرجو الإفادة Microsoft Excel Worksheet جديد.rar

تم حل المشكلة شكرا لكم على الاهتمام بالموضوع

فى انتظار الرد

السلام عليكم ورحمة الله وبركاته مطلوب كود ترحيل للطلاب على 10 قاعات مرفق الملف بالكامل البيانات موجودة فى الصفحة Data وصفحة كل قاعة برقمها من 1 الى 10 لم انتهى من عمل الملف بعد لذلك يمكنكم العمل والتنقل من خلال محرك ال vba داخل الملف K G.rar

تم حل المشكلة وتم تنفيذ المطلوب

السلام عليكم ورحمة الله وبركاته مطلوب توزيع كود المعلم 7 أرقام وتوزيع الرقم القومى 14 رقم من صفحة قاعدة بيانات المدرسة إلى صفحة إقرار القيام بالعمل كما أرجو شرح الطريقة لنقلها إلى الملف الذى توجد به البيانات الأصلية عندى توجد صور والملف بالمرفقات شئون عاملين 2025.rar