السلام عليكم ورحمة الله وبركاتة
المرفق التالى .. اول نموذج قمت باعدادة على ال VB2012
ارجوا من السادة الاعضاء
1 - الاطلاع وابداء الراىء اذا كان هناك خطأ ما فى الكود
2 - فى زر delete ارجوا اظهار رسالة حالة اذا كان السجل مرتبط بجدول الاصناف stockitem
بانة لا يمكن الحذف
تحياتى
[
attachment=1297]
اخي الكريم العلاقة مبنية اصلا وقت التصميم من نفس برنامج الاكسس يعني بالتاكيد العلاقة موجودة !!
السلام عليكم
استاذى العلاقة موجوده اعرف ذلك
ما اريدة هو عند حذف وحدة ( ولتكن عدد ) من جدول unit لا يتم حذف السجل اذا كانت مستخدمة فى جدول الاصناف stockitem
بمعنى لا يجوز حذف سجل يوجد علية حركة بجدول اخر
فلا يجوز للمستخدم حذف وحدة اذا كانت مسجلة فى جدول الاصناف
كنوع من الحفاظ على البيانات
ارجوا ان تكون الفكرة وصلة لحضرتك
تحياتى
إقتباس :بمعنى لا يجوز حذف سجل يوجد علية حركة بجدول اخر
ان كان الامر كذلك فالامر بسيط جدا
قم بتعطيل تتالي التحديث واجعل جملة الحذف ضمن try بدون صيد للخطا..واضح؟
وصلت الفكرة
ساجرب
اشكرك ساتاذى
لو لم تنجح الفكرة فيمكنك كتابة استعلام قبل الحذف .. حتى يجيبك احد بالكود المناسب.
سابقا كان الامر يمشي معي لكن الان لم اجد الامر كما اذكر
(08-02-14, 08:07 PM)سعود كتب : [ -> ]إقتباس :بمعنى لا يجوز حذف سجل يوجد علية حركة بجدول اخر
ان كان الامر كذلك فالامر بسيط جدا
قم بتعطيل تتالي التحديث واجعل جملة الحذف ضمن try بدون صيد للخطا..واضح؟
لم ينجح الامر
(09-02-14, 03:48 AM)smss كتب : [ -> ]يمكن اسخدام trigger
ممكن شرح بالمقصود . او التطبيق على المثال
تحياتى
كود :
Dim m As New OleDbCommand("select count(unitID) from StockItems where unitID=" & unitID_txt.Text & "", con)
If con.State = ConnectionState.Closed Then
con.Open()
End If
If m.ExecuteScalar > 0 Then
MsgBox("السجل مرتبط ولا يمكن حذفه", MsgBoxStyle.Critical, "")
Exit Sub
End If
هذا الكود قد يلبي المطلوب اكتبه قبل جملة try الخاصة بالحذف