[hassan 14]

كود :

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Try
           Dim dt As New DataTable
           Dim da As New OleDbDataAdapter
           dt.Clear()
           da = New OleDbDataAdapter("select * from Table3 where Nlivre = " & Nlivre.Text & "", con)
           da.Fill(dt)
           If dt.Rows(0).Item("mooar").ToString = True Then
               MsgBox("هذا الكتاب في الاعارة", MsgBoxStyle.Exclamation, "تنبيه")
           Else
               preedt.Rows.Add()
               Dim last As Integer = preedt.Rows.Count - 1
               preedt.Rows(last).Item("Nlivre") = Nlivre.Text
               preedt.Rows(last).Item("Npree") = Npree.Text
               preedt.Rows(last).Item("Nometalib") = Nometalib.Text
               preedt.Rows(last).Item("Prnometalib") = Prnometalib.Text
               preedt.Rows(last).Item("Titerlivre") = Titerlivre.Text
               preedt.Rows(last).Item("Classelivre") = Classelivre.Text
               preedt.Rows(last).Item("Auterlivre") = Auterlivre.Text
               preedt.Rows(last).Item("Ntalib") = Ntalib.Text
               preedt.Rows(last).Item("mooar") = CheckBox1.Checked
               preedt.Rows(last).Item("Datepre") = Datepre.Value
               preedt.Rows(last).Item("nmbtotard") = Nmbtotard.Text
               Dim sav As New OleDbCommandBuilder(preeda)
               preeda.Update(preedt)
               preedt.AcceptChanges()
               MsgBox("تم الاعارة بنجاح", MsgBoxStyle.Information, "تنبيه")
               loudpree()
               novoupree()

           End If

       Catch ex As Exception

       End Try
   End Sub

[elgokr]

قم باستبدالى الكود من بعد

كود :

where Nlivre =

بالكود التالى

كود :

'"& Nlivre.Text &"'", con)

فى كود الاستعلام وسيعمل معك بدون اى مشكلة

تحياتى لك

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

[hassan 14]

شكرا على ردك 
صححت الخطأ ولكن لا جدوى

[elgokr]

(26-05-18, 02:04 AM)hassan 14 كتب : شكرا على ردك 
صححت الخطأ ولكن لا جدوى

ما الذى يحدث معك 

اذا كان فى رسالة خطاء ارفقها لنا

وثانياً تاكد من مسميات الحقول بقاعدة البيانات صحيحة المدرجة بالكود

تحياتى لك

[hassan 14]

يعني حالة الكتاب معار اولا نوعه نعم اولا صح او خطأ ولحد الساعة الاستعلام لا يشتغل chekbox

[elgokr]

ارفق المشروع

حتى يتم مراجعة قاعدة البيانت والاكواد فى المشروع

لتوضيح ما هى المشكلة لديك بعد مراجعة المشروع

تحياتى لك

[hassan 14]

هذا الرسالة تضهرلي  aucune ligne à la position 0

[elgokr]

جرب استبدل هذا السطر بالسطر التالى

كود :

If dt.Rows(0).Item("mooar").ToString() = 1 Then

ويفضل ارفاق قاعدة البيانات

لاتمام معرفة اذا كان الخطاء بقاعدة البيانات من حيث القيم

تحياتى لك

[عبدالله الدوسري]

أولا : جملة الإستعلام لم ترجع ولا سجل واحد

       الجدول خالي من السجلات لذلك ستجد خطأء عند طب السجل في الفهرس رقم  dt.Rows(0) : 0

في جملة الإستعلام لا تضع علامة التنصيص بين القيمة المرسلة ، لأن القيمة رقم وليس نص , فلا ترسل الرقم كنص , إذا وضعت علامة التنصيص ، سيعامل كأنة نص

كود :

da = New OleDbDataAdapter("select * from Table3 where Nlivre = '" & Nlivre.Text & "'", con)

إكتفي بهذة : لتعلم القاعدة أنك تقصد رقم

كود :

da = New OleDbDataAdapter("select * from Table3 where Nlivre = " & Nlivre.Text, con)

---

تأكد أن الحقل Nlivre في قاعدة البيانات نوعة رقمي

[hassan 14]

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