تحويل الاستعلام في أكسس ( Access ) إلى ملف امتداد .xls ( أكسل) ؟&#3

[bander abdulla]

السلام عليكم ورحمة الله وبركاته أعزائي المشرفين .. و روّاد هذا الصرح ..

  Dim Report01OrigName As String, Report01Destination As String, Report01NewName As String

Report01OrigName = "FINAL REPORT"
Report01Destination = "D:\ho\"
Report01NewName = Report01Destination & Report01OrigName & " " & Format(Date, "yyyy-mm-dd") & "." & "snp"

DoCmd.OutputTo acReport, Report01OrigName, "SnapshotFormat(*.snp)", Report01NewName, False, , 0

الكود السابق خاص بتحويل التقرير ( الريبورت Report ) لملف بامتداد .snp !!

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

أنه يذهب لـ الباث الذي حددنا ويقوم بإنشاء ملف نوع ( سناب شوت ) ويعطيه اسم ملحق ( بالتاريخ ) الذي تم فيه الضغط على الزر !!

--------------------------

أما ما أريده أنا :

1- كود تحويل ( استعلام ) موجود لدي في ( الاكسس) إلى ملف امتداد ( اكسل ) ..

2- يقوم بعمل ما تم فعله في الكود السابق وهو إعطاء امكانية تحديد ( الباث ) أو الفولدر المراد حفظ الملف فيه !!

3- يقوم بجعل اسم (الملف) متبوع بـ تاريخ التحديث .. أو (الانشاء) الذي تم به تحويل الملف !!

-------------------------

تحياتي لكم ولهذه المجهودات التي تقدمونها .. اعتذر مقدما إن كان السؤال مكررا ً .. وأعلم مدى المعاناة التي تواجهونها في التنظيم .. لكم أرق التحايا ..

[osama ababneh]

السلام عليكم اخي بندر

هذا هو الكود الذي طلبتة

 Private Sub botton1_Click()
DoCmd.OutputTo acOutputQuery, "sales", acFormatXLS, "sales.xls"
End Sub

حيث ان اسم الاستعلام هو Sales واسم ملف الاكسل الذي سيتم انشاؤة هو Sales ايضا

[bander abdulla]

السلام عليكم اخي بندر

هذا هو الكود الذي طلبتة

 Private Sub botton1_Click()
DoCmd.OutputTo acOutputQuery, "sales", acFormatXLS, "sales.xls"
End Sub

حيث ان اسم الاستعلام هو Sales واسم ملف الاكسل الذي سيتم انشاؤة هو Sales ايضا

\

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

سؤال آخر حبيبي .. اذا تسمح لي ؟!

أريد الفنكشن أو السب كود .. الخاص بـالـ ( Timer ) .. بحيث أعطي .. توقيت محدد .. لـ ( استعلام ) معين .. فيقوم بتأدية مهمة معينة !! أو ( نسخ الاستعلام لفورمات إكسل على سبيل المثال ) ..

باختصار وبوضوح : أريد دالة ( توقيتية ) وبمجرد ما تشير الساعة الى الزمن المحدد .. تقوم بنسخ (فورم أو استعلام ) ووضعه في ملف أكسل .. ولكل جزيل الشكر والاحترام ..

[osama ababneh]

اخي تفضل هذا مثال على طلبك

وعليك الانتباه الى عدم تغيير قيمة عداد الوقت (Timer)

timer_for_output.rar

[bander abdulla]

اخي تفضل هذا مثال على طلبك

وعليك الانتباه الى عدم تغيير قيمة عداد الوقت (Timer)

صراحة أعجز عن شكرك .. وليست غريبة عليك .. أجمل وأرق تحية أقدمها لك ..

فألف شكر لك أساااااامة .. وألف باقة ورد

تم تعديل يونيو 18, 2008 بواسطه bander abdulla

[E.OMARN]

مشكور اخي العزيز على الكود ولكن عندي سؤال على نفس الكود ولكن المستخدم يمكنه حفظ المستند في المكان الذي يريده والاسم الذي يختاره اي فتح نافذه حفظ باسم SAVE AS مع الشكر

[bander abdulla]

عزيزي اسامة عذرا على ازعاجك ..

والسؤال موجه للاخوة الخبراء .. والمشرفين الاعزاء .. و للأخ الغالي أسامة ..

هل أستطيع أن استفيد من ( التايمر ) في توقيت وقت إرسال الملف ايميل عن طريق الأكسس ..؟

----------------------

سؤال اخر :

احيانا في بعض الاستعلامات يكون لدّي ( 7 أعمدة ) وكل عمود به ( 100 صف ) ..

مثال :

" العمود الأول " ميزانية عام 2001 لعميل ++ " العمود الثاني " المدفوع لكل عميل عام 2001 ++ "الثالث" ميزانية 2003 +++ "الرابع " ميزانية 2005 ++ " .... الخ "

وعدد العملاء تقريبا 100 أي أن : كل عميل يمثل ( صف ) ..

وحوّلت الاستعلام الى ( فورم ) ..

ووضعت في ( أسفل ) كل عمود .. ( المجموع الكليّ) باستخدام :

