منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - أخواني قاعدة IF جننتني..أرجو المساعدة

السلام عليكم

كود :

If F1.Text = "251" Then

            TextBox82.Text = "KWI"

            TextBox81.Text = "AMM"

        ElseIf f1.text = "123" Then

            TextBox82.Text = "KWI"

            TextBox81.Text = "DXB"

        Else

            TextBox81.Clear()

        End If

عندي ثلاثة تيكست بوكس..تيكست بوكس1 أدخل فيه رقم الرحلة..والتيكست بوكس الثاني يعطيني مباشرة الدولة الي بتطير منها الرحلة..وتيكست بوكس3 يعطيني الدولة الي بتوصل ليها الرحلة...كل هذا اشتغل معاي عادي بالأرقام الي حددتها في الأكواد..يعني مثلا عند كتابة رقم 251 في تيكست بوكس1 يظهر ليا في تيكست بوكس2 KWI ويظهر ليا في تيكست بوكس3 AMM

مشكلتي الوحيدة..إني أبي أكتب كود في حالة عدم وجود تلك الأرقام الي حدتتها مسبقا..إن يسأله السيستم..أن رقم الرحلة هذا غير موجود..هل تود المتابعة؟ إذا قال YES يبدأ يكتب مانويل الرحلات..وفي حالة قال NO..يسمح بيانات كل تيكست بوكس الثلاثة

هل من حل أخواني؟؟

هذا الكود الي استخدمته

كود :

If F1.Text = "251" Then

            TextBox82.Text = "KWI"

            TextBox81.Text = "AMM"

        ElseIf f1.text = "123" Then

            TextBox82.Text = "KWI"

            TextBox81.Text = "DXB"

        ElseIf MsgBox("", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            F1.Clear()

            TextBox82.Clear()

            TextBox81.Clear()

        End If

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

السلام عليكم أخوي
جربت الكود بس مشكلة الي تصير معاي..أن في تيكست بوكس1 إلى أحط فيه رقم الرحلة مثلا الرحلة رقم 123 بس مجرد أحط رقم 1 مباشرة تظهر ليا المسيج msgboxقبل ما أكمل باقي رقم الرحلة.

هل يوجد حل أخوي العزيز؟

وشكرا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If F1.Text = "251" Then

            TextBox82.Text = "KWI"

            TextBox81.Text = "AMM"

        ElseIf f1.text = "123" Then

            TextBox82.Text = "KWI"

            TextBox81.Text = "DXB"

        ElseIf MsgBox("", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            F1.Clear()

            TextBox82.Clear()

            TextBox81.Clear()

        End If

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Alziny

62531

Alziny

Alziny

62531