تصدير الاستعلامات الى text بزر في النموذج

مغلق

بدأه عمر الدخيل في 19 أكتوبر 2006 · 6 رد · 1,614 مشاهدة · في قسم أرشيف الاستعلامات

#119 أكتوبر 2006 في 23:16 صاحب الموضوع

بسم الله الرحمن الرحيم

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

طبعاً بحثت في المنتدى عن الإجابة ولم اجد ..

المشكلة : عندي استعلام في قاعدة البيانات ، عندما اقوم بتصدير هذا الاستعلام عن طريق ( تصدير ) من قائمة ( ملف ) يخرج ملف الـ text فيه البيانات مضبوطة ،

لكن عندما أقوم بوضع زر في نموذج ووضع حدث ( ماكرو ) OutputTo الى استعلام اضع اسمه ثم تنسيق المخرجات Text Files (*.txt) لا تظهر نفس النتيجة ، وسأعطي مثال لملف لأحد الأخوة هنا

مثال : مرفق الملف : http://www.rogepost.com/dn/9e7i

لاحظ إذا قمت بتصدير ملف code // في كائنات الجداول // عن طريق ملف -- تصدير -- يظهر نتيجة ( وهي المرغوبة )

وإذا شغلت الماكرو // في كائنات وحدات الماكروا // ( ماكرو1 ) يعطي نتيجة أخرى ..

أريد كود أضعه على الزر المحدد في النموذج يعطي نفس نتيجة ملف -- تصدير ،، علما ان الكود أرغب ان يكون لإستعلام وليس لجدول

أرجوا ان يكون السؤال واضح ،، مع الشكر والتقدير الكبيرين للمشرفين والأعضاء مسبقاً

تم تعديل هذه المشاركة بواسطة عمر الدخيل في 19 أكتوبر 2006 في 23:19

#219 أكتوبر 2006 في 23:48

وهذه ملفات الـ text التي خرجت في المثال ..

http://www.rogepost.com/dn/i12o

علماً ان code2 هو المرغوب .

هذا ملف مفيد من الاستاذة / زهرة العبدالله للأخوة الأعضــــاء

http://www.rogepost.com/dn/p7tc

تم تعديل هذه المشاركة بواسطة عمر الدخيل في 19 أكتوبر 2006 في 23:40

#319 أكتوبر 2006 في 23:52

تفضل طبعا راح يتم التصدير باسم (عمر) على القرص C

codedb.rar

ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات

ابو حسن

#420 أكتوبر 2006 في 00:11

Private Sub ÃãÑ12_Click()

On Error GoTo Err_ÃãÑ12_Click

DoCmd.TransferText acExportDelim, "cood", "code", "c:\ÚãÑ.txt", False, "", 1256

MsgBox " C " & "áÞÏ Êã ÊÕÏíÑ ÇáãáÝ ÈÇÓã ÚÜÜãÜÜÑ Úáì ÇáÞÑÕ"

Exit_ÃãÑ12_Click:

Exit Sub

Err_ÃãÑ12_Click:

MsgBox Err.Description

Resume Exit_ÃãÑ12_Click

End Sub

جزاك الله كل خير أخي وحبيبي المبرمج 2003 ، ولكن كيف أغير في الكود لأجعله لإستعلام موجود .. وفقك الله ،، أيضاً أريد ان يختار المستخدم مكان وضع الملف .. ولك بالغ شكري وعرفاني

تم تعديل هذه المشاركة بواسطة عمر الدخيل في 20 أكتوبر 2006 في 00:13

#520 أكتوبر 2006 في 00:35

وهذه صورة توضيحية ..

http://www.9q9q.org/index.php?image=N4dXVT9A4ac6

#620 أكتوبر 2006 في 07:09

عمر الدخيل كتب:
Private Sub ÃãÑ12_Click()
On Error GoTo Err_ÃãÑ12_Click
DoCmd.TransferText acExportDelim, "cood", "code", "c:\ÚãÑ.txt", False, "", 1256
MsgBox " C " & "áÞÏ Êã ÊÕÏíÑ ÇáãáÝ ÈÇÓã ÚÜÜãÜÜÑ Úáì ÇáÞÑÕ"
Exit_ÃãÑ12_Click:
Exit Sub
Err_ÃãÑ12_Click:
MsgBox Err.Description
Resume Exit_ÃãÑ12_Click
End Sub
جزاك الله كل خير أخي وحبيبي المبرمج 2003 ، ولكن كيف أغير في الكود لأجعله لإستعلام موجود .. وفقك الله ،، أيضاً أريد ان يختار المستخدم مكان وضع الملف .. ولك بالغ شكري وعرفاني

اهاه -_- -_-

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

إذا تفضل

هذا مثال فيه استعلام اسمه Q1 سنقوم بتصديره على شكل txt

بعد الضغط على زر (تصدير استعلام Q1) حدد مكان التصدير ثم اكتب اسم الملف فقط

طبعا الكود طويل ما راح تحتاجه إذا أردت تقليصة فالله يعينك :) :)

codedb.rar

ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات

ابو حسن

#720 أكتوبر 2006 في 19:26

أخي الحبيب المبرمج 2003 .. جزاك الله كل خير ما قدمته لي ، وعلى أقتطاع جزء من وقتك لنفع أخوانك في الله ، سأحاول تطبيق ما قمت به في المثال على قاعدة بياناتي .. لك بالغ الشكر والتقدير والإحترام

كنت قد بحثت عن هذا الموضوع ، وكنت أحب الموضوع الذي فيه وصلات ذات صلة ، فأحببت تقديم ذلك لأخواني الأعضـــاء

مواضيع مشابهة

تسخ بيانات من نموذج الى جدول بزر2 رد · 30 مايو 2012
كيفية تصدير جدول الى ملف text بشروط معينة1 رد · 9 أبريل 2007
كيف تصدير Export لجدول الى ملف Text0 رد · 23 فبراير 2009
طلب كود تصدير مايكتب في text الى المكرة3 رد · 4 أبريل 2010
كيفية تصدير نص في Text إلى ملف Word ؟3 رد · 12 نوفمبر 2005
تصدير السجل الحالي من نموذج الى ملف وورد2 رد · 13 يوليو 2003