بوعبد الله محفوظ قام بنشر ديسمبر 26, 2015 قام بنشر ديسمبر 26, 2015 السلام عليكم ورحمة الله تعالى وبركاته لدي الكود التالي وأريد إضافة رسالة تأكيد الحذف 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 هل يمكن ذلك
jjafferr قام بنشر ديسمبر 26, 2015 قام بنشر ديسمبر 26, 2015 حيا الله بوعبدالله في الـ VBA ، ابحث عن msgbox ، ولما تطلع نتيجة البحث ، ستجد فيه مثال للذي تريده جعفر
بوعبد الله محفوظ قام بنشر ديسمبر 26, 2015 الكاتب قام بنشر ديسمبر 26, 2015 7 دقائق مضت, jjafferr said: حيا الله بوعبدالله في الـ VBA ، ابحث عن msgbox ، ولما تطلع نتيجة البحث ، ستجد فيه مثال للذي تريده جعفر حياك وبياك وجعل الجنة متقلبك ومثواك لقد وجدت الكود وقمت بإضافته وتمت المهمة بنجاح On Error GoTo btnDeleteRecord_Click_Err If MsgBox("هل تريد الإستمرار في عملية الحذف؟", vbYesNo + vbCritical, "حذف سجل") = vbNo Then Exit Sub End If On Error Resume Next باقي الكود كما هو vbCritical لإضافة اللمسة الجمالية أو التحذيرية آآآآآآآآآآآآآآآآآآآآآآآآآآسف على الإزعاج
jjafferr قام بنشر ديسمبر 26, 2015 قام بنشر ديسمبر 26, 2015 حياك الله انا عادة لا استعمل الاختصار مثل ما عملت انت ، وانما اخلي الكود يأخذ راحته في الاسطر ، لأني بعد عدة اشهر لما انظر للكود ، اريد ان اعرف ماهية الكود هذا الجزء من الكود اخذته من هذه المشاركة: 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 وروابط كثيرة لذا نصيحتي لك: توسع في كتابة الكود ، وفككه الى اسطر بدل ان تستعمل سطر واحد (وللعلم أخي الاستاذ رمهان فنان في عمل كود السطر الواحد) ، ففي المستقبل ، سترى الفائدة جعفر 1
بوعبد الله محفوظ قام بنشر ديسمبر 26, 2015 الكاتب قام بنشر ديسمبر 26, 2015 2 ساعات مضت, jjafferr said: حياك الله انا عادة لا استعمل الاختصار مثل ما عملت انت ، وانما اخلي الكود يأخذ راحته في الاسطر ، لأني بعد عدة اشهر لما انظر للكود ، اريد ان اعرف ماهية الكود هذا الجزء من الكود اخذته من هذه المشاركة: 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 وروابط كثيرة لذا نصيحتي لك: توسع في كتابة الكود ، وفككه الى اسطر بدل ان تستعمل سطر واحد (وللعلم أخي الاستاذ رمهان فنان في عمل كود السطر الواحد) ، ففي المستقبل ، سترى الفائدة جعفر بارك الله فيك على النصيحة وجاري الانتفاع بها ان شاء الله
رمهان قام بنشر ديسمبر 27, 2015 قام بنشر ديسمبر 27, 2015 حيا الله الاخوة ابو عبدالله والاستاذ جعفر اختصار الاكواد يسمى اختزال ! يختزل الكود عندما تجتمع الخلفية العلمية والعملية! لماذا تكتب عشرة اسطر وهناك دالة موجودة تقوم بما قمت به بل افضل واتقن ! فهنا الخلفية العلمية والمعرفة لها دور ! لماذا تعرف مصفوفة وتدرج بها قيم وتتعب الرام وانت لست بحاجة لذلك ولكن نقص المعرفة جعلتك تقوم بذلك ! ان الهدف من اختزال الكود هو سهولة تتبعه لاحقا فكلما طال الكود صعب تتبعه اي صعوبة التعديل عليه او تتبع قيم المتغيرات وعمل الكود سطر سطر ! مثلما الادارة علم وفن فان اختزال الاكواد علم وفن ! وانت بكيفك اخوي ابو عبدالله ! ماهوه ساحر الجميع جعفر وعارف انك ماراح تسمع لي ! تحياتي للجميع 2
بوعبد الله محفوظ قام بنشر ديسمبر 27, 2015 الكاتب قام بنشر ديسمبر 27, 2015 من أراد الدنيا فعليه بالعلم ومن أراد الآخرة فعليه بالعلم ومن أرادهما معا فعليه بالعلم بارك الله فب علمك مشرفنا الغالي رمهان ونفع بك لو تخصص موضوع لطريقة اختزال الأكواد نكن لك من الشاكرين
jjafferr قام بنشر ديسمبر 27, 2015 قام بنشر ديسمبر 27, 2015 السلام عليكم ورحمة الله وبركاته وحيا الله أخوي رمهان اعتقد الموضوع له علاقة بهذا الموضوع ايضا: http://www.officena.net/ib/topic/65923-مشكلة-الدالة-sum-مع-ويندوز-8/?do=findComment&comment=428975 انا وكما كتبت هنا ، وايضا في ملفي الشخصي : اقتباس وبالنسبة للبرمجة ، فانا لا املك اي شهادة في البرمجة او الكمبيوتر ، ولا حتى شهادة الرخصة الدولية لقيادة الحاسب الآلي ICDL ، وكل الذي اعرفه من البرمجة هو خبرة شخصية ولست بخبير ، وانما مستخدم عنيد ، لا يقبل الاستسلام للبرنامج ، وانما اُطوّعه لما اريد . فانا لا اعرف الكثير عن الاشياء النظرية العلمية ، وتجربتي كلها عملية ولكن بالنسبة للإختزال ، فهنا امرين: 4 ساعات مضت, رمهان said: 1. لماذا تكتب عشرة اسطر وهناك دالة موجودة تقوم بما قمت به بل افضل واتقن ! فهنا الخلفية العلمية والمعرفة لها دور ! لماذا تعرف مصفوفة وتدرج بها قيم وتتعب الرام وانت لست بحاجة لذلك ولكن نقص المعرفة جعلتك تقوم بذلك ! 2. ان الهدف من اختزال الكود هو سهولة تتبعه لاحقا فكلما طال الكود صعب تتبعه اي صعوبة التعديل عليه او تتبع قيم المتغيرات وعمل الكود سطر سطر ! 1. اذا هناك دالة موجودة تقوم بالعمل بسطر واحد ، فنعم ، الافضل استعمالها ، ولكن اذا كان هناك مشكلة في الدالة (كأن تعمل في اصدار اكسس ولا تعمل في اصدار آخر) ، فما فائدتها وانت ببرنامجك الضخم امام الزبون ، ولا يعمل برنامجك عنده ، انظر هذا المثال . 2. واما اختزال الكود ، فنرى ان هذا الكود البسيط نسيبا ، كيف ان تغييره صعب ، وكيف ان تفكيكه الى عدة اسطر جعله سهل القراءة والتغيير عليه ، واما هذا الكود المعقد والذي قام به أخي الاستاذ رمهان ، فكما قال: اقتباس هو عصارة خبرة سنين ! واخذ مني وقت اركبه بهذه الطريقة ! هو صح سطر واحد ولكن به افكار كثيرة ومعلومات قيمة جدا ! وانا حاولت "بخبرتي العمليه" ان: اقتباس وناوي اعمل له عملية تفكيك علشان اوصل لمعلوماته القيمة جدا واللي ما اعرف حتى كيف اتهجّى كلماته وفشلت والشئ الآخر هو ، صحيح ان الاختزال يبدوا سطر واحد ، ولكنه في الكثير من الاحيان عبارة عن عدة اوامر في سطر واحد ، فلهذا السبب ، جعلها في سطر واحد او تفكيكها الى عدة اسطر ، سيان للكمبيوتر. ولكن وللأمانه 4 ساعات مضت, رمهان said: مثلما الادارة علم وفن فان اختزال الاكواد علم وفن ! . جعفر
رمهان قام بنشر ديسمبر 27, 2015 قام بنشر ديسمبر 27, 2015 اخوي جعفر كلامك على العين والراس وثق تماما ان مشاركتي وجهة نظر وليس اقصد بها احد او اربطها باي موضوع والله يشهد تحياتي
jjafferr قام بنشر ديسمبر 27, 2015 قام بنشر ديسمبر 27, 2015 2 ساعات مضت, رمهان said: وثق تماما ان مشاركتي وجهة نظر وليس اقصد بها احد او اربطها باي موضوع والله يشهد . وعليكم السلام أخوي رمهان والله اعرف ان كلامك ماهو موجه لشخص وهذا ميزة ان أكثر من شخص ذو خبرة يتناقشوا موضوع من وجهة نظرهم ، والذي بالتالي يكون إثراء للموضوع جعفر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.