+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] زر الحذف مرتبط بجدول اخر (/showthread.php?tid=1841)
زر الحذف مرتبط بجدول اخر - ABO.BANCIANA - 08-02-14
السلام عليكم ورحمة الله وبركاتة
المرفق التالى .. اول نموذج قمت باعدادة على ال VB2012
ارجوا من السادة الاعضاء
1 - الاطلاع وابداء الراىء اذا كان هناك خطأ ما فى الكود
2 - فى زر delete ارجوا اظهار رسالة حالة اذا كان السجل مرتبط بجدول الاصناف stockitem
بانة لا يمكن الحذف
تحياتى
[attachment=1297]
RE: زر الحذف مرتبط بجدول اخر - ABO.BANCIANA - 08-02-14
للرفع
RE: زر الحذف مرتبط بجدول اخر - سعود - 08-02-14
اخي الكريم العلاقة مبنية اصلا وقت التصميم من نفس برنامج الاكسس يعني بالتاكيد العلاقة موجودة !!
RE: زر الحذف مرتبط بجدول اخر - ABO.BANCIANA - 08-02-14
السلام عليكم
استاذى العلاقة موجوده اعرف ذلك
ما اريدة هو عند حذف وحدة ( ولتكن عدد ) من جدول unit لا يتم حذف السجل اذا كانت مستخدمة فى جدول الاصناف stockitem
بمعنى لا يجوز حذف سجل يوجد علية حركة بجدول اخر
فلا يجوز للمستخدم حذف وحدة اذا كانت مسجلة فى جدول الاصناف
كنوع من الحفاظ على البيانات
ارجوا ان تكون الفكرة وصلة لحضرتك
تحياتى
RE: زر الحذف مرتبط بجدول اخر - سعود - 08-02-14
إقتباس :بمعنى لا يجوز حذف سجل يوجد علية حركة بجدول اخران كان الامر كذلك فالامر بسيط جدا
قم بتعطيل تتالي التحديث واجعل جملة الحذف ضمن try بدون صيد للخطا..واضح؟
RE: زر الحذف مرتبط بجدول اخر - ABO.BANCIANA - 08-02-14
وصلت الفكرة
ساجرب
اشكرك ساتاذى
RE: زر الحذف مرتبط بجدول اخر - سعود - 08-02-14
لو لم تنجح الفكرة فيمكنك كتابة استعلام قبل الحذف .. حتى يجيبك احد بالكود المناسب.
سابقا كان الامر يمشي معي لكن الان لم اجد الامر كما اذكر
RE: زر الحذف مرتبط بجدول اخر - smss - 09-02-14
يمكن اسخدام trigger
RE: زر الحذف مرتبط بجدول اخر - ABO.BANCIANA - 09-02-14
(08-02-14, 08:07 PM)سعود كتب :إقتباس :بمعنى لا يجوز حذف سجل يوجد علية حركة بجدول اخران كان الامر كذلك فالامر بسيط جدا
قم بتعطيل تتالي التحديث واجعل جملة الحذف ضمن try بدون صيد للخطا..واضح؟
لم ينجح الامر
(09-02-14, 03:48 AM)smss كتب : يمكن اسخدام trigger
ممكن شرح بالمقصود . او التطبيق على المثال
تحياتى
RE: زر الحذف مرتبط بجدول اخر - سعود - 09-02-14
كود :
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