تنفيذ عدة استعلامات بماكرو واحد

[moham_q]

السلام عليكم الاخوة الاعزاء في المنتدى ... استفساري كيف يمكن لي ان انفذ 3 او 4 استعلامات وعلى سبيل المثال ان تكون استعلام تحديث بواسطة الوحدات النمطية - الماكرو - وبضغطه واحدة وبدون ظهور رسائل التنبيه... خالص تحياتي للجميع وشكراااااا

تم تعديل يناير 22, 2016 بواسطه moham_q

[علي المصري]

الطريقة كما يلي

اعمل زر امر وفي حدث عند الضغط اكتب الكود كما يلي

DoCmd.SetWarnings Off
DoCmd.OpenQuery "اسم الاستعلام رقم 1"
DoCmd.OpenQuery "اسم الاستعلام رقم 2"
DoCmd.OpenQuery "اسم الاستعلام رقم3"
DoCmd.OpenQuery "اسم الاستعلام رقم4"
DoCmd.SetWarnings True

 

[moham_q]

الاستاذ علي المصري المحترم ... مبدع دائما في اجاباتك الرائعة - السهل الممتنع -  اشكرك ووفقك الله وجزاك ربي خير جزاء ... تحية لكل اعضائنا في المنتدى

[علي المصري]

شكرا اخي الكريم

ولكن هذه ثمار ما تعلمته من أعضاء المنتدى الكرام

فالفضل لله ثم أعضاء المنتدى الذين تعلمت منهم الكثير

[jjafferr]

السلام عليكم 

 

اذا عندك مجموعة استعلامات ، تحديث/الحاق/حذف ، وكل استعلام يعتمد على نتيجة الاستعلام الذي قبله ، فاليك ما فهمته من الكثير من المواقع على الانترنت:

1. إما ان تستخدم كود VBA بواسطة وحدة نمطية كما قال الاستاذ علي ، هكذا:

23 ساعات مضت, علي المصري said:

 

DoCmd.SetWarnings Off
DoCmd.OpenQuery "اسم الاستعلام رقم 1"
DoCmd.OpenQuery "اسم الاستعلام رقم 2"
DoCmd.OpenQuery "اسم الاستعلام رقم3"
DoCmd.OpenQuery "اسم الاستعلام رقم4"
DoCmd.SetWarnings True

 

.

2. واما اذا اردت ان تستعمل الماكرو ، فهناك شئ جدا مهم يجب ان تعرفه ، وهو ان الماكرو سينفّذ جميع الاوامر / الاستعلامات دفعة واحدة ، ولن يطبقها بالتسلسل الذي تريد ، بحيث ان الاستعلامات الاخرى ستبدأ بالعمل قبل ان ينتهي عمل الاستعلام الذي قبله (وخصوصا اذا كان الاستعلام بطيئا)  

فاذا اردت استعمال الماكرو لهذا الامر ، فالطريقة الصحيحة هي ان تغلق كل استعلام قبل البدء بإستعمال  الاستعلام الذي يليه ، هكذا:

SetWarnings (No)
OpenQuery (Query,"اسم الاستعلام رقم 1", DataSheet, Edit)
CloseWindow (Query,"اسم الاستعلام رقم 1", No)
OpenQuery (Query,"اسم الاستعلام رقم 2", DataSheet, Edit)
CloseWindow (Query,"اسم الاستعلام رقم 2", No)
OpenQuery (Query,"اسم الاستعلام رقم 3", DataSheet, Edit)
CloseWindow (Query,"اسم الاستعلام رقم 3", No)
OpenQuery (Query,"اسم الاستعلام رقم 4", DataSheet, Edit)
CloseWindow (Query,"اسم الاستعلام رقم 4", No)
SetWarnings (Yes)

 

 

جعفر

[moham_q]

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