[عبد العزيز البسكري]

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

جمعة مباركة للجميع و أمسية طيبة لكل الإخوة بالمنتدى

أملي بالله ثم بكم المساعدة لحل هذه الإشكاليّة التي أرهقتني كثيرًا و لم أجد المخرج معها

بزر الإضافة  الكود الأصلي  كان بهذه الجزئية فقط و يعمل تمام التّمام :

كود :

 InfoBookmark = InfoManager.Position
           Call SetState("Add")
           InfoManager.AddNew()

أضفت لزر الإضافة هذا .. جزء آخر من الأكواد للتّرقيم التّلقائي التّسلسلي .. فأصبحت لديَّ مشكلة بهذا السّطر المشار إليه بالسّهم الأحمر بالصّورة أدناه ..

لو وقّفت عمل هذا السّطر يشتغل كود التّرقيم التّلقائي لكن التاكسات تبقى مقفلة و لا يمكنني إدخال البيانات

لو شغّلت هذا السّطر التاكسات تصبح جاهزة لإدخال البيانات لكن التّرقيم التلقائي لا يظهر بالتاكست 1 المخصّصة له

ألف شكر مقدّمًا و جزاكم خير الجزاء و زادها بموازين حسناتكم إن شاء الله

تحياتي

[zinom]

قاعدة البيانات بتظهر عندي - بايظه

[عبد العزيز البسكري]

قاعدة البيانات بتظهر عندي - بايظه

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

فعلاً لا أعرف الخلل .. لأنّها تشتغل بطريقة عادية عندي

إليك أخي الكريم ما بقاعدة البيانات من معلومات

إحتراماتي

[zinom]

استازنا الفاضل / عبدالعزيز

تقبل تحياتي

رحل الكود ده للاسفل فقط

   

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم و زادها بموازين حسناتك إن شاء الله
الآن يشتغل تمام التّمام .. الفضل لله ثم لك أخي قبل أستاذي الغالي
بقيت إشكاليّة وحيدة أثبتت لي أنّ هذا الملف يشتغل بمزاجه و ليس بمزاجي
جرّب سيّدي الكريم إفراغ ما بقاعدة البيانات من معلومات .. ستجد التّرقيم يشتغل بطريقة عادية و يظهر الرّقم 1 بالتاكست 1 لكن التاكسات كلّها مقفلة

إحتراماتي

---

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

مسحت يا غالي السّطر المشار إليه و لا يزال المشكل قائمًا .. يظهر التّرقيم التّلقائي لكن تبقى التاكسات غير متاحة لإدخال البيانات بالملف بالمرفقات

أخي الكريم .. مجرّد تساؤل

هل مسح السّطر لا يؤثّر على الملف عندما تكون قاعدة البيانات غير فارغة .. كيف سيُضاف رقم 1 على آخر رقم ؟؟

تحياتي

[zinom]

ربنا يبارك في حضرتك استاذنا الفاضل

ويسعدك دنيا واخره

تقبل التعديل الجديد علي الكود يحل هذه المشكله

   

   

   

   

[عبد العزيز البسكري]

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

أرجو المعذرة أخي الغالي .. فعلاً أرهقتك معي لكن الله وحده يعلم أنّي أحاول بعشرات المرات قبل أن أطرح السؤال بالمنتدى

للأسف لا يتمّ الحفظ بقاعدة البيانات من جهة و لا تظهر بيانات السجل الذي تمّ حفظه فوريا على الداتا غريد من جهة ثانية و رسالتيْن من أجل الحفظ .. نوعا ما الأمر مزعج

وافر إحتراماتي

---

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

الحمد لله أخي الغالي " zinom " على المساعدة الطيّبة المثمرة

أدعو الله أن يمدّك بتمام الصحّة و العافية و راحة البال و يرزقك من حيث تحتسب و من حيث لا تحتسب

بفضل الله ثم بفضلك و بفضل إرشاداتك إهتديت للحل السليم بهذا الكود من جميلك سيّدي الكريم ..أرجو منك فضلا لا أمرا مراجعته لو سمحت لعلّ به خلل

