السلام عليكم ورحمة الله وبركاته
عندي دليل الهاتف وارغب بتصدير التقرير الى صيغة txt
تصدير التقرير بصيغة txt
استخدم الكود التالي :
DoCmd.TransferText acExportDelim, "", "ww", CurrentProject.Path & "\1.txt"
و هناك الكثير من المواضيع عن التصدير إلى txt يمكنك مراجعتها .
:happy:
مشكور اخي العزيز ممتاز الكود بس المشكله انه يعطيني فوصل مثل كذا
"خ";"966505555";"9665225"
"جد";"966523114";"96632223"
"محمد";"966212";
وهذي ماتنبع مع موقع رساله بالانترنت المطلوب وهي تصدير بالطريقه هذي اذا امكن
96654342232
96654242990
96654344444
96654342314
نفس الطريقة هذي هل جود كود
تمنى للجميع التوفيق
الباشق1 كتب:مشكور اخي العزيز ممتاز الكود بس المشكله انه يعطيني فوصل مثل كذا
"خ";"966505555";"9665225"
"جد";"966523114";"96632223"
"محمد";"966212";
وهذي ماتنبع مع موقع رساله بالانترنت المطلوب وهي تصدير بالطريقه هذي اذا امكن
96654342232
96654242990
96654344444
96654342314
نفس الطريقة هذي هل جود كود
تمنى للجميع التوفيق
تفضل أخى
اتمنى ان يفيدك المرفق
هلا اخي العزيز
مشاءالله تبارك الله جدا ممتاز وتم التعديل لتصدير الرقم فقط
a.writeline MobileNo
'a.writeline (rs!الاسم & " " & rs!Ìالجوال)
اخي ممكن اقدر انفذ هذا الكود بالاستعلام يعني بعد تحديد مجموعه حسب البحث بالاستعلام نموذجي مستمر وثم تصديرها
مشكور اقصرت اخي وفقك الله
تم تعديل هذه المشاركة بواسطة الباشق1 في 25 فبراير 2010 في 14:11
بالتأكيد أخى ممكن ذلك
فقط غير مجموعة السجلات التى يتم نقلها
set rs = dbs.openrecordset("ww") 1
حيث ww اسم الجدول أو الاستعلام المراد نقل البيانات منه
ملحوظة احذف الرقم 1 فى اخر الكود ( وضعته فقط ليظهر الكود بشكل صحيح )
بدلا من
set rs=me.recorset
تم تعديل هذه المشاركة بواسطة mrnooo2000 في 26 فبراير 2010 في 16:15
مشكور اخي تم حل المشكله الحمدالله وجزاك الله الف خير
وجاري التطبيق الفعلي وسوف اوفيك بنتيجة ويستفيد الجميع منها