استيراد واضافة ملف CSV الى جدول معيد

[saffar]

السلام عليكم

هل ممكن اصافة ملف CSV الى جدول معين في عن طريق رز في الفورم

لان الاستيراد العادي فيه خطوات كثيرة للمستخدم

[kanory]

ممكن مثال مصغر ... 

[saffar]

مثال هذا الملف يقبل استيراد xls لكن لا يتعرف على csv

ثانية المفروض يضيف البيانات على الجدول الرئيسي append 

ImportExcel.rar

[ابو جودي]

52 دقائق مضت, saffar said:

مثال هذا الملف يقبل استيراد xls لكن لا يتعرف على csv

ثانية المفروض يضيف البيانات على الجدول الرئيسي append 

ImportExcel.rar 22.36 kB · 3 downloads

للعلم فى  مشكلة فى ملفات الاكسل تبعك

استبدل الكود على زر الامر الخاص بالإستيرد بالكود الاتى

On Error GoTo Err_MyProc

    Dim strTable As String
    Dim FSO As New FileSystemObject
    
    If Nz(Me.txtFileName, "") = "" Then
        MsgBox "Please select a file!"
        Exit Sub
    End If
    
    If FSO.FileExists(Nz(Me.txtFileName, "")) Then
        
        strTable = "tblJudy" 'Table Name
        DoCmd.DeleteObject acTable, strTable
        DoCmd.TransferText acImportDelim, , strTable, FSO.GetFileName(Me.txtFileName), True
        MsgBox "Transfer Complete!"

    Else
        MsgBox "File not found!"
    End If

Err_MyProc:
        'Error handler here.
        Resume Next

 

[ابو جودي]

اتفضل المرفق وجرب الاكسل تبعى انا 

اسم الملف :  Template2.csv

ImportExcel 2.zip

[saffar]

ملفك شغال لكنك استبدلت الجدول الموجود في المرفقات

لان الملفات المراد استيرادها نفس الشي

وهي عبارة عن ملفات حضور Teams 

لاستخراج غياب الطلبة

[ابو جودي]

2 دقائق مضت, saffar said:

ملفك شغال لكنك استبدلت الجدول الموجود في المرفقات

لان الملفات المراد استيرادها نفس الشي

وهي عبارة عن ملفات حضور Teams 

لاستخراج غياب الطلبة

غير كما تشاء الملف والكود ملك يمينك 

هل تمت الاجابة على سؤالك على الوجه الذى تريده ؟!

[saffar]

قصدي انك انت استبدلت الجدول 

[ابو جودي]

35 دقائق مضت, saffar said:

قصدي انك انت استبدلت الجدول 

حضرتك استبدل فى الكود الجزء ده 

tblJudy

بالاسم اللى انت عاوزه

انظر اسم الجدول فى الكود ممكن تغيره من مكان التظليل بالصورة

لو مش عارف قول لى اسم الجدول زى ما انت عاوزه وانا اعمله لحضرتك

 

[عفرنس]

39 دقائق مضت, ابا جودى said:

حضرتك استبدل فى الكود الجزء ده 

tblJudy

بالاسم اللى انت عاوزه

انظر اسم الجدول فى الكود ممكن تغيره من مكان التظليل بالصورة

لو مش عارف قول لى اسم الجدول زى ما انت عاوزه وانا اعمله لحضرتك

 

أخي @ابا جودى 

** الملف الذي ارفقه الأخ السائل مكون من عدة أعمدة . 

** الأمر الآخر ماذا لو كان عنده أكثر من ملف هل يظل يغير اسم الجدول في كل مرة في الكود ؟؟ 

 

[ابو جودي]

1 دقيقه مضت, فايز.. said:

أخي @ابا جودى 

** الملف الذي ارفقه الأخ السائل مكون من عدة أعمدة . 

** الأمر الآخر ماذا لو كان عنده أكثر من ملف هل يظل يغير اسم الجدول في كل مرة في الكود ؟؟ 

 

