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

عمل جميل ورائع حقاً 

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