ابا عمرو قام بنشر مارس 22, 2014 قام بنشر مارس 22, 2014 الاخوه أعضاء المنتدى الكرام / سلام الله عليكم ورحمته طلب وليس أمر أريد كود لغلق وحفظ محتويات النموذج وفتحه في نفس الوقت بمعنى كود لزر أمر عند الضغط على زر الأمر كأنني قمت بغلق وفتح النموذج مرة ثانية بدون غلق النموذج (بمعنى تحديث للبيانات النموذج فقط) وجزاكم الله خيرا 1
ابوخليل قام بنشر مارس 22, 2014 قام بنشر مارس 22, 2014 وعليكم السلام لماذا تلجأ الى هذه الطريقة؟ قد نجد طريقة لتحديث البيانات بدلا من ذلك هل جربت العبارة Docmd.Requery ؟
saadalnejim قام بنشر مارس 22, 2014 قام بنشر مارس 22, 2014 عليكم السلام و رحمة الله و بركاته الا يفي زر الامر Refresh بالغرض ؟
ابا عمرو قام بنشر مارس 23, 2014 الكاتب قام بنشر مارس 23, 2014 أخي وأستاذي الكبير / أبو خليل سلام الله عليكم ورحمته لا يأ اخي Docmd.Requery لا تفي بالغرض حيث أن النموذج مبني على جدول وليس استعلام وانا لا أريد تغييره وإريد تحديث للبيانات مع ادخال كل نموذج بدون فتح وغلق النموذج فهل يوجد كود لمفتاح يفي بالغرض وجزاكم الله خيرا 1
الشاعر قام بنشر مارس 26, 2014 قام بنشر مارس 26, 2014 ربما المقصود وجود تحديث لكافة السجلات في أمر واحد وليس سجل لوحده كما يفعل الأمر الذي أشار إليه أخونا أبو خليل عذرا على التطفل
أبو آدم قام بنشر مارس 26, 2014 قام بنشر مارس 26, 2014 رغم أن التصور ليس كاملاً لحاجتك هذا الكود يقوم بالبحث عن النماذج المفتوحة و يغلقها جميعا واحداً تلو الآخر ، ثم يتم فتح النموذج الذي تختاره Private Sub BClose_Click() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject 'Search for open AccessObject objects in AllForms collection. For Each obj In dbs.AllForms If obj.IsLoaded = True Then 'Close the form if it is open DoCmd.Close acForm, obj.Name, acSaveYes End If Next obj '-------------------- 'Open new form here DoCmd.OpenForm "f1" End Sub آمل أن يكون هذا كافياً والله من وراء القصد ...... 1
ابا عمرو قام بنشر مارس 26, 2014 الكاتب قام بنشر مارس 26, 2014 أخي الكريم أبو آدم جزاكم الله خيرا ولكن أين يوضع هذا الكود أنا كل ما أقصده هو كود يعمل تحديث لبيانات النموذج بحيث يظهر مباشرة في حقل البحث الموجود في النموذج هذا ما قصدته علما بأن المفتاح به عدد من الأكواد عند الضغط عليه يقوم بتنفيذها وأريده أن يقوم بتحديث البيانات أيضا . والمشكلة أن النموذج مبني على جدول وليس استعلام وجزاكم الله خيرا
أبو آدم قام بنشر مارس 26, 2014 قام بنشر مارس 26, 2014 أرى و الله أعلم ان إقتراحات الاستاذ الفاضل ابو خليل و الاخوة الافاضل كافية ولديك كود الآن وما يلزم لاغلاق كافة النماذج وفتح النموذج الذي تريده مرة اخرى ولكن كل ما نتحدث عنه تصورات بعيداً عن التطبيق ، فقد يلزمك أي منها وقد لا تلزمك الحسم بالتطبيق و الحاجات وكلاهما لديك ... ونحن بإذن الله بالعون ما قدّر لنا ......
الشاعر قام بنشر مارس 27, 2014 قام بنشر مارس 27, 2014 الله يعطيكم العافية ماذا لو احتجنا لتحديث كافة السجلات في النموذج المفتوح دون الحاجة لإغلاقه وفتحه من جديد ؟ يعني مثل زر F9 تقبلوا تحياتي ( الشاعر )
ابا عمرو قام بنشر مارس 27, 2014 الكاتب قام بنشر مارس 27, 2014 السلام عليكم ورحمة الله نعم أخي الكريم هذا هو المطلوب ما ذكره الاخ الشاعر تحديث البيانات دون غلق النموذج كما يفعل مفتاح F9 هذا ما قصدته وجزاكم الله خيرا
ابا عمرو قام بنشر مارس 27, 2014 الكاتب قام بنشر مارس 27, 2014 الاخوه الكرام / أعضاء المنتدى الكريم وجدت هذا الكود في احدى المنتديات وأعتقد أنه قد يصلح الى حد ما ولكن أريد توضيح لمعناه وجزاكم الله خيرا الكود هو : DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
anowrosh88 قام بنشر مارس 27, 2014 قام بنشر مارس 27, 2014 اذا كان الامر لعمل تحديث refresh لبيانات النموذج اختر زر امر اذهب الى انشاء ماكرو استخدم run command ومن القائمه المنسدله في اسفل الماكرو اختار الامر الذي يناسب وفي هذه الحال الامر refresh
أمير2008 قام بنشر مارس 29, 2014 قام بنشر مارس 29, 2014 هذا هو الكود : DoCmd.RunCommand acCmdSaveRecord
الشاعر قام بنشر مارس 31, 2014 قام بنشر مارس 31, 2014 السلام عليكم جربت الكود تحت زر أمر ولم تفلح الطريقة تقبلوا تحياتي ( الشاعر )
أمير2008 قام بنشر مارس 31, 2014 قام بنشر مارس 31, 2014 أرفق مثالاً مصغراً لقاعدة بياناتك لنطبق عليها وتأكد أن الكود سوف يعمل إن شاء الله
ابا عمرو قام بنشر مارس 31, 2014 الكاتب قام بنشر مارس 31, 2014 أخي الكريم بالفعل الكود لا يعمل وأنا أيضا جربته
أمير2008 قام بنشر أبريل 2, 2014 قام بنشر أبريل 2, 2014 يا باشا نفس المشكلة واجهتني سابقاً وتم حلها و قمت بتحديث نموذج فرعي ورئيسي و نفس النموذج و نموذج مفتوح آخر و كومبو بوكس لذلك لا مانع من صاحب الموضوع أن يرفق مثالا لكي نحاول حل المشكلة معه بدلاً من حلها غيابياً
الشاعر قام بنشر أبريل 2, 2014 قام بنشر أبريل 2, 2014 السلام عليكم أخي العزيز amir2008amir إليك المثال في المرفقات سيفتح لك النموذج FSdad وبه زر ( تحديث ) في الزاوية العليا اليسرى وتجد الكود تحت هذا الزر ملاحظة : الأمر يعمل على نفس السجل المطلوب أن يعمل الزر ليقوم بتحديث جميع السجلات وللتجربة غير أحد الأرقام وليكن ( الواصل ) وضع المؤشر في سجل آخر واضغط زر التحديث من المتوقع أن هناك خطأ لم أصل لمعرفته وإلا فنحن واثقون بقدرتكم أخي العزيز تقبل تحياتي ( الشاعر ) مثال 1.rar
أمير2008 قام بنشر أبريل 3, 2014 قام بنشر أبريل 3, 2014 تفضل التحديث يتم بدون الضغط على زر تحديث مثال 1.rar
ابا عمرو قام بنشر أبريل 3, 2014 الكاتب قام بنشر أبريل 3, 2014 اخي الكريم هل يمكن تحويل الملف الى اكسس 2003 جزاكم الله خيرا
الشاعر قام بنشر أبريل 6, 2014 قام بنشر أبريل 6, 2014 (معدل) السلام عليكم أخي العزيز amir2008amir الله يعطيك العافية 100 % بارك الله فيك ما قصرت بودي لو تشرح أين الخطأ الذي وقعتُ فيه لأتلافاه مستقبلا تقبل تحيات أخيك الشاعر تم تعديل أبريل 6, 2014 بواسطه الشاعر
أمير2008 قام بنشر أبريل 6, 2014 قام بنشر أبريل 6, 2014 وعليكم السلام ورحمة الله يا باشا ليس هناك خطأ كل ما هنالك أن المعادلة الحسابية في النموذج المطلوب أن تعمل في حالة تحديث بيانات أي خلية أو مربع نص في النموذج يعني تضع نسخة المعادلة في حدث AfterApdate لكل مربع نص به أرقام مرتبطة بالمعادلة
الردود الموصى بها