[salah mansour]

(19-08-18, 02:41 PM)elgokr كتب :

تفضل اخى salah mansour

استخدم الكود بهذا الطريقة

والمشكلة هنا كانت بسبب الاستعلام كما وضحت مسبقاً

الكود الذى سيستخدم داخل الزر

كود :

       If combocreditor_name.Text.Trim Is Nothing Then
           MsgBox("برجاء إدخال إسم الدائن", MsgBoxStyle.Critical, "خطأ")
           combocreditor_name.Focus()
       Else
           Dim sql = "select * from tblcredit where creditor_name = '" & combocreditor_name.Text & "'"
           Dim adp As New OleDb.OleDbDataAdapter(sql, conn)
           Dim dt As New DataTable
           dt.Clear()
           adp.Fill(dt)
           If dt.Rows.Count > 0 Then
               MsgBox(" إسم الدائن المدخل موجود تحت رقم" & dt.Rows(0).Item("credit_code"), MsgBoxStyle.Information, "تنبيه")
           Else
               Dim dr = dt.NewRow
               dr!credit_code = txtcredit_code.Text
               dr!creditor_name = combocreditor_name.Text
               dr!credit_date = dtp.Text
               dr!credit_amount = txtamount.Text
               dr!credit_notes = txtnotes.Text
               dt.Rows.Add(dr)
               Dim cmd As New OleDb.OleDbCommandBuilder(adp)
               adp.Update(dt)
               butnew_Click_1(sender, e)
               MsgBox("تم حفظ البيانات  بنجاح", MsgBoxStyle.Information, "تأكيد")
               ReloadRecords()
               DisplayRecords()
           End If
       End If

تحياتى لك

وتمنياتى لك التوفيق

جزاك الله كل خير اخىالكريم .... جارى التعديل وباذن الله ساوافى حضرتك بالنتيجة

---

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