سحب اسماء ملفات من فولدر الى جدول تلقائى بقاعدة البيانات

[figo82eg]

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

ما اريده هو عند تخزين اى ملف بهذا الفولدر يتم نسخ اسمه تلقائى فى جدول داخل هذه القاعدة.

فهل يوجد امكانية لذلك بالاكسس

[ناقل]

تفضل 

في ١٨‏/٤‏/٢٠٢١ at 01:50, husamwahab said:

تفضل التعديل استاذي العزيز

وانا بخدمتك

 

emp4.rar 187.09 kB · 22 downloads

 

[figo82eg]

اشكرك اخى الكريم على اهتمامك وردك وارفق اليك ما اريده حيث ان مشكلة الملف السابق انه لابد ان يكون الجدول به ارقام الملفات سابقة والمشكلة لدى ان الفولدر بها الاف من ملف واريده سحب اسمائها تلقائى داخل الجدول

emp5.rar

[ناقل]

هل هذا ماتريد ...

 

ناقل.mdb

[figo82eg]

هو فعلاً ما اريده ولكن أسماء الملفات تظهر بإمتدادها فهل يوجد امكانية للتنفيذ دون ظهور امتداد الملفات الموجودة بالفولدر بمعنى إسم الملف فقط دون إمتداده

[ناقل]

32 دقائق مضت, figo82eg said:

هو فعلاً ما اريده ولكن أسماء الملفات تظهر بإمتدادها فهل يوجد امكانية للتنفيذ دون ظهور امتداد الملفات الموجودة بالفولدر بمعنى إسم الملف فقط دون إمتداده

طيب غير الفانكشن الى عندك بهذا الكود ....

On Error GoTo Error_Handler
 
Dim MyFile  As String
Dim db      As Database
Dim sSQL    As String
 
Set db = CurrentDb()
 
If Right(strPath, 1) <> "" Then strPath = strPath & ""
If strFilter = "" Then strFilter = "*"
 
MyFile = Dir$(strPath & "*." & strFilter)
Do While MyFile <> ""
    myfile1 = Left([MyFile], InStrRev([MyFile], ".") - 1)
    sSQL = "INSERT INTO [BASIC_DATE] (crn) VALUES(""" & myfile1 & """)"
    db.Execute sSQL, dbFailOnError
    MyFile = Dir$
Loop
 
Error_Handler_Exit:
    On Error Resume Next
    Set db = Nothing
    Exit Function
 
Error_Handler:
    MsgBox "The following error has occured" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: ImportDirListing" & vbCrLf & _
           "Error Description: " & Err.Description, vbCritical, _
           "An Error has Occured!"
    Resume Error_Handler_Exit

 

[figo82eg]

بارك الله فيك اخى الكريم وجعله فى ميزان حسناتك هو المطلوب على أكمل وجه

ولكن واجهتنى مشكلة عند تطبيق الحل على البرنامج الذى أعمل عليه تظهر هذه الرسالة

[ناقل]

11 ساعات مضت, figo82eg said:

بارك الله فيك اخى الكريم وجعله فى ميزان حسناتك هو المطلوب على أكمل وجه

ولكن واجهتنى مشكلة عند تطبيق الحل على البرنامج الذى أعمل عليه تظهر هذه الرسالة

ادخل على المكتبات وطبق الصورة ....