تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أخواني قاعدة IF جننتني..أرجو المساعدة
#1
السلام عليكم
كود :
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..يسمح بيانات كل تيكست بوكس الثلاثة

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

هذا الكود الي استخدمته
الرد
تم الشكر بواسطة:
#2
كود :
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
الرد
#3
تسلم طال عمرك..الحين اجربه واعطيك خبر..ساعدني الله يوفقك..ومشكور جدا جدا على الرد والمساعدة..دعواتنا لك
الرد
تم الشكر بواسطة: kiki , 62531 , ابو روضة , ابو روضة
#4
السلام عليكم أخوي
جربت الكود بس مشكلة الي تصير معاي..أن في تيكست بوكس1 إلى أحط فيه رقم الرحلة مثلا الرحلة رقم 123 بس مجرد أحط رقم 1 مباشرة تظهر ليا المسيج msgboxقبل ما أكمل باقي رقم الرحلة.

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

وشكرا
الرد
تم الشكر بواسطة: ابو روضة , ابو روضة
#5
كود :
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
الرد
تم الشكر بواسطة: اسامه الهرماوي , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قاعدة بيانات ضمن المشروع flawer69 1 30 منذ 1 ساعه مضت
آخر رد: mmaalmesry
  ما هو نوع البيانات الخاص بالصور فى قاعدة بيانات Accsess ؟ mmaalmesry 0 15 منذ 6 ساعة مضت
آخر رد: mmaalmesry
  أرجو المساعدة العاجلة:الاتصال بقاعدة بيانات SQLLITE dr.programming 11 341 , 04:10 PM
آخر رد: alfaiz678
  انشاء قاعدة بيانات SQL SERVER +عمل أتاتش + جداول+حقول بالكود DR.YASER 4 375 , 02:47 PM
آخر رد: DR.YASER
Exclamation ملفات تشغيل قاعدة البيانات Access أبو خالد الشكري 2 111 , 12:26 AM
آخر رد: أبو خالد الشكري
  [سلسلة تعليمية] انشاء قاعدة بيانات +جداول+حقول بالكود .تطوير للمشروع السابق DR.YASER 3 162 19-05-22, 07:05 PM
آخر رد: DR.YASER
  [كورس] انشاء قاعدة بيانات فارغة و جديدة أثناء التشغيل-درس مهم و مثال DR.YASER 9 297 19-05-22, 04:43 AM
آخر رد: DR.YASER
  من فضلكم المساعدة:mdf ازاى اتصل به على نفس الجهاز dr.programming 7 229 16-05-22, 01:07 PM
آخر رد: DR.YASER
  [VB.NET] انشاء قاعدة بيانات access فارغة وقت التشغيل mmaalmesry 2 203 14-05-22, 11:20 PM
آخر رد: mmaalmesry
  كيف يمكن اضافة 100 سجل بسيريال مسلسل الى قاعدة بيانات dr.programming 3 302 11-05-22, 03:08 PM
آخر رد: dr.programming

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم