تحديد مكان تصدير البيانات

[ابو عبد الله العراقي]

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

الأستاذة الافاضل

في قاعدة البيانات المرفقة وفي نموذج المسابقات يوجد Button   تصدير البيانات على شكل ملف اكسل   ، المشكلة انه عند التصدير لازم كل مرة احدد مكان ملف الاكسل الذي سوف يتم تصديره .

المساعدة في تحديد مكان ثابت لمكان تصدير الملف بحيث كل ما اصدر يذهب إلى نفس الفولدر ويستبدل الفولدر القديم ؟؟

Rac.rar

[Foksh]

14 دقائق مضت, ابو عبد الله العراقي said:

المساعدة في تحديد مكان ثابت لمكان تصدير الملف بحيث كل ما اصدر يذهب إلى نفس الفولدر ويستبدل الفولدر القديم ؟؟

 

أخي الكريم @ابو عبد الله العراقي

استبدل هذا الكود في الزر المسؤول عن التصدير

On Error GoTo com:
Dim filePath As String
filePath = CurrentProject.Path & "\Aracestbl.xls"
DoCmd.OutputTo acOutputTable, "Aracestbl", acFormatXLS, filePath, True, , , acExportQualityPrint
com:
MsgBox Err.Description

وهذا الملف بعد التعديل

Rac.accdb

[ابو عبد الله العراقي]

عاشت ايدك اخوي الكريم 

       بيروح مباشرة على الـدكيومنت  Current Project 

طيب لو خصصت فولدر معين في بارتشن كيف يكون المسار هل هو بهذا الشكل ؟

filename ="D:NRc.path & \ "Aracestbl.xls"

ام ماذا ؟؟؟

بصراحة حاولت التغيير لكن ما نفع معاي

ارجو الافادة 

[Foksh]

6 دقائق مضت, ابو عبد الله العراقي said:

عاشت ايدك اخوي الكريم 

       بيروح مباشرة على الـدكيومنت  Current Project 

طيب لو خصصت فولدر معين في بارتشن كيف يكون المسار هل هو بهذا الشكل ؟

filename ="D:NRc.path & \ "Aracestbl.xls"

ام ماذا ؟؟؟

بصراحة حاولت التغيير لكن ما نفع معاي

ارجو الافادة 

أخي الكريم ، سيتم حفظ الملف في مكان قاعدة البيانات ، أما إذا أردت تخصيص مكان آخر ، فتفضل الكود التالي :-

    Dim strPath As String
    strPath = "D:\NRc\Aracestbl.xls"
    DoCmd.OutputTo acOutputTable, "Aracestbl", acFormatXLS, strPath, True, , , acExportQualityPrint

 

[ابو عبد الله العراقي]

تمام استاذنا عاشت ايديك

بقى عندي نقطتين لو تكرمت 

 النقطة الاولى : وهي عندما يسألني هل تريد تصدير البيانات عندما اقول له نعم سوف يقوم بتصدير البيانات ولا يسألني اذا كنت اريد تبديل الملف الموجود اصلاً مباشر يصدر ويبدل الملف وفي حالة اقول له لا تصدر الملف تظهر الرسالة فارغة والمفروض يظهر فيها تم الالغاء 

النقطة الثانية : هل من الممكن عند تصدير الملف يبقى الملف الاول بتاريخ تصدير قديم ويتم تصدير ملف بتاريخ جديد ؟

واعذرني على كثرة الاسئلة ولكنكم كرماء  

Rac.rar

[ابو عبد الله العراقي]

 تم التعديل على قاعدة البيانات 

 Fokshشكراً جزيلاً اخو العزيز

طيب هل من الممكن عدم فتح ملف اكسل بعد التصدير ؟ 

Rac.rar

[Ahmed_J]

السلام عليكم

اخي العزيز استبدل كلمة (true) بـ (false) في الكود

DoCmd.OutputTo acOutputTable, "Aracestbl", acFormatXLS, filePath, False, , , acExportQualityPrint

تحياتي

[ابو عبد الله العراقي]

عاشت ايدك اخوي العزيز ، ممنون

 

[Foksh]

في 28‏/12‏/2023 at 14:30, ابو عبد الله العراقي said:

تمام استاذنا عاشت ايديك

بقى عندي نقطتين لو تكرمت 

 النقطة الاولى : وهي عندما يسألني هل تريد تصدير البيانات عندما اقول له نعم سوف يقوم بتصدير البيانات ولا يسألني اذا كنت اريد تبديل الملف الموجود اصلاً مباشر يصدر ويبدل الملف وفي حالة اقول له لا تصدر الملف تظهر الرسالة فارغة والمفروض يظهر فيها تم الالغاء 

النقطة الثانية : هل من الممكن عند تصدير الملف يبقى الملف الاول بتاريخ تصدير قديم ويتم تصدير ملف بتاريخ جديد ؟

واعذرني على كثرة الاسئلة ولكنكم كرماء  

Rac.rar 38.35 kB · 5 downloads

تفضل التعديل الكامل

Rac.accdb

[ابو عبد الله العراقي]

عـــــــــــــــــــــــــاشت ايدك استاذنا العزيز 

 الله يكرمك