السلام عليكم اخواني لو ممكن المساعدة بحل هذا المشكل .عندي بالفورم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 عضو وحبيت احفظ بياناتهم بفترات متقطعة كيف اعمل لو كل مرة غلقت فيها الفورم يرجعلي الترقيم للواحد. وارجو المعذرة