Boo.Reema

في ١١‏/٤‏/٢٠١٩ at 06:32, SEMO.Pa3x said:

 

بالضبط يجب ان يكون العميل متصل بالانترنت.

او ممكن تسوي تغيير بالكود وتخلي التحقق Local

 

حسنين

لو أمكن ممكن الكود مع الشرح فى حالة عدم الاتصال بالنت

وكيفية توليد أرقام التسجيل للبرنامج

الموضوع رائع لكن من خلال فهمى البسيط يجب أن يكون العميل متصل بالانترنت حتى يتم تفعيل البرنامج

هل رأيى صحيح أم أن فهمى للموضوع خاطئ ؟

22 دقائق مضت, SEMO.Pa3x said:

وعليكم السلام.

ماذا تقصد برقم المسلسل ؟؟

الطلب الثاني، لا تستطيع اعادة الترقيم التلقائي طالما انه مفتاح اساسي.

قم بحذفة ثم حجزه مرة اخرى

 

حسنين

اقصد عمود الـ 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

اسم المستخدم

Reem

كلمة المرور

232629.1

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

أقدم لكم برنامج شئون الطلاب 

للمرحلة الإعدادية

البرنامج خاص بالصف الأول الإعدادى

فإن أردتم

أرفقت لكم باقى الصفوف

البرنامج يقوم بعمل جميع السجلات الخاصة بالمدرسة

41 مستجدين

قيد الطلاب الناجحين

قيد الطلاب الباقين

5 سلوك

استمارات للغياب

سجلات المعلم (( أعمال السنة - حصر الغياب ))

سجلات المصروفات المدرسية

وبالنسبة للصف الثالث الإعدادى يزيد على ذلك

استيكرات كتابة الاستمارات

البرنامج تم عمله من العام الماضى

هنا فى هذا المنتدى العظيم

وبعد الانتهاء منه

قمت ببعض التعديلات البسيطة عليه

ليس لسبب إلا لتجربته عمليا داخل مدرستى

الحق يقال 

أعجب الجميع بلا استثناء

لسهولته واستخراج سجلاته المختلفة بسهولة ويسر

الذى كان يأخذ منهم أياما وأسابيع للعمل

أصبح بنقرة زر

ملحوظة بسيطة

* - البرنامج تم تصميمه ليناسب العمل فى مدرستى

*- ادخال البيانات لأول مرة يكون من بيانات الطلاب فى الشيت ولا يوجد يوزر فورم لذلك فتقبلوا اعتذارى عن ذلك

*- البرنامج لا توجد عليه أى حماية نهائيا فأرجو ممن يستخدمه ألا ينسب العمل لنفسه ويكفينى الدعاء بظهر غيب لى ولأهل بيتى فقد أكون فى حاجة إليه

*- من يريد التعديل فليتفضل وبعد ذلك يرفع لنا البرنامج لنستفاد منه

آسف جدا للإطالة

إليكم البرنامج فى المرفقات 

برنامج شئون الطلاب للصف الأول الإعدادى.rar

تم حل المشكة

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

أين الخطأ فى هذا الكود لتعديل البيانات

       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

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

أريد كود لمعاينة جزء معين من ورقة العمل وذلك داخل اليوزر فورم

لأنى أريد إخفاء تطبيق الأكسيل تماما أثناء العمل

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

فى الفيجوال بيسك