كيف اجعل عده حقول في حقل واحد

[ابو ياسين المشولي]

اخواني مشرفي واعضاء المنتدى الكرام

كيف اجعل عده حقول في حفل واحد او استعلام 

بمعنى لدي حفل رقم الجوال

واريد جميع ارقام الجوال مع بعض بملف تكست

مثلا هكذا

966502312861,966503400258,966504938472,966541597848,966544680158,966552348984,966556735700,966557708464,966559359996,966559359996,966563146998

اريد استخدمها في موقع لارسال الرسايل

عملت هذا في الاستعلام بقيت في التطبيق بالاكست

هذا في الاستعلام

رقم الجوال: Left("966" & [goal];3) & Right([goal];9) & ","

 

استخدمت هذا الكود

استخدمت هذا الكود ولكن طلع كماهو موضح بالصورة الاسفل
DoCmd.OutputTo acOutputQuery, "tabl3", "TEXT FILES(*.Txt)", CurrentProject.Path & "\DATA\PassPort" & "\" & C & ".txt", False

تم تعديل ديسمبر 17, 2018 بواسطه ابو ياسين المشولي

[Barna]

اخي الكريم .... جرب تصدير البيانات الموجودة في برنامجك من التكست بكس ( الأرقام المختارة للجوالات ) الى ملف تكست المطلوب ؟

ضع لنا مثال مصغر للتعديل عليه ( أفضل من الشفوي ) ؟؟؟

[ابوخليل]

السلام عليكم

تفضل  :  مطلوبك هنا

[Elsayed Bn Gemy]

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

[Elsayed Bn Gemy]

 

        Dim records As Object
        Dim db As Object
        Dim strText As String
     
        Set db = CurrentDb()
        Set records = db.OpenRecordset("Tbl1")
     
        strText = ""
        While Not records.EOF
            strText = strText & records!fild1 & ","
            records.MoveNext
        Wend
     
  
     
     
     'مرحلة التصدير
     Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile(CurrentProject.Path & "\" & "C" & ".txt")
oFile.WriteLine strText
oFile.Close
Set fso = Nothing
Set oFile = Nothing
        records.Close
        Set records = Nothing
        Set db = Nothing

 

ضع هذا الكود فى زر الذى تصدر به البيانات

يجب تغيير اسم  الجدول واسم الحقل على حسب مرفقك

 

تم تعديل ديسمبر 17, 2018 بواسطه Elsayed Bn Gemy

[ابو ياسين المشولي]

11 ساعات مضت, Elsayed Bn Gemy said:

 

        Dim records As Object
        Dim db As Object
        Dim strText As String
     
        Set db = CurrentDb()
        Set records = db.OpenRecordset("Tbl1")
     
        strText = ""
        While Not records.EOF
            strText = strText & records!fild1 & ","
            records.MoveNext
        Wend
     
  
     
     
     'مرحلة التصدير
     Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = fso.CreateTextFile(CurrentProject.Path & "\" & "C" & ".txt")
oFile.WriteLine strText
oFile.Close
Set fso = Nothing
Set oFile = Nothing
        records.Close
        Set records = Nothing
        Set db = Nothing

 

ضع هذا الكود فى زر الذى تصدر به البيانات

يجب تغيير اسم  الجدول واسم الحقل على حسب مرفقك

 

الف شكر اخي Elsayed Bn Gemy والشكر موصول للاستاذ ابو خليل ابوخليل

جزاكم الله الف خير نعم هو هذا المطلوب