ارجو مساعدتي في كيفية كتابة كود يقوم بمساعدتي باظهار رسالة لتم التحديث او الحذف او الاضافة بعد التنفيذ ولا اريد استخدام التي تظهر للاكسس
او استخدام dlookup
وانا استخدم احيانا للحذف او غيره كتابة اس كيو ال او انفذ كوري
مثل docmd.openqury"delcust"
كيفية عمل رسالة لتم التحديث أو الحذف داخل الكود
مغلق
ممكن توضح اكثر بمثال
يعني انت حاول تضع مثال توضيحي وضع طلبك فيه وان شاء الله ما احد يقصر معاااااااك
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
ضع الرسالة التي تشائها في الحدث AfterUpdate ليعلمك اكسس بانه تم تحديث السجل
وضع الرسالة التي تشائها في الحدث AfterDelete ليعلمك اكسس بانه تم حذف السجل
وضع الرسالة التي تشائها في الحدث AfterInsert ليعلمك اكسس بانه تم اضافة السجل
وعموما ان كنت تريد رسالة واحدة لكل ذلك فان الحدث AfterUpdate يفي بالغرض.. فهو يتفجر بمجرد اجراء التغييرات السابقة..
وان كان ذلك ليس ماتريد فلتفعل ما اتقترحه عليك مشرفنا الكريم jeddah99
تحياتي :)
وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ
اسف اقصد مشرفنا الكريم المبرمج 2003 :lol:
وَلَوْلا دَفْعُ اللَّهِ النَّاسَ بَعْضَهُم بِبَعْضٍ لَّفَسَدَتِ الأَرْضُ وَلَكِنَّ اللَّهَ ذُو فَضْلٍ عَلَى العَالَمِينَ
"evant click"
Private Sub update_Click()
"هنا يتم تنفيذ التحديث على قاعدة البيانات"
DoCmd.OpenQuery ("query15")
"أريد رسالة هنا إذا تم التحديث على قاعدة البيانات"
Dim PaymentNo As Integer
Dim PaymentValu
PaymentValu = ContV / Me.ContLF
For PaymentNo = 1 To Me.ContLF
"هنا يتم تنفيذ التحديث على قاعدة البيانات"
DoCmd.RunSQL "update Payments set PaymentValu = " & PaymentValu & " WHERE (((Payments.ContractID)=[Forms]![ContUfrm]![ContF]) AND ((Payments.ContractDate)=[Forms]![ContUfrm]![ContDF]));"
"أريد رسالة هنا إذا تم التحديث على قاعدة البيانات"
Next PaymentNo
Me.Refresh
End Sub
تم تعديل هذه المشاركة بواسطة jeddah99 في 11 أبريل 2006 في 08:42
هذا الموضوع مغلق.