اذهب الي المحتوي
أوفيسنا

كيف يمكن إضافة رسالة "هل أنت متأكد من عملية الحذف"


الردود الموصى بها

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

لدي الكود التالي

وأريد إضافة رسالة تأكيد الحذف

Private Sub btnDeleteRecord_Click()
On Error GoTo btnDeleteRecord_Click_Err
    On Error Resume Next
    DoCmd.GoToControl Screen.PreviousControl.Name
    Err.Clear
    If (Not Form.NewRecord) Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    If (Form.NewRecord And Not Form.Dirty) Then
        Beep
    End If
    If (Form.NewRecord And Form.Dirty) Then
        DoCmd.RunCommand acCmdUndo
    End If
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If


btnDeleteRecord_Click_Exit:
    Exit Sub

btnDeleteRecord_Click_Err:
    MsgBox Error$
    Resume btnDeleteRecord_Click_Exit

End Sub

هل يمكن ذلك

رابط هذا التعليق
شارك

7 دقائق مضت, jjafferr said:

حيا الله بوعبدالله :rol:

 

في الـ VBA ، ابحث عن msgbox ، ولما تطلع نتيجة البحث ، ستجد فيه مثال للذي تريده :rol:

 

 

جعفر

حياك وبياك وجعل الجنة متقلبك ومثواك

لقد وجدت الكود وقمت بإضافته وتمت المهمة بنجاح

On Error GoTo btnDeleteRecord_Click_Err
If MsgBox("هل تريد الإستمرار في عملية الحذف؟", vbYesNo + vbCritical, "حذف سجل") = vbNo Then
        Exit Sub
        End If
    On Error Resume Next

باقي الكود كما هو

vbCritical لإضافة اللمسة الجمالية أو التحذيرية

آآآآآآآآآآآآآآآآآآآآآآآآآآسف على الإزعاج

رابط هذا التعليق
شارك

حياك الله :rol:

 

انا عادة لا استعمل الاختصار مثل ما عملت انت ، وانما اخلي الكود يأخذ راحته في الاسطر ، لأني بعد عدة اشهر لما انظر للكود ، اريد ان اعرف ماهية الكود :rol:

 

هذا الجزء من الكود اخذته من هذه المشاركة:

http://www.officena.net/ib/topic/65589-النقر-المزدوج-لفتح-تقرير-بواسطة-نموذج-فرعي/?do=findComment&comment=427245

Msg = "This month is NOT in the table CCP" & vbCrLf & _
              "Do you want to ADD A NEW RECORD ?"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        Title = "No values in CCP"

        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then    ' User chose Yes.
            rst.AddNew
                rst!NCcp = Me.NCcp
                rst!txtMonth = Me.txtMonth1
                rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]")
            rst.Update
        Else    ' User chose No.
            GoTo Exit_Sub
        End If

.

وهذا الرابط:

http://www.officena.net/ib/topic/63966-طلب-تحويل-ساعات-العمل-الى-أيام/?do=findComment&comment=415801

Dim Msg, Style, Title, Response

    Msg = "هل انت متأكد من المواصلة" & vbCrLf & _
          "Are you sure you want to continue ?"    ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "رجاء التأكيد"    ' Define title.

    Response = MsgBox(Msg, Style, Title)
    If Response = vbNo Then    ' User chose Yes.
        Exit Sub
    End If

 

وروابط كثيرة :rol:

 

لذا نصيحتي لك: توسع في كتابة الكود ، وفككه الى اسطر بدل ان تستعمل سطر واحد (وللعلم أخي الاستاذ رمهان فنان في عمل كود السطر الواحد:rol:) ،

ففي المستقبل ، سترى الفائدة :rol:

 

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

2 ساعات مضت, jjafferr said:

حياك الله :rol:

 

انا عادة لا استعمل الاختصار مثل ما عملت انت ، وانما اخلي الكود يأخذ راحته في الاسطر ، لأني بعد عدة اشهر لما انظر للكود ، اريد ان اعرف ماهية الكود :rol:

 

هذا الجزء من الكود اخذته من هذه المشاركة:

http://www.officena.net/ib/topic/65589-النقر-المزدوج-لفتح-تقرير-بواسطة-نموذج-فرعي/?do=findComment&comment=427245


Msg = "This month is NOT in the table CCP" & vbCrLf & _
              "Do you want to ADD A NEW RECORD ?"
        Style = vbYesNo + vbCritical + vbDefaultButton2
        Title = "No values in CCP"

        Response = MsgBox(Msg, Style, Title)
        If Response = vbYes Then    ' User chose Yes.
            rst.AddNew
                rst!NCcp = Me.NCcp
                rst!txtMonth = Me.txtMonth1
                rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]")
            rst.Update
        Else    ' User chose No.
            GoTo Exit_Sub
        End If

.

وهذا الرابط:

http://www.officena.net/ib/topic/63966-طلب-تحويل-ساعات-العمل-الى-أيام/?do=findComment&comment=415801


Dim Msg, Style, Title, Response

    Msg = "هل انت متأكد من المواصلة" & vbCrLf & _
          "Are you sure you want to continue ?"    ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "رجاء التأكيد"    ' Define title.

    Response = MsgBox(Msg, Style, Title)
    If Response = vbNo Then    ' User chose Yes.
        Exit Sub
    End If

 

وروابط كثيرة :rol:

 

لذا نصيحتي لك: توسع في كتابة الكود ، وفككه الى اسطر بدل ان تستعمل سطر واحد (وللعلم أخي الاستاذ رمهان فنان في عمل كود السطر الواحد:rol:) ،