= Sum([ميزانية عام 2001 لعميل]

ونهاية العمود الثاني

= Sum([المدفوع لكل عميل عام 2001])

وهكذا مع بقية الأعمدة

-------------------------------

سؤالي .. أنني عندما استخدم دالة : sum

لأكثر من ثلاث أعمدة

تخرج لي في النواتج بهذا الشكل

#error#

وعندما استخدمها لأقل .. فالنتائج تخرج بشكل طبيعي ؟!

حاولت أن ارفق لكم الملف .. ولكن الابلووود عندي ضعيف جدا جدا ولم استطع رفع الملف لكم ..

هل هناك خطأ أو خلل .. يخرج في حالة ان الاعداد كبيرة ؟! أو الأعمدة كثيرة ؟

تحياتي لكم

[osama ababneh]

اخي بندر

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

طبعا يمكنك ان ترسل ما تريد كايميل باستخدام عداد الوقت

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

http://www.officena.net/ib/index.php?showt...34&hl=ايميل

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

وحاول ان ترفق الملف لان ذلك سيوفر الكثير من الوقت

تم تعديل يونيو 20, 2008 بواسطه osama ababneh

[bander abdulla]

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

وسأقوم غدا بإرفاق الملف (الخاص بالمجاميع) ولك كامل ودّي واحترامي ..

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

تقبل وافر احترامي لشخصك .. ولفكرك وروحك الطيبة

[bander abdulla]

بالنسبة للـ ( تايمر ) أخوي أسامة ..

ما فيه طريقة أخليه محفوظ حتى لو ( سكرّت الفورم ) .. لأن مشكلته الان .. لازم يكون الفورم (مفتوح) أو على الأقل (الداتا بيس مفتوحة ) !!

ما فيه طريقة .. أدخل ( الوقت الذي أريده .. وبالتالي يكرره يوميا ) ؟!

--------------------------

ما يهمني الان هذه الطريقة .. وهي ( تخزين الوقت للتايمر ) بحيث لا أحتاج لادخاله إلا ( مرة واحده ) ..

تحياتي لكم جميعا .. وأخص بالشكر ( أستاذي أسامة )

[osama ababneh]

السلام عليكم اخي بندر

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

بالنسبة للتساؤل بان يعمل الكود وقاعدة البيانات مغلقة فهذا مستحيل

اما التساؤل حول تثبيت الوقت ممكن ان تثبت الوقت عن طريق تثبيتة داخل الكود واليك هذا المثال البسيط

timer.rar

تم تعديل يونيو 21, 2008 بواسطه osama ababneh

[bander abdulla]

أشكرك أستاذي أسامة مجددا ..

ولماذا لا اسألك ؟ إن كان سؤالي في ( الرد ) وليس عنوانا لموضوع ؟

فأنت بحق .. أبهرتنا بسرعة إجابتك وبدقتها .. فلا غرابة أن تكون أغلب الأسئلة موجهه لشخصك .. ولمشرفي القسم وخبراءه فائق الود والاحترام ..

س 1: هل يوجد طريقة .. لعمل أي ( فورم ) عن طريق التايمر و الفورم ( مغلق ) ؟! " أي هل يمكن تنفيذ أي أمر باستخدام التايمر والفورم مغلق" ؟ [السؤؤؤؤؤؤؤؤؤال للجميع]

س2 : [مكرر] هل استطيع استخدام التايمر في ارسال الايميل على شكل " كويري " او " ريبورت" عن طريق الاكسس ؟!

س3: هل هناك تطبيق معيّن لوضع ( شاشة ) تكون خاصة ( بالتوقيت ) ومنها استطيع ادخال ( اسم العملية وتوقيتها "تايمر" ) وأجعل ( شاشة أخرى تنفذ الأوامر عن طريق ( شاشة التواقيت ) ؟!

:(

لكم جزيل " الشكر " و " الامتنان " فقد تعلمت من هذا المنتدى في فترة وجيزة مالم أتعلمه في " شهور " ..

تم تعديل يونيو 22, 2008 بواسطه bander abdulla

[osama ababneh]

السلام عليكم اخي بندر

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

على كل حال

بالنسبة للسؤال الاول فانني ساجيب علية بسؤال:

هل يمكنك تشغيل ملف صوت موجود في كمبيوترك والكمبيوتر مغلق؟؟؟؟ اذا استطعت ذلك فربما يستطيع احدهم تنفيذ الامر والفورم مغلق !!!! ( اي ان الكود يحتاج الى وسيطة ليعمل من خلالها)

السؤال الثاني والثالث

الاجابة في المرفق

ولكن عليك ان تستخدم الاوتلوك وان يكون جاهزا ومربوطا بايميلك حتى يعمل هذا البرنامج

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

وانشاء الله ان تكون قد تمت الاجابة على تساؤلاتك

email_data.rar

[bander abdulla]

صراحة لا أستطيع شكرك .. الشكر الذي تستحقه !!

لكل مني كل الأماني القلبية بدوام الصحة ..

بالنسبة لتعليقك حول ( طلب السؤال بالاسم ) .. اعتذر لجميع روّاد هذا المنتدى .. وجميعهم أساتذة لنا ..

أسامة ( حقا ) أنت رائع بكل ما تحمله الكلمة من معنى