osama aljaafari

ما الخظأ في هذه الدلة Function GetImportFile() On Error Resume Next Dim mFile As String mFile = GetFile("Choose a file to import", "Excel Files (*.xls)", "*.xls") If Len(mFile) = 0 Then Exit Function Me.ImportFile = mFile GetSheetnames Exit Function GetImportFile_Error: MsgBox Err.Number & Err.Description Stop Resume Next End Function Function GetImportFile() On Error Resume Next Dim mFile As String mFile = GetFile("Choose a file to import", "Excel Files (*.xls)", "*.xls") If Len(mFile) = 0 Then Exit Function Me.ImportFile = mFile GetSheetnames Exit Function GetImportFile_Error: MsgBox Err.Number & Err.Description Stop Resume Next End Function

استاذي العزيز تم إضافة كلمة PtrSafe بعد كلمة Declare لوحض بعض الاكود لاتعمل ممكن المساعدة net.mdb

السلام عليكم اخواني الاعزاء فضلاً وليس امراءً المساعدة في الاتي :- وجودة على المنتدى العظيم برانامج اكسس لعملية استيراد ملفات الاكسل الى قواعد البيانات اكسس الذي قام بتصميه الاستاذ القدير /علاء الدين محمد النكلاوى جزاءه الله الف خير على هذا العمل الرئع حاولت ان استفيد منه في عملي واللاسف الشديد لم يعمل معي في جهازي بسبب اصدار الاوفس عندي 2016 64 بيت ممكن احد يساعدني في حل هذه المشكلة حتى يعمل معي بشكل طبعي . مرفق لكم الملف وشكرا excel_to_access.rar

عمل جميل ورائع حقاً يوجد ملاحظة زر أضافة صورة & زر تحديد نموذج البطاقة لا يعمل