[hassan 14]

السلام عليكم بعد تجربتي مع الفكرة الامور عادية  وشغالة وطبقت كل ماقلته لي لكن بعد ارجاع الكتاب اي جعل قيمة معار 0
وبعدة اعادة تجربة اعارة الكتاب المعاد الذي يحمل نفس الرقم تضهر رسالة "لا يوجد اى نتائج عن رقم الكتاب المدخل"

بعد تفكيري في المشكلة اخي elgokr  عندما اعير الكتاب في البداية الكود يشتغل بطريقة جيدة المشكلة تضهر بعد اعادة الكتاب نفسه 
ومعاودة اعارته يصبح في نفس الجدول كتاب مؤشر عليه وكتاب لا يحملان نفس الرقم  وهنا يجب فصل الكتب المرجعة في جدول اخر مارايك...............

كود :

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.Count > 0 Then
               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") = Mooar.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
           Else
               MsgBox("لا يوجد اى نتائج عن رقم الكتاب المدخل", MsgBoxStyle.Exclamation, "تنبيه")
           End If

       Catch ex As Exception

       End Try
   End Sub