[عامر عبدالله صالح]

السلام عليكم ورحمة الله تعال وبركات
عندي بنود جلبتم من الجدول في الكومبو بوكس بس عاوز كود داخل بتن بضغط عليها تظهر ليك انبوت بوكس حتي تقوم باضافة بند جديد يتم تحفظه في الداتا بيس
وجزاكم الله خيرا

[YousefOkasha]

وضح اخي ..
او قم برفع مثال

[thamer_]

السلام عليكم 

اضف form  جديد صغير للادخال  موجود فيه textbox و button 

عن الضغط على button للاضافة 

هذا الكود لادخال المنطقة area

ادخل هذا الكود

 If TextBox2.Text = "" Then

            MsgBox("الرجاء إدخال المنطقة")

        Else

            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Database1.mdb"

            Dim IDnum As String = "100"

            Dim insertCommands As New OleDb.OleDbCommand("INSERT  INTO area (area_add) VALUES ('" & TextBox2.Text & "')", con)

            Try

                con.Open()

                insertCommands.ExecuteNonQuery()

            Catch ex As Exception

                MessageBox.Show(ex.Message & " - " & ex.Source)

            Finally

                con.Close()

                MsgBox("تمت الإضافة ")

                Me.AreaTableAdapter.Fill(Me.Database1DataSet.area)

                TextBox2.Text = ""

                Me.Refresh()

            End Try