لا كل مره بيتم حذف الجدول اولا 

DoCmd.DeleteObject acTable, strTable

ثم الاستيراد من خلال الكود 

DoCmd.TransferText acImportDelim, , strTable, FSO.GetFileName(Me.txtFileName), True

 

[saffar]

اشكر سعة صدرك اخي ابا جودي

ليست المشكلة في تغيير اسم الجدول في الكود 

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

اسم الجدول في قاعدو البيانات meetingAttendanceList

 

اسماء الملفات قد تكون 

meetingAttendanceList1

meetingAttendanceList2

 

[ابو جودي]

منذ ساعه, saffar said:

اشكر سعة صدرك اخي ابا جودي

ليست المشكلة في تغيير اسم الجدول في الكود 

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

اسم الجدول في قاعدو البيانات meetingAttendanceList

 

اسماء الملفات قد تكون 

meetingAttendanceList1

meetingAttendanceList2

 

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

جرب المرفق الاتى ان شاء الله يكون تمام

 

ImportExcel 3.zip

[saffar]

شكرا لك ابا جودي سلمت يداك

[jjafferr]

السلام عليكم 🙂

 

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

تقدر بالفأرة تختار اكثر من ملف ، او عند طريق الضغط على الزر shift او ctrl اثناء النقر على اسماء الملفات 🙂

 

جعفر

ImportExcel.accdb

[saffar]

سلمت يداكم 

لكن ظهرت عندي مشكلة في التقرير وهي عند الاستعلام على تاريخ تظهر تواريخ مختلفه اعتقد لان حقل Timestamp في الملف هو text  وليس بتاريخ

 

[jjafferr]

وبدون لمس البرنامج ، وبعد استيراد البيانات الى الجدول meetingAttendanceList ،

نعمل استعلام ليكون مصدر بيانات للتقرير ، في هذا الاستعلام نفكك الحقل TimesStamp الى حقل تاريخ D1 وحقل وقت T1 (يعني حقول تاريخ وليس حقول نص) ، وبعدها يمكنك عمل ما تشاء في جمعهما 🙂

.

.

جعفر

 

1279.ImportExcel.accdb.zip

[saffar]

الى الان لم استطع حل المشكلة 

 

[ابو جودي]

مشكلة شنو انت طلبت استيراد من ملف الى  csv  الى جدول 

اعتقد ان العملية تمت بنجاح 

اذا بدك شئ تانى فضلا وكرما افتح موضوع جديد 

كل موضوع يخص سؤال واحد فقط 

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

[jjafferr]

السلام عليكم 🙂

 

19 دقائق مضت, ابا جودى said:

اعتقد ان العملية تمت بنجاح

كلامك صحيح ، وبقي لما يستورد الملف ، تنسيق timestamp عبارة عن نص ، ويحتاج الى تنسيق اخير 🙂

 

27 دقائق مضت, saffar said:

الى الان لم استطع حل المشكلة 

تقريبا انتهيت من الطلب ، فاعطني بعض الوقت 🙂

 

جعفر

[ابو جودي]

36 دقائق مضت, jjafferr said:

السلام عليكم 🙂

 

كلامك صحيح ، وبقي لما يستورد الملف ، تنسيق timestamp عبارة عن نص ، ويحتاج الى تنسيق اخير 🙂

 

تقريبا انتهيت من الطلب ، فاعطني بعض الوقت 🙂

 

جعفر

الموضوع سهل جدا

انشاء جدول بالتنسيقات التى يريدها واستعلام الحاق من الجدول  timestamp الى الجدول الاخر !

ولكن يا حبذا لو فتح اخونا الجبيب موضوع جديد لسؤاله الجديد ان لم يستطع التنفيذ  

فقط من باب المصلحة العامة

[jjafferr]

13 دقائق مضت, ابا جودى said:

ولكن يا حبذا لو فتح اخونا الجبيب موضوع جديد لسؤاله الجديد

 

تمام بشمهندس 🙂

 

تم فصل الموضوع الى :

 

جعفر