سوال مهم في نقل البيانات الى اكسل

أخي الكريم

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

هذا الموضوع سهل جداً ويتم بواسطة الماكرو (TransferSpreadsheet)

بعد إكمال الحقول المطلوبه إحفظ الماكرو بأي إسم تحب

ثم ضع زر على النموذج وبواسطة المعالج إختر تشغيل ماكرو وإختر هذا الماكرو

أما إذا أحببت أن تكتب الأمر كاملاً بنفسك فإعمل تصدير للماكرو على شكل وحده نمطيه وانظر ماذا ينتج

بقية الأسهله معذرة لم أطلع عليها وسأطلع لاحقاً إن شاء الله وإذا عرفت سأخبرك إن شاء الله

وشكرأ

شكرا لك عزيزي قبل الولوج في طريقة المايكرو شلكرين ومقدرين

الأخ / ali123

ضع زر أمر على أي نموذج تريده ثم واكتب عنوانه حفظ بيانات في أحد الأقراص ويفضل تسمية القرص الذي سوف تحفظ عليه ثم إذهب إلى خاصية ذلك الزر وفي خاصية عند النقر أكتب الكود التالي:

     DoCmd.TransferSpreadsheet acExport, 8, "TblName", "DrifeName:TblName2", False, ""

أستبدل التالي:

1_ tblName بأسم الجدول الموجود لديك

2 _ استبدل DrifName باسم القرص الذي تريد حفظ الجدول عليه سواء كنت تريده على C أو D أو A فسوف يتم حفظ الجدول على هيئة جدول إكسل0

استبدل TblName2 باسم الجدول الذي تريد حفظه أو تحويله إلى إكسل0

ولإستيراد الجدول من أي قرص تم حفظه عليه أنشىء زر أمر أخر واكتب عنوانه إستيراد بيانات محفوظة وفي خاصية حدث عند النقر أكتب الكود التالي:

     DoCmd.TransferSpreadsheet acImport, 8, "TblName", "DrifeName:TblName2 ", True, ""

وغير التسميات الجداول والقرص المحفوظ عليه الجدول بنفس التسميات في الكود الأول0

ولك تحياتي0

أقدم إعتذاري للأخ ابوعبدالملك

لم أشاهد رده وعلى ما يبدو كان ردنا في آن واحد وكان رده كافياً 0

شكرا لك يا5060 وعبدالملك ماقصرتوا الله يعطيكم العافية بقي سؤال واحد اريد له اجابة

اريد وضع زر حفظ واريد ان يطلب مني بعد ادخال او تعديل بيان ان يقوم بسؤالي هل اريد الحفظ او لا

شكرا لكم تعاونكم معي

ولاادري كيف ارد جمايلكم

اخي العزيز لقد طرحت هذا السؤال في المنتدى من قبل وسوف أجيبك عليه أن وجدت الفرصة 0

حاضرين نخدمك بما نستطيع0

شكرا عزيزي 5060 على ماتبذله لنا شكرا

هناك سؤال اخر كيف ادرج ملف صوتي صغير عند بدء تشغيل النموذج

يا أخ /علي

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

في وحدة نمطيه عامة أكتب الكود التالي:

  Option Explicit

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"& _
 (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

وفي خاصية حدث النموذج حدث " عند الفتح " أكتب الكود التالي:

كود:

 Dim r As Long

 r = sndPlaySound("c:samehelow.wav", &H1)

هنا أشرنا إلى ملف صوتي اسمه Helow في مجلد اسمه Same موجود على القرص C

الأخ 5060

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

لاداعي للإعتذار فنحن مكملين لبعض فأنا أجبت بالشرح الممل وأنت أتيت بالفائده مباشرة .

( (معذرة على التأخر لأني دخولي للنت في هذه الأيام قليل جداً ))

وشكراً للجميع

شكرا لكما انتما الاثنين ماقصرتم الله يعطيكم العافية

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