تغيير اسم زر امر فتح

[عفرنس]

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

أردت عمل نفس الطريقة في برنامج آخر لكن عند الضغط على هذا المجلد ليفتح لي الفولدر أعطاني الخطأ التالي : 

 

كيف أستطيع حل المشكلة . 

‏‏Library - نسخة.rar

[Khalid Jnb]

السلام عليكم

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

 

استبدل سطرالكود
Me.barna = ""
بالكود التالي
Me.txtPath = ""

تحياتي

تم تعديل فبراير 29, 2020 بواسطه خالد سيسكو

[عفرنس]

منذ ساعه, خالد سيسكو said:

السلام عليكم

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

 

استبدل سطرالكود
Me.barna = ""
بالكود التالي
Me.txtPath = ""

تحياتي

شكر الله لك أخي الكريم ..

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

ما الذي يمكن تغييره في كود زر أمر الاستيراد ؟ 

طبعا الهدف من هذا العمل : هوأنني أريد استيراد ملف الاكسل من أي مجلد يمكن أن يكون فيه .. 

الأمر الموجود حاليا يتطلب أن يكون ملف اكسل والبرنامج معا في مجلد واحد .. 

 

 

Private Sub command4_Click()

Dim ImportFileName As String

ImportFileName = CurrentProject.Path & "\Teacher" & ".xls"

DoCmd.TransferSpreadsheet acImport, 8, "Teacher", ImportFileName, True

End Sub

 

تم تعديل فبراير 29, 2020 بواسطه emam1424

[kanory]

هل اسم ملف الاكسل هو نفس الاسم الموجود في الصورة .......

 

[عفرنس]

12 دقائق مضت, kanory said:

هل اسم ملف الاكسل هو نفس الاسم الموجود في الصورة .......

 

نعم نفس الاسم 

تم تعديل فبراير 29, 2020 بواسطه emam1424

[Khalid Jnb]

السلام عليكم 

اخي الكريم emam1424

بعد اذن الاخ  الاستاذ kanory

تفضل الملف بعد التعديل

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

تحياتي

ملاحظه / اذا تكرر التسلسل عندك  ستظهر لك رسالة  لكونه مفتاح اساسي

Library - نسخة.rar

تم تعديل فبراير 29, 2020 بواسطه خالد سيسكو

[عفرنس]

15 دقائق مضت, خالد سيسكو said:

السلام عليكم 

اخي الكريم emam1424

بعد اذن الاخ  الاستاذ kanory

تفضل الملف بعد التعديل

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

تحياتي

ملاحظه / اذا تكرر التسلسل عندك  ستظهر لك رسالة  لكونه مفتاح اساسي

Library - نسخة.rar 479.43 kB · 0 تنزيلات

لعلك لم تفهمني أخي خالد .. 

أن الا أريد الملف ضمن مسار البرنامج . 

اريد الملف في التنزيلات مثلا والبرنامج على سطح المكتب .. 

 

[kanory]

ممكن تزودنا بملف الاكسل

[عفرنس]

22 دقائق مضت, kanory said:

ممكن تزودنا بملف الاكسل

تفضل ..  واجعله لي بنفس اسم الملف

 

Teacher.xls

تم تعديل فبراير 29, 2020 بواسطه emam1424

[عفرنس]

ربما ارسلت لك الملف الخطأ ..

هذا هو الملف المطلوب 

Teacher.xls

تم تعديل فبراير 29, 2020 بواسطه emam1424

[Barna]

بعد اذن المشاركين احبابي الكرام ......

 

تفضل ملفك بعد التعديل ....

 

‏‏Library - نسخة.rar

[عفرنس]

6 ساعات مضت, Barna said:

بعد اذن المشاركين احبابي الكرام ......

 

تفضل ملفك بعد التعديل ....

 

‏‏Library - نسخة.rar 475.21 kB · 9 تنزيلات

شكر الله لك أخيBarna  .. 

تم المطلوب بنجاح 

تم تعديل مارس 1, 2020 بواسطه emam1424
تعديل