اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)
8 دقائق مضت, kanory said:

ارفق الملف الذي تعمل عليه الان ... عشان ما تصير تداخل في الملفات

تفضل @kanory

 

Deffi.rar

تم تعديل بواسطه فايز..
قام بنشر

ملف الاكسل متغير ليس الملف الذي عمل عليه الاستاذين جعفر وابو ابراهيم ...... انظر

 

1.png

هذا التنسيق الي اشتغلوا عليه ..... انظر 

 

1.png

  • Like 1
  • Thanks 2
قام بنشر
36 دقائق مضت, kanory said:

ملف الاكسل متغير ليس الملف الذي عمل عليه الاستاذين جعفر وابو ابراهيم ...... انظر

 

1.png

أريد هذا .. 

علما أن الملف الذي أرفقته لك هو نفس الملف الذي أرفقته للأخ جعفر .. 

قام بنشر

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

ابو عبدالرحمن

اتفضل هذي المشاركة من طرفي يمكن تفي بالغرض

برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb

  • Like 2
  • Thanks 1
قام بنشر
39 دقائق مضت, أبو إبراهيم الغامدي said:

أتسائل لماذا لم يجرب أحد أسلوبي 😟

العفو اخوي ابو ابراهيم ، فأنا من المتابعين لعملك دائما ، وبالتفصيل 🙂 

 

جعفر

قام بنشر
13 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا بكم..

أتسائل لماذا لم يجرب أحد أسلوبي 😟

شكر الله لك .. لكن مثل ما ذكر أخوي @kanory تظهر هذه الرسالة 

 

13 ساعات مضت, kanory said:

 

1.png

 

3 ساعات مضت, د.كاف يار said:

استيراد الملف الى ملف Mobile

الحقول ظهرت فارغة @د.كاف يار 

image.png.e5e858478cda58d01e468e5e8a044fa2.png

قام بنشر
5 دقائق مضت, ابو البشر said:

البرنامج شغال عندي

يمكن طريقة استخدامك خطأ

كل البرامج المرفقة في الموضوع تعمل وكل وحدة كود مختلف ... 

طريقة الاستخدام / اختيار الملف ثم زر استيراد ملف template . 

قام بنشر

استبدل الكود الموجود في زر الاستيراد بهذا الكود وجرب .....

    Dim TextLine
    Dim x() As String
    Dim TESTFILE As String
    Dim rst As DAO.Recordset
    
    Set rst = CurrentDb.OpenRecordset("Select * From Mobaile")
  
    'TESTFILE = Application.CurrentProject.Path & "\Template.csv"
     TESTFILE = Me.txtPath
    Open TESTFILE For Input As #1    ' Open file.
    Do While Not EOF(1)    ' Loop until end of file.
        Line Input #1, TextLine    ' Read line into variable.
        'Debug.Print TextLine    ' Print to the Immediate window.
  
        x = Split(TextLine, ",")
        
        If x(0) <> "IdentificationID" Then
        
            rst.AddNew
                rst!IdentificationID = x(0)
                rst!FullName = x(1)
                rst!MobileNumber = x(2)
                rst!ClassName = x(3)
            rst.Update

        End If
    
    Loop

    Close #1    ' Close file.
    
    rst.Close: Set rst = Nothing

 

  • Like 2
  • Thanks 1
قام بنشر
منذ ساعه, فايز.. said:

شكر الله لك .. لكن مثل ما ذكر أخوي @kanory تظهر هذه الرسالة 

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

سبق وأن أشرت أن ملف CSV المرفق في مثالك ليس مطابق لمقاييس هذا النوع من الملفات! بل هو ملف نصي مفرز بفاصلة منقوطة ومن المفترض أن تكون لاحقة الملف (txt.) وليس (csv.).ولهذا قمت بإعادة تنسيق الملف TEMPLATE.CSV قبل التطبيق عليه، كما أن حقول جدول MOBAILE لا تتطابق مع ملف TEMPLATE.CSV..

 

قام بنشر (معدل)

إخواني الفضلاء : @jjafferr @kanory @د.كاف يار @أبو إبراهيم الغامدي 

شكر الله لكم جهدكم معي وحرصكم على مساعدتي .. 

اخترت اجابة الأخ @jjafferrوبعد التدقيق في المشكلة وجدت أن البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده . 

 

سامحوني على تعبكم معي .. فلست خبير برمجة .. 

تم تعديل بواسطه فايز..
قام بنشر
2 دقائق مضت, فايز.. said:

إخواني الفضلاء : @jjafferr @kanory @د.كاف يار @أبو إبراهيم الغامدي 

شكر الله لكم جهدكم معي وحرصكم على مساعدتي .. 

اخترت اجابة الأخ @kanory وبعد التدقيق في المشكلة وجدت أن البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده . 

 

سامحوني على تعبكم معي .. فلست خبير برمجة .. 

فضلا غير افضل اجابة للاستاذ . @jjafferr 

لانه اول من طرح اجابة صحيحة .... بارك الله فيك

  • Like 3
  • Thanks 1
قام بنشر

هولولولولولو وي (انا ازغرد :wavetowel: )

الحمدلله 🙂

 

بس طلب الآن ، بما انك عرفت المشكلة ، فرجاء تجرب بقية البرامج ، لأننا جميعا بذلنا الوقت والجهد ، ونستحق ان نعرف اذا برامجنا اشتغلت (اعتبرها ضريبة وعليك دفعها 🙂 )

 

3 ساعات مضت, فايز.. said:

البرنامج يطلب توسيع عمود اسم الطالب في ملف اكسل template . قبل استيراده .

جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !!

 

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

 

جعفر

  • Haha 2
قام بنشر
22 دقائق مضت, jjafferr said:

هولولولولولو وي (انا ازغرد :wavetowel: )

الحمدلله 🙂

 

بس طلب الآن ، بما انك عرفت المشكلة ، فرجاء تجرب بقية البرامج ، لأننا جميعا بذلنا الوقت والجهد ، ونستحق ان نعرف اذا برامجنا اشتغلت (اعتبرها ضريبة وعليك دفعها 🙂 )

 

جميعنا جربنا برامجنا بالمرفقات اللي وضعتها انت ، واشتغلت ، فالظاهر انك تتكلم عن ملف آخر لم ترفقه !!

 

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

 

جعفر

اسعدكم الله جميعا .. وشكر الله لكم .. 

بالنسبة لملف الاكسل كنت استورد نفس اللي ارفقته لكم ولم اكن مخطئ .. 

وانا والله اني في حرج منكم .. 

 

قام بنشر (معدل)
منذ ساعه, jjafferr said:

وشكرا اخوي kanory على إحسانك وتفضلك 🙂 

جعفر

بارك الله فيك اخي جعفر

ليس فضلا ولا احسان ... بل انت صاحب الفضل بعد الله عز وجل ..... فعلا البرامج مثل التي طرحها الاساتذة @jjafferr  و @أبو إبراهيم الغامدي

و @د.كاف يار

فعلا تستحق التجربة لانها امثلة كل واحدة منها تحمل فكرة جميلة وجديرة بدراستها والاستفادة منها ... بارك الله في جهود الجميع ....

تم تعديل بواسطه kanory
  • Like 2
  • Thanks 1
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information