Barna قام بنشر يوليو 28, 2018 مشاركة قام بنشر يوليو 28, 2018 السلام عليكم ورحمة الله وبركاته اسعد الله مساءكم جميعا ....... لدي قاعدة بيانات ..... يظهر فيها المسار الكامل للملف المختار ... أريد أن يستخرج اسم الملف بدون امتداد الملف في مربع النص path3 barna_1.accdb رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 29, 2018 مشاركة قام بنشر يوليو 29, 2018 Me.path3 = Left(fille, Len(fille) - 4) barna_1.mdb رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يوليو 29, 2018 الكاتب مشاركة قام بنشر يوليو 29, 2018 اشكرك أخي الفاضل ولكن عند استخدام ملف ذاي صيغة مثل accdb تختلف الامور ... رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يوليو 29, 2018 مشاركة قام بنشر يوليو 29, 2018 تفضل يستخرج اسم الملف على اي صيغة كانت Dim si As Object Set si = CreateObject("Scripting.FileSystemObject") me.text1 = si.GetBaseName(strPath) barna_2.mdb 1 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يوليو 29, 2018 الكاتب مشاركة قام بنشر يوليو 29, 2018 جزاك الله خيرا واحسن اليك.... هو المطلوب رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 29, 2018 مشاركة قام بنشر يوليو 29, 2018 وهذه مشاركة مع مشاركة أخي الفاضل @ابوخليل ضع هذا الكود Me.path3 = Left(fille, InStrRev(fille, ".") - 1) 1 رابط هذا التعليق شارك More sharing options...
Barna قام بنشر يوليو 29, 2018 الكاتب مشاركة قام بنشر يوليو 29, 2018 بارك الله فيك أخي @kanory هذا هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 29, 2018 مشاركة قام بنشر يوليو 29, 2018 الحمد لله رب العالمين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان