[Rabeea Qbaha]

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

[مراد بورجي]

جزاك الله الف خير اخي وانا والله اننا اتعلم بقدر المستطاع والهدف منه التعلم وفي نفس الوقت لانهي عمل الشركة الا انا شغال فيها طلبو مني عمل الفور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

---

كود :

If part_no_Ex(part_no) = True Then
           If MessageBox.Show("هذا الصنف غير موجود بقاعده البيانات هل تريد تسجيلة ؟؟", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
               Return
           End If

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

---

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

[مراد بورجي]

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

[Rabeea Qbaha]

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