فضلاً : اريد التعديل على كود حذف بشرط ليعمل بشكل صحيح

[alaa aboul-ela]

السلام عليكم

اساتذي الكرام ... بعد التحية

لو تكرمتوا : اريد التعديل على كود حذف سجل رئيسي من جدول رئيسي ( دليل الحسابات ) مرتبط بجدول فرعي ( قيود اليومية ) ليعمل بشكل صحيح

بمعنى لو الحساب في دليل الحسابات عليه حركة في جدول القيود يمنع الحذف ويعطي رسال " لا يمكن حذف الحساب لوجود حركة على الحساب "

اذا لم يكن عليه حركة يتم الحذف ويعطي رسالة " تم حذف الحساب بنجاح "

if dcount("account_no","entery_tbl","[account_no]=forms![chart_of_account].[account_no]") =0 then
docmd.delete account_no  #
msgbox " تم الحذف بنجاح "
else
cancle event
msgbox" لا يمكن حذف الحساب لوجود حركةعليه "
end if 
end sub
حيث 
account_no رقم الحساب
entery_tbl جدول القيود
chart_of_account نموذج دليل الحسابات او شجرة الحسابات

 

تم تعديل فبراير 18 بواسطه alaa aboul-ela

[Foksh]

أخي الكريم من غير مرفق قد يواجه من يحاول مساعدتك مشاكل في تصور وتخيل اسماء الحقول والجداول ...... الخ

فمثلاً ، ما هو ( delete account_no ) 

على العموم جرب هذا التعديل ، و أخبرني بالنتيجة

 

Private Sub btnDeleteAccount_Click()
    Dim accountNo As String
    accountNo = Forms![chart_of_account]![account_no]
    If DCount("account_no", "entery_tbl", "[account_no]='" & accountNo & "'") = 0 Then
        DoCmd.RunSQL "DELETE FROM [chart_of_account] WHERE [account_no]='" & accountNo & "'"
        MsgBox "تم حذف الحساب بنجاح."
    Else
        Docmd.CancelEvent
        MsgBox "لا يمكن حذف الحساب لوجود حركة عليه."
    End If
End Sub

 

تم تعديل فبراير 19 بواسطه Foksh

[alaa aboul-ela]

شكرا جزيلا

ساجرب الكود واخبرك بالنتيجة .. تحياتي ..

[alaa aboul-ela]

السلام عليكم

بيديني رسالة خطا

 

chartofaccounts.rar

[Foksh]

تفضل هذا التعديل الصحيح 

 

chartofaccounts.accdb

[alaa aboul-ela]

تسلم ايدك بارك الله فيك ..