منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

العفو صديقي، و ابدا لا يوجد ازعاج. و اذا اردت مساعده اخرى تواصل معي .

جزاك الله الف خير اخي وانا والله اننا اتعلم بقدر المستطاع والهدف منه التعلم وفي نفس الوقت لانهي عمل الشركة الا انا شغال فيها طلبو مني عمل الفورL دا مؤقت للفواتير بسبب نهائية السنة وسامحنا ادا ازعجتك وشكرا لك


فهمت الكود ولكن عند ادخال رقم قطعة غير موجود الداتا جريد فيو تستمر في الادخال في الوصف والعدد والسعر ولا تظهر الرسالة المحددة في الجزء العلوي
If MessageBox.Show("هذا الصنف غير موجود بقاعده البيانات هل تريد تسجيلة ؟؟", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
حوالت اغير القيمة الى TRUE
Public Function part_no_Ex(ByVal part_no As String) As Boolean
Dim correct_version As Boolean = False


Dim command As New OleDbCommand("SELECT part_no FROM price", con)
command.Parameters.AddWithValue("@part_no", part_no)
'فحص الاتصال بقاعدة البيانات
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
Using reader As OleDbDataReader = command.ExecuteReader
While reader.Read
If IsDBNull(reader("part_no")) Then
correct_version = False
Else
correct_version = True
End If
End While
End Using

con.Close()
Return correct_version
End Function

---

جزاك الله خير اخي الكريم عرفت الغلطة كانت في الFALSE  حولته TRUE اشتغل معي شكرا جزيلا

---

المعذرة اخي غلطت عندا فعلت ال TRUE اصبح حتي القطع الموجود يطلع الرسالة بهل تريد اضافتها

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

تفضل اخي قمت بالتعديل عليها