[العيدروس]

السلام عليكم اخواني لو ممكن المساعدة بحل هذا المشكل .عندي بالفورم1 تاكست بكس 1 للترقيم التلقائي و التاكست بكس 2 لكتابة الاسم و كمبوبكس1 لاختيار الرقم و هو يمثل فئة معينة.ثم اقوم بالحفظ بقاعدة البيانات.كل شيء مضبوط و الحمد لله.المشكل اني بعمل على فكرة توزيع فرق صغيرة كل فريق يحتوي 7 اعضاء .القيمة 7 مكتوبة بالتاكست بكس3..يعني ممكن يتغير الرقم 7 و اكتب عدد ثاني لكن العدد المكتوب بالتاكست بكس3 اكتبو مرة واحدة و الجدول فارغ و لا يمكن اغيرو بعدين .لما اقوم بالحفظ يتكرر الرقم 1 يلي اخترتو من الكومبوبكس1 7 مرات بالحقل genreteam و بعديها لازم اختار الرقم2 للعضو رقم8 و يستمر الحفظ مع الرقم2 لغاية الاسم14 و بعدها لازم اختار العدد 3 من الكومبوبكس1 لغاية الاسم 21 و بعديها لازم اختار الرقم 4 و هكذا زي ما هو واضح بقاعدة البيانات.اريد فقط لو اغلط في الاختيار من الكومبوبكس 1 يجيني رسالة تنبيه او اعمل منع اختيار رقم غلط من الكومبوبكس بارك الله فيكم

[اسامه الهرماوي]

السلام عليكم...
انا زغللت!! وضح اكتر السؤال انت فاهمة احنا مش مستوعبينو لو ممكن توضيح اكتر.

[العيدروس]

شكرا على الاهتمام اخي اسامة
شوف انسى خالص الحقل الاولاني يلي اسمو TeamId ساعمله autonumber و خلصنا
المشكلة في الحقل الثاني يلي اسمو genreteam .. اريد اعملو ايضا ترقيم تلقائي لكن بدال ما يزيد كل مرة واحد ثم 2 .5.4.3.. و هكذا
اريد لما اضغط على زر جديد ينكتب بالكومبو1 الرقم يعني الترقيم التلقائي حيكون بالكومبوبكس و ليس بالتاكست بكس
لما اضغط زر جديد ينكتب بالكومبوبكس1 الرقم 1 كذلك
لغاية السجل 7 حينكتب الرقم1 بالكومبوبكس
لما اضغط زر جديد بالسجل الثامن يظهر بالكومبوكس1 الرقم2 .. و يستمر الرقم 2 مع سبع سجلات اخرى ثم يتغير الرقم3
ركز فقط اخي اسامة قليلا و اكيد ستفهم باذن الله
يعني كل الحكاية اريد تكرار الرقم بالحقل genreteam سبع مرات و ينتقل للرقم يلي بعدو.بارك الله فيك

[ابراهيم ايبو]

السلام عليكم أخي العيدروس

تفضل هذا ماتريد ان شاء الله مثال فيه كومبو بوكس كلما تضيف 7 مرات يزداد الرقم بمقدار 1

وهذا هو الكود 

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim n As Integer = 1
       If ComboBox1.Items.Count < 7 Then
           ComboBox1.Items.Add(n)
       ElseIf ComboBox1.Items.Count >= 7 Then
           Dim r As Byte = ComboBox1.Items.Count \ 7
           ComboBox1.Items.Add(r + 1)
       End If

   End Sub

[العيدروس]

