تعديل كود استعلام الحذف

اختي الفاضلة : منى

استخدمي هذا الكود لعملية حذف صنف محدد

Private Sub DilSnfBut_Click()
Dim strSQL As String
strSQL = "Delete RsdSn.IDRS, RsdSn.Tmiiz, RsdSn.DateRSn, RsdSn.Dain, RsdSn.MdinFB, RsdSn.MdinSK, RsdSn.MdinMM " & _
"FROM RsdSn " & _
"WHERE (((RsdSn.IDRS)=[forms]![Fabia]![FNo]) AND ((RsdSn.Tmiiz)=[forms]![Fabia]![TFB]))"

    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
Me.Requery
End Sub

za-QDelet-UP.rar

بالتوفيق

zahrah كتب:

اختي الفاضلة : منى

استخدمي هذا الكود لعملية حذف صنف محدد

Private Sub DilSnfBut_Click()
Dim strSQL As String
strSQL = "Delete RsdSn.IDRS, RsdSn.Tmiiz, RsdSn.DateRSn, RsdSn.Dain, RsdSn.MdinFB, RsdSn.MdinSK, RsdSn.MdinMM " & _
"FROM RsdSn " & _
"WHERE (((RsdSn.IDRS)=[forms]![Fabia]![FNo]) AND ((RsdSn.Tmiiz)=[forms]![Fabia]![TFB]))"

    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
Me.Requery
End Sub

za-QDelet-UP.rar

بالتوفيق

بسم الله الرحمن الرحيم

أولاً أشكرك جزيل الشكر أستاذتي العزيزه ..

لكن ليست المشكله في حذف الصنف .. المشكله هي في حذف الفاتوره بالكامل من جدول رصيد الصندوق بالاستناد إلى قيم الحقلين اللذين ذكرتهما

حين أنني أضيف إلى هذا الجدول سندات القبض وأوامر الصرف

ففي حالة قيامي بالحذف من هذا الجدول بالاستناد إلى رقم الفاتورة فقط ربما يتم حذف سند قبض أو أمر صرف أو أي سجل آخر يحمل نفس الرقم

أتمنى تكرمكِ بإعاده النظر

ربنا يخليكِ ويحفظك لينا

اختي الفاضله

اذا كنتي غير متأكدة من ان الحقلين IDRS و Tmiiz في الجدول RsdSn غير كافيين للتقليل من قيمة الخطأ فيفضل اضافة معيار ثالث او رابع في استعلام الحذف حتى تحصري الحذف بطريقة سليمة لا تتعدى الشيء المطلوب حذفه لأنني لا اعلم ما هي الحقول المهمة لديك ولكن بما انكٍ تعرفي كيف برمجتي برنامجك فبكل تأكيد تعرفين الحقول الهامه التي يجب ان يتم بها المعيار .

لذا كل ما عليك عمله هو اضافة معيار ثالث او رابع للإستعلام .

بالتوفيق

zahrah كتب:

اختي الفاضله

اذا كنتي غير متأكدة من ان الحقلين IDRS و Tmiiz في الجدول RsdSn غير كافيين للتقليل من قيمة الخطأ فيفضل اضافة معيار ثالث او رابع في استعلام الحذف حتى تحصري الحذف بطريقة سليمة لا تتعدى الشيء المطلوب حذفه لأنني لا اعلم ما هي الحقول المهمة لديك ولكن بما انكٍ تعرفي كيف برمجتي برنامجك فبكل تأكيد تعرفين الحقول الهامه التي يجب ان يتم بها المعيار .

لذا كل ما عليك عمله هو اضافة معيار ثالث او رابع للإستعلام .

بالتوفيق

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته,

أولاً أستاذتي القديرة مدري كيف أشكر حضرتك ..

لكن الموضوع مو إن الحقلين مو كافيين .. الحقلين بيكفو تماماً ..

بس الموضوع إني ما أريد أحذف صنف من الفاتوره

اللي أريد أحذفه رقم الفاتوره والمبلغ المفوع

وهم الحقلين اللي بيتسجلو في جدول رصيد الصندوق

يعني أنا اللي أريده من هذا الكود

مش حذف صنف من الفاتوره

حذف سجل الفاتوره بأكمله من جدول رصيد الصندوق بالاستناد إلى هذين الحقلين

أتمنى إني أكون قدرت أوضح لحضرتك الفكره أستاذتي

اختي الفاضله : منى

ما هو المطلوب حذفه من هذا الجدول

ارجو التوضيح

بالتوفيق

zahrah كتب:

اختي الفاضله : منى

ما هو المطلوب حذفه من هذا الجدول

ارجو التوضيح

بالتوفيق

بسم الله الرحمن الرحيم

أستاذتي العزيزة أولاً : السلام عليكم ورحمة الله وبركاته ,

ثانياً : أشكركِ جزيل الشكر على اهتمامك وربنا يخليكِ

وبالنسبه للتوضيح فأنا أريد حذف السجل بالكامل من الجدول بشرط تطابق حقلي (رقم السجل) اللي اسمه في الجدول IDRS و حقل الحروف المميزة اللي اسمه في الجدول Tmiiz

يعني حذف السجل بالكامل بدلالة حقلي IDRS و Tmiiz اللي هم بيشكلو مفتاح مركب لجدول RsdSn

أتمنى إني أكون قدرت أوضح لحضرتك الفكره اللي أريدها أستاذتي الغاليه

وأشكر حضرتك جزيل الشكر على سعة صدرك وربنا يخليكِ ويحفضك وينولك كل ما تتمنيه

وبالمناسبه , أريد الكود هذا لحدث النقر على الزر (إلغاء الفاتوره) DelFaBut مو لحدث عند النقر للزر (حذف صنف) DilSnfBut

ومره ثانية أشكر حضرتك جزيل الشكر على سعة صدرك وربنا يخليكِ ويحفضك وينولك كل ما تتمنيه