الشربيني123 قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 كل سنة وانتم جميييييعااااااا طيبين ... احبائي أعضاء المنتدى كود لغلق النموذج وفتح تقرير وليس نمودج مع الشكر
Shivan Rekany قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 3 دقائق مضت, الشربيني123 said: كل سنة وانتم جميييييعااااااا طيبين ... احبائي أعضاء المنتدى كود لغلق النموذج وفتح تقرير وليس نمودج مع الشكر اتفضل اذا بتستخدم اوفيس اصدار 2010 اليك هذا الكود فرضنا عندك تقرير باسم rep1 DoCmd.BrowseTo acBrowseToReport, "rep1" او اليك هذا الكود ستقدر تستخدم في كل اصدارات DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, Me.Name 2
الشربيني123 قام بنشر نوفمبر 30, 2017 الكاتب قام بنشر نوفمبر 30, 2017 (معدل) والله انت راجل محترم ..فعلا التقرير rep1 و بأستخدم 2010 ربنا يزيدك علم ونور النمودج اسمه "خريطة البرنامج" والتقرير " rep1" ممكن تكتب لي الكود كاملا ....مع الشكر تم تعديل نوفمبر 30, 2017 بواسطه الشربيني123
jjafferr قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 اذا ممكن تعديل بسيط على كود أخي شفان A = Me.Name DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, A جعفر 1
الشربيني123 قام بنشر نوفمبر 30, 2017 الكاتب قام بنشر نوفمبر 30, 2017 تسلمواااااااااااااااااااااااا تسلم اخي جعفر تسلم اخي Shivan Rekany
Shivan Rekany قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 (معدل) 51 دقائق مضت, jjafferr said: اذا ممكن تعديل بسيط على كود أخي شفان A = Me.Name DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, A جعفر استاذي الحبيب ممكن تخبرني ما الفرق بينهما انا دايما بستخدم كما انا كتبت وما فيه اي مشكلة ... هل هناك فرق ام ماذا ؟ منذ ساعه, الشربيني123 said: النمودج اسمه "خريطة البرنامج" والتقرير " rep1" ممكن تكتب لي الكود كاملا ....مع الشكر اذا تفتتح التقرير من النموذج اي كود من الاكواد تستخدمه راح يعمل هذا DoCmd.BrowseTo acBrowseToReport, "rep1" او هذا DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, Me.Name او كما كتبت استاذنا جعفر هذا 54 دقائق مضت, jjafferr said: A = Me.Name DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, A تم تعديل نوفمبر 30, 2017 بواسطه Shivan Rekany 1
الشربيني123 قام بنشر نوفمبر 30, 2017 الكاتب قام بنشر نوفمبر 30, 2017 ربنا يعزكم يا أبطال المنتدى ..كل سنة وانتم طيبين
jjafferr قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 الجملة Me.Name معناها اسم النموذج/التقرير ، فلما تفتح نموذج/تقرير جديد وانت لم تغلق النموذج القديم ، وخصوصا اذا هذا النموذج/التقرير الجديد عنده حدث "عند التحميل او عند الفتح" ، فالجملة Me.Name لا تكون محفوظة للنموذج القديم ، وانما للنموذج/التقرير الجديد. لذلك يُنصح ان: تحفظ اسم النموذج في متغير ثابت (مؤقتا ، مثل A) ، تفتح النموذج/التقرير الجديد ، ان تستخدم DoCmd.Close acForm, A للدلالة على ما تريد اغلاقه (خصوصا ان بعض المبرمجين للأسف يعطون نفس التسمية للنموذج والتقرير) ، فحينها لا يعرف الاكسس من يغلق ، فيغلق النموذج الجديد بدلا من القديم المطلوب اغلاقه. وقد صادفت هذا الخطأ عدة مرات (ولم اعرف لماذا لم يتم فتح النموج/التقرير الجديد ، لأن الاكسس كان يفتحه ويُغلقه على طول) ، الى ان تعلمت ان ابرمج بهذه الطريقة جعفر 1
Shivan Rekany قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 6 دقائق مضت, jjafferr said: فلما تفتح نموذج/تقرير جديد وانت لم تغلق النموذج القديم ، وخصوصا اذا هذا النموذج/التقرير الجديد عنده حدث "عند التحميل او عند الفتح" ، فالجملة Me.Name لا تكون محفوظة للنموذج القديم ، وانما للنموذج/التقرير الجديد. يعني ... البرمجة عند الاكسس زعيفة جدا ولا يعرف Me.Name اذا تكتبه في محرر فيجوال للنموذج یعنی لا یعرف نفسه في اي نموذج نحن كتبناه !!؟ لكن انا استخدم هذه الطريقة وما صار معي اي مشكلة بعد ... لكن دائما اتبع طرائقك لاني اعرف من انت تحياتي لك 1
jjafferr قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 اخي شفان بحثت في احد برامجي الرئيسية ، وبالفعل رايت انني استخدمت هذه الطريقة اكثر من مكان ، مثلا: A = Me.Name Forms!frm_Main!cmb_Full_Name = "" Forms!frm_Main!cmb_Full_Name.Requery Forms!frm_Main!cmb_Full_Name2 = "" Forms!frm_Main!cmb_Full_Name2.Requery Forms!frm_Main!iFull_Name = "" DoCmd.Close acForm, "frm_All_Last_wo_COMM" DoCmd.Close acForm, A و A = Me.Name Forms!frm_Personel_S!sfrm_Personel.Form.Requery Forms!frm_Personel_S!sfrm_Employee_Movement.Form.Requery Forms!frm_Personel_S!sfrm_Committees.Form.Requery Forms!frm_Personel_S!sfrm_Appreciation_Punishment.Form.Requery DoCmd.Close acForm, A و A = Me.Name Forms!frm_Personel_S!sfrm_Personel.Form.Requery Forms!frm_Personel_S!sfrm_Employee_Movement.Form.Requery DoCmd.Close acForm, A . واستخدمت طريقتك مباشرة ، فتم اغلاق النموذج بطريقة صحيحة!! فلا ادري اين صادفت هذه المشكلة ، وعليه اتبعت الطريقة الجديدة!! فهذا معناه ان طريقتك المباشرة تعمل وبدون مشاكل جعفر 2
Shivan Rekany قام بنشر نوفمبر 30, 2017 قام بنشر نوفمبر 30, 2017 12 دقائق مضت, jjafferr said: فلا ادري اين صادفت هذه المشكلة حسب فهمي وحسب ما قرأت ورأيت المواضيع يحدث المشكة عند استخدام كود الاعلاق النموذج او التقرير هكذا Docmd.Close بدون ان نکتب اسم النموذج او نكتب Me.Name مثلا اذا نعطي امر فتح نموذج مثلا وبعدين نكتب هذا الكود مثلا DoCmd.OpenForm "form1", acNormal DoCmd.Close سيتم فتح النموذج ونغلقه لان ذلك النموذج سيكون اكتيف والكود سيغلق النموذج الاكتيف لان ما نحدده اي ما كتبنا اسم النموذج المراد نغلقه هذا والله يعلم 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.