ففي المستقبل ، سترى الفائدة :rol:

 

 

جعفر

بارك الله فيك على النصيحة وجاري الانتفاع بها ان شاء الله

رابط هذا التعليق
شارك

حيا الله الاخوة ابو عبدالله والاستاذ جعفر

اختصار الاكواد يسمى اختزال ! يختزل الكود عندما تجتمع الخلفية العلمية والعملية!

لماذا تكتب عشرة اسطر وهناك دالة موجودة تقوم بما قمت به بل افضل واتقن ! فهنا الخلفية العلمية والمعرفة لها دور !

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

ان الهدف من اختزال الكود هو سهولة تتبعه لاحقا فكلما طال الكود صعب تتبعه اي صعوبة التعديل عليه او تتبع قيم المتغيرات وعمل الكود سطر سطر !

مثلما الادارة علم وفن فان اختزال الاكواد علم وفن !

وانت بكيفك اخوي ابو عبدالله ! ماهوه ساحر الجميع جعفر وعارف انك ماراح تسمع لي !

تحياتي للجميع

 

  • Like 2
رابط هذا التعليق
شارك

من أراد الدنيا فعليه بالعلم ومن أراد الآخرة فعليه بالعلم ومن أرادهما معا فعليه بالعلم

بارك الله فب علمك مشرفنا الغالي رمهان ونفع بك

لو تخصص موضوع لطريقة اختزال الأكواد نكن لك من الشاكرين

رابط هذا التعليق
شارك

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

 

وحيا الله أخوي رمهان :rol:

 

اعتقد الموضوع له علاقة بهذا الموضوع ايضا:

http://www.officena.net/ib/topic/65923-مشكلة-الدالة-sum-مع-ويندوز-8/?do=findComment&comment=428975

 

انا وكما كتبت  هنا ، وايضا في ملفي الشخصي :

اقتباس

وبالنسبة للبرمجة ، فانا لا املك اي شهادة في البرمجة او الكمبيوتر ، ولا حتى شهادة الرخصة الدولية لقيادة الحاسب الآلي ICDL ، وكل الذي اعرفه من البرمجة هو خبرة شخصية :rol:

ولست بخبير ، وانما مستخدم عنيد ، لا يقبل الاستسلام للبرنامج ، وانما اُطوّعه لما اريد :rol:

.

فانا لا اعرف الكثير عن الاشياء النظرية العلمية ، وتجربتي كلها عملية :rol:

 

ولكن بالنسبة للإختزال ، فهنا امرين:

4 ساعات مضت, رمهان said:

1. لماذا تكتب عشرة اسطر وهناك دالة موجودة تقوم بما قمت به بل افضل واتقن ! فهنا الخلفية العلمية والمعرفة لها دور !

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

2. ان الهدف من اختزال الكود هو سهولة تتبعه لاحقا فكلما طال الكود صعب تتبعه اي صعوبة التعديل عليه او تتبع قيم المتغيرات وعمل الكود سطر سطر !

1. اذا هناك دالة موجودة تقوم بالعمل بسطر واحد ، فنعم ، الافضل استعمالها ، ولكن اذا كان هناك مشكلة في الدالة (كأن تعمل في اصدار اكسس ولا تعمل في اصدار آخر) ، فما فائدتها وانت ببرنامجك الضخم امام الزبون ، ولا يعمل برنامجك عنده :blink: ، انظر  هذا المثال .

2. واما اختزال الكود ، فنرى ان هذا الكود البسيط نسيبا ، كيف ان تغييره صعب ، وكيف ان تفكيكه الى عدة اسطر جعله سهل القراءة والتغيير عليه ،

واما هذا الكود المعقد والذي قام به أخي الاستاذ رمهان ، فكما قال:

اقتباس

هو عصارة خبرة سنين ! واخذ مني وقت اركبه بهذه الطريقة ! هو صح سطر واحد ولكن به افكار كثيرة ومعلومات قيمة جدا ! 

وانا حاولت "بخبرتي العمليه" ان:

اقتباس

وناوي اعمل له عملية تفكيك علشان اوصل لمعلوماته القيمة جدا واللي ما اعرف حتى كيف اتهجّى كلماته

وفشلت :blink:

 

والشئ الآخر هو ، صحيح ان الاختزال يبدوا سطر واحد ، ولكنه في الكثير من الاحيان عبارة عن عدة اوامر في سطر واحد ، فلهذا السبب ، جعلها في سطر واحد او تفكيكها الى عدة اسطر ، سيان للكمبيوتر.

 

ولكن وللأمانه :clapping:

4 ساعات مضت, رمهان said:

مثلما الادارة علم وفن فان اختزال الاكواد علم وفن !

.

 

 

جعفر

رابط هذا التعليق
شارك

اخوي جعفر

كلامك على العين والراس

وثق تماما ان مشاركتي وجهة نظر وليس اقصد بها احد او اربطها باي موضوع والله يشهد

تحياتي 

 

رابط هذا التعليق
شارك

2 ساعات مضت, رمهان said:

وثق تماما ان مشاركتي وجهة نظر وليس اقصد بها احد او اربطها باي موضوع والله يشهد

.

وعليكم السلام أخوي رمهان :rol:

 

والله اعرف ان كلامك ماهو موجه لشخص :rol:

وهذا ميزة ان أكثر من شخص ذو خبرة يتناقشوا  موضوع من وجهة نظرهم ، والذي بالتالي يكون إثراء للموضوع :rol:

 

 

جعفر

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information