كود :

     Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "إضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub
        Application.DoEvents()
        Dim InfoCommand As New OleDbCommand("SELECT max(ID) From INFOTABLE", con)
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        If InfoCommand.ExecuteScalar Is DBNull.Value Then
            Call SetState("Add")
            InfoBookmark = InfoManager.Position
            InfoManager.AddNew()
            TextBox1.Text = 1
        Else
            Call SetState("Add")
            InfoBookmark = InfoManager.Position
            InfoManager.AddNew()
            TextBox1.Text = InfoCommand.ExecuteScalar + 1
        End If
    End Sub      

أكرّر شكري و احترامي و تقديري وامتناني لك أخي الكريم

إحتراماتي و تقييماتي

[طالب برمجة]

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

في الدوت نت عن تحديد الأداة ستجد سهم صغير
منه تستطيع تصميم الأداة مثل الأعمدة للداتاجريد مع تحديد اسم الحقل للعمود دون عناء كتابة كود التصميم

[عبد العزيز البسكري]

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

في الدوت نت عن تحديد الأداة ستجد سهم صغير
منه تستطيع تصميم الأداة مثل الأعمدة للداتاجريد مع تحديد اسم الحقل للعمود دون عناء كتابة كود التصميم

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

تشكر يا غالي على الإفادة .. سأعمل بذلك إن شاء الله

إحتراماتي

[zinom]

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

# في البداية احب اني اعتزر عن تأخري في الرد علي حضرتك
خارج ارادتي ولله العلم

أرجو المعذرة أخي الغالي .. فعلاً أرهقتك معي لكن الله وحده يعلم أنّي أحاول بعشرات المرات قبل أن أطرح السؤال بالمنتدى
- # الله يوفقك استازنا الفاضل (والله نكون في غاية السعاده - فنحن لنا عظيم الاستفاده من اطروحاتكم الجميله فلا تبخلو علينا بالمزيد )

للأسف لا يتمّ الحفظ بقاعدة البيانات من جهة ()و لا تظهر بيانات السجل الذي تمّ حفظه فوريا على الداتا غريد من جهة ثانية و رسالتيْن من أجل الحفظ .. نوعا ما الأمر مزعج #( والله انما لتوضح الفكره لم اكن اريد ان اغير من بنية الاكواد  - وتركت الاكواد كما بنيتها حضرتك - وكنت علي عجله من امري)

وافر إحتراماتي

---

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

الحمد لله أخي الغالي " zinom " على المساعدة الطيّبة المثمرة

أدعو الله أن يمدّك بتمام الصحّة و العافية و راحة البال و يرزقك من حيث تحتسب و من حيث لا تحتسب

بفضل الله ثم بفضلك و بفضل إرشاداتك إهتديت للحل السليم بهذا الكود من جميلك سيّدي الكريم ..أرجو منك فضلا لا أمرا مراجعته لو سمحت لعلّ به خلل

كود :

     Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "إضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub
        Application.DoEvents()
        Dim InfoCommand As New OleDbCommand("SELECT max(ID) From INFOTABLE", con)
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        If InfoCommand.ExecuteScalar Is DBNull.Value Then
            Call SetState("Add")
            InfoBookmark = InfoManager.Position
            InfoManager.AddNew()
            TextBox1.Text = 1
        Else
            Call SetState("Add")
            InfoBookmark = InfoManager.Position
            InfoManager.AddNew()
            TextBox1.Text = InfoCommand.ExecuteScalar + 1
        End If
    End Sub      

أكرّر شكري و احترامي و تقديري وامتناني لك أخي الكريم

إحتراماتي و تقييماتي
العفو استازنا الفاضل - عَمِلْتَ الكثير وما عَمِلْنَا إلا القليل
ماشاء الله الكود يعمل علي الوجه المرجو
وإن شاء الله - المثال المرفق يعمل بدون اخطاء كما ترجو حضرتك