تصدير نموذج ورقة بيانات من اكسيس الى اكسيل على ان اختار مسار التخزين

[حمدى الظابط]

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

 

كنترول.rar

[jjafferr]

وعليكم السلام أخي حمدي

 

البرنامج في المرفق يعطيك المطلوب

 

وبحيث تستخدم مصدر النموذج ، والذي يجب ان يكون استعلام 

 

جعفر

[حمدى الظابط]

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

[jjafferr]

ارفق لك طريقتين:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Query Name", "D:\myFile.xls", True

او

DoCmd.OutputTo acOutputQuery, "Query Name", acFormatXLS, "D:\myFile.xls", False

 

جعفر

[حمدى الظابط]

الاستاذ المحترم جعفر اشكرك على تعبك ولكن هناك خلل فى الكود ولا اعرف السبب والعيب حاولت التطبيق بصورة وبأخرى ولن افلاح وهل من الممكن عمل كود لاختيار المسار سواء فى  c , D , E الذى اخزن به الملف مع وجود رسالة تفيد نجاح العملبية من عدمه اسف للاطالة وشكرا لتعبك مرفق الملف الذى تم التعديل عليه

كنترول.rar

[jjafferr]

ملفك شغال زي الفُل وبدون ان اعمل عليه شيء ، ويتم تصدير ملف الاكسس الى المجلد الذي ذكرته انت

 

واما رسالة التأكيد فتقدر تكتب هذه الاسطر بعد الكود:

msgbox "تم تصدير الملف"

 

جعفر

[حمدى الظابط]

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

 

myFile.rar

[jjafferr]

وعليكم السلام

 

هذه بسبب اعدادات الوندوز ، فالظاهر انك لم تضع اسم بلد عربي لقراءة حروف unicode

المادة رقم 3 في الصورة

 

جعفر

[حمدى الظابط]

السلام عليكم
عند التأكد من البلد وجد البلد مصر واللغة هى العربية  ومازال الخطأء فى النسخ بالكود الذى تفضلت به موجود علما بأنى استخدم نسخة اصلية من وندوز 7
ارجو المساعدة للانتهاء من البرنامج قبل عرضة فى المنتدى ولك الشكر

[أمير2008]

الملف عندي شغال تمام

[jjafferr]

وعندي كذلك

من كمبيوترك ، ياريت تصور لنا نفس الشاشات اللي عرضتها انا في الرابط اعلاه.

 

جعفر

[حمدى الظابط]

كل مارفع الصورة يقول لى الحجم كبير حتى بعد الضغط

تم تعديل مايو 9, 2017 بواسطه حمدى الظابط

[حمدى الظابط]

شكرا تم حل المشكلة بتغير الكود الثانى بالاول ولكم منى كل التقدير

[حمدى الظابط]

السلام عليكم
ممكن تعديل هذا الكود لفتح ملف الاكسيل قبل حفظة 
وكل عام وحضرتكم بخير

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Query Name", "D:\myFile.xls", True

تم تعديل مايو 11, 2017 بواسطه حمدى الظابط

[jjafferr]

وعليكم السلام

 

لا يمكن هذا بالكود اعلاه ،

واذا تريده مثل ما تفضلت ، فيجب ان تصدر البيانات الى الاكسل بطريقة اخرى

 

جعفر

[حمدى الظابط]

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

تم تعديل مايو 11, 2017 بواسطه حمدى الظابط

[jjafferr]

تفضل

 

استخدمت الوحدة النمطية من الرابط اعلاه

 

جعفر

 

645.كنترول.mdb.zip

[حمدى الظابط]

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

[حمدى الظابط]

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

 

 

[أ / محمد صالح]

5 ساعات مضت, حمدى الظابط said:

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

 

 

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

    objXLSheet.protect

وذلك بعد تنفيذ أمر الاحتواء التلقائي autofit أي قبل السطرين التاليين مباشرة

   
    'close up other rs objects
    If Not rs Is Nothing Then rs.Close
    Set rs = Nothing

 

[حمدى الظابط]

أ محمد صالح اشكرك على الشرح الوافى وهذا هو المطلوب لك تحياتى وكل عام وحضرتك بخير

تم تعديل يونيو 10, 2017 بواسطه حمدى الظابط