الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أجبر المستخدم على ادخال قيم في الtextbox و اختيار عنصر من ComboBox

بدأه جايكم من جوجل في 18 مايو 2012 · 2 رد · 588 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

يوجد لدي نموذج تعبئة بيانات موظفين مكون من textbox و ComboBox بعد تعبئة الموذج يضغط المستخدم على حفظ و يتم ارسال البيانات على قاعدة بيانات mdb

المشكلة هي : عند عدم اختيار أي شيء من ComboBox يتم ارسال بيانات فارغة و حتى textbox :S

السؤال : كيف أجبر المستخدم على ادخال قيم في الtextbox و اختيار عنصر من ComboBox

و هذا محتوى زر الحفظ الذي يحوي أمر sql

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        sql = "insert into emp(id_emp,name_emp,address,start_date,nationality,date_birth,national_n,mobile,sections)" & _
        "values('" & t1.Text & "','" & t2.Text & "','" & ComboBox1.Text & "','" & t4.Text & "','" & _
        t5.Text & "','" & t6.Text & "','" & t7.Text & "','" & t8.Text & "','" & t9.Text & "')"

        Dim insert As New OleDbCommand(sql, dbconn)
        dbconn.Open()
        insert.ExecuteNonQuery()
        dbconn.Close()

        MsgBox("تمت عملية الحفظ")

        Me.Close()
        frm2.Show()
    End Sub

و بالله التوفيق

#2

ضع الكود التالي في بداية الإجراء

if t1.text = "" Or Combobox1.text = "" Then
msgbox("يجب إكمال البيانات")
Exit Sub
End if
#3
asn كتب:

ضع الكود التالي في بداية الإجراء

if t1.text = "" Or Combobox1.text = "" Then
msgbox("يجب إكمال البيانات")
Exit Sub
End if

الله ينور عليك تمت العملية بنجاح و بارك الله فيك :D

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…