kanory

ربما هذا المطلوب .... 233.rar

ضع هذا الكود تحث حدث عند الضغط على الزر وامسح الماكروا الموجود DoCmd.OpenReport "kashef", acViewPreview, , "stclass Like '*" & Me.stclass & "*'"

جرب هذه ايضا ...... Intl: "00966" & Right([mopaul];9) طبعا mopaul هو الحقل الموجود فيه ارقام الجوال

Mobily: Replace([الجوال];0;966;1;1) ضع هذا في استعلام : طبعا الجوال هو الحقل الموجود فيه ارقام الجوالات بهذه الصورة .....

نعم ..... نفذ احدى الطريقتين التي ذكرتها لك ....

ممكن تعمل تحديث او تضيف حقل اخر يعدل الرقم بالمطلوب

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

فضلا غير افضل اجابة للاستاذ . @jjafferr لانه اول من طرح اجابة صحيحة .... بارك الله فيك

جرب المرفق .... New (1).accdb

استبدل الكود الموجود في زر الاستيراد بهذا الكود وجرب ..... 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

جربت المرفق يعطي هذه الاخطاء مع العلم جرب الكود السابق كان يعمل بشكل اكثر من ممتاز

مين قال ما جربنا بل عكس طريقة جديدة بالنسبة لي ..... بارك الله فيك أخي ابا ابراهيم

وهذه مشاركة تفضل ..... Deffi.rar

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

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

وهذا الملف يعؤض لك كل ملفات الاكسل بدون اختيار التمبلت برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb اليس الحديث حول هذا الزر الخاص باستيراد ملف اكسل به ارقام هواتف

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

غفر الله لك ولوالديك

تفضل -------->>>> account walid.accdb

تفضل أخي الكريم ..... Database12.accdb

ممكن توضح اكثر .... او ارفق مثال مبسط لما تريد !!!!

اسف اخي خالد لم ارى اجابتك .... بارك الله فيك

بالمناسبة الكود يقوم باستيراد اي ملف اكسل وباي عدد من الشيت .... وايضا يمكنه استيراد الشيت حتى بدون وجود الجدول هو يقوم بتكوين جدول بنفس اسم الشيت ... جرب على ملف غير القاعدة الاصلية واعلمنا بالنتيجة .....

لا ورطتك ولا شيئ انا متبرع بالزوجة والاشارة كافضل اجابة للعمدة @jjafferr

وهذا نفس الكود بدون استعلام أخي أستاذ @jjafferr ومنكم اقتبسنا الكود 1232.From_Excel_to_Access.accdb.zip