السلام عليكم بعد تجربتي مع الفكرة الامور عادية وشغالة وطبقت كل ماقلته لي لكن بعد ارجاع الكتاب اي جعل قيمة معار 0
وبعدة اعادة تجربة اعارة الكتاب المعاد الذي يحمل نفس الرقم تضهر رسالة "لا يوجد اى نتائج عن رقم الكتاب المدخل"
بعد تفكيري في المشكلة اخي elgokr عندما اعير الكتاب في البداية الكود يشتغل بطريقة جيدة المشكلة تضهر بعد اعادة الكتاب نفسه
ومعاودة اعارته يصبح في نفس الجدول كتاب مؤشر عليه وكتاب لا يحملان نفس الرقم وهنا يجب فصل الكتب المرجعة في جدول اخر مارايك...............
وبعدة اعادة تجربة اعارة الكتاب المعاد الذي يحمل نفس الرقم تضهر رسالة "لا يوجد اى نتائج عن رقم الكتاب المدخل"
بعد تفكيري في المشكلة اخي 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