تشكر اخي ابراهيم و بارك الله فيك و لكن لو تكرمت كيف اضبط الاكواد مع بعضها بالزر الامر رقم1 لاني وضعتها هكذا و لم تضبط معي

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim Cmd As New OleDbCommand("Select max(TeamID) from TableTeam", Conne)
       If Conne.State = ConnectionState.Closed Then Conne.Open()
       Dim Result As Object = Cmd.ExecuteScalar
       Dim Record As Integer
       If Result Is Nothing Then
           Record = 1
       Else
           Record = CInt(Result) + 1
       End If
       TextBox1.Text = Record.ToString()
       ComboBox1.SelectedIndex = -1


       Dim n As Integer = 1
       If ComboBox1.Items.Count < 7 Then
           ComboBox1.Items.Add(n)
       ElseIf ComboBox1.Items.Count >= 7 Then
           Dim r As Byte = ComboBox1.Items.Count \ 7
           ComboBox1.Items.Add(r + 1)
       End If

   End Sub

بعد اذنك كيف اركبها على بعضها

[ابراهيم ايبو]

السلام عليكم اخي العيدروس

 ضع هذا الكود بالاول

PHP كود :

Dim n As Integer = 1
        If ComboBox1.Items.Count < 7 Then
            ComboBox1.Items.Add(n)
        ElseIf ComboBox1.Items.Count >= 7 Then
            Dim r As Integer = (ComboBox1.Items.Count \ 7) + 1

            ComboBox1.Items.Add(r)
           
        End If 


ثم ضع كودك هذا بهذا الشكل 

PHP كود :

Dim Cmd As New OleDbCommand("Select max(TeamID) from TableTeam", Conne)
       If Conne.State = ConnectionState.Closed Then Conne.Open()
       Dim Result As Object = Cmd.ExecuteScalar
       Dim Record As Integer
       If Result Is Nothing Then
           Record = 1
       Else
           Record = CInt(Result) + 1
       End If
       TextBox1.Text = Record.ToString() 


ثم اضف هذين السطرين

PHP كود :

 ComboBox1.SelectedIndex = Nothing
        ComboBox1.SelectedIndex = ComboBox1.Items.Count - 1 


وان شاء الله الامور تمام

[العيدروس]

ربنا يبارك فيك اخي ابراهيم بهذي الايام و الليالي المباركة.الحمد لله الفكرة انك فهمتها جيدا.بقيت لي ملاحظات صغيرة كي لا تأثر بالمشروع الهي يرضى عليك.
كيف يمكن ما اخلي الارقام  بالكومبوبكس كل ما اضغط على زر الامر اضافة جديد اجدها مكررة 1-1-1-1-1 -2-2-2-2-2 .. كيف يمكن اخليها بمعنى Distinct شوف كيف مكررة لو سمحت

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

[ابراهيم ايبو]

اخي العيدروس من بعد السلام

الاسئلة لاتكون كما تسألها انت بالتقسيط وكل مرة شيئ مختلف عن الذي قبله

طلبت اضافة رقم الى الكومبو في كل مرة جديد 

ثم كبف يتم الاختيار مع الترقيم التلقائي 

والان تريد ان تحفظ مع عدم تكرار الرقم في الكومبو 

ثم تسأل كبف اعيد املاء الكومبو بعد اعادة التشغيل

الامر يختلف في كل مرة 

الافضل ان تعمل حقلا ترقيميا جديدا في قاعدة البيانات تضع فيه الرقم براحتك وتحفظ  ثم عند جلب البيانات يملأ الكومبو من الجدول

دمت بخير

[العيدروس]

بارك الله فيك اخي ابراهيم واعذرني فعى ان قصرت بالشرح لكن صدقني تلك حدود معرفتي بالشرح ولو قرات لو سمحت المشاركة رقم 1 بتمعن تجد اني شرحت يلي اقدر عليه.اما الحفظ و بعدما اخرج واغلق الفورم و افتحو ثاني الاقي الترقيم رجع للعدد 1 بالكومبوبكس تخيلها اخي بنظرك هل هي معقولة لو عندي مثلا 50 عضو وحبيت احفظ بياناتهم بفترات متقطعة كيف اعمل لو كل مرة غلقت فيها الفورم يرجعلي الترقيم للواحد. وارجو المعذرة