احتاج طريقة لاعادة ربط المرفقات (PDF) بقاعدة البيانات بعد تغيير مكانها

[alaaldin2010]

السلام عليكم ورحمة الله وبركاته 

اقوم بعمل قاعدة بيانات للعمل الاحصائي وواجهتني مشكلة عند العمل على الشبكة لا استطيع تصفح ملفات PDF المرفقة بالبيانات كون الملف اذا تم ربه بالبيانات ياخذ مسار الجهاز الذي تم الارفاق منه فهل يوجد طريفة لحل هذه المشكلة ارجو منكم المساعدة جزاكم الله خيراً

هذا مرفق لما قمت به 

احصاء.zip

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

أخي الكريم جدول الإحصاء مرتبط بقاعدة البيانات الخلفية ,,

ثم حاول بهذه المحاولة السابقة اليوم في موضوع مشابه لموضوعك هنا ، باستخدام الدالة التالية في مديول

Public Sub UpdateImagePaths()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim oldPath As String
    Dim newBasePath As String
    Dim fileName As String
    
    newBasePath = CurrentProject.Path & "\Pictures\" ' هنا قم بتغيير اسم المجلد  ---->

    Set db = CurrentDb
    Set rst = db.OpenRecordset("Table1", dbOpenDynaset) ' هنا قم بتغيير اسم الجدول  ---->

    Do While Not rst.EOF
        oldPath = Nz(rst!Pic1, "") ' هنا قم بتغيير اسم الحقل الذي يحتوي المسار  ---->
        
        If oldPath <> "" Then
            fileName = Mid(oldPath, InStrRev(oldPath, "\") + 1)
            rst.Edit
            rst!Pic1 = newBasePath & fileName
            rst.Update
        End If
        
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

 

ويتم استدعائها في أول نموذج يعمل لديك لاستبدال المسارات حسب مسار قاعدة بياناتك .

يمكن تطوير الفكرة لتكون أكثر تطوراً من تكرار العملية في كل مرة يتم فيها تشغيل القاعدة وبدلاً من تحديث كامل السجلات ... إلخ .

تم تعديل يناير 31 بواسطه Foksh

[alaaldin2010]

جزاكم الله عنا خير 

اخي Foksh تكرماً لم استطع تطبيق الدالة بالشكل الصحيح .. ممكن التطبيق على المرفق من بعد اذنك 

وشكرا سلفاً 

وهل سوف يعمل مع ملفات الـ PDF

تم تعديل يناير 31 بواسطه alaaldin2010

[alaaldin2010]

1 ساعه مضت, Foksh said:

وعليكم السلام ورحمة الله وبركاته ..

أخي الكريم جدول الإحصاء مرتبط بقاعدة البيانات الخلفية ,,

ثم حاول بهذه المحاولة السابقة اليوم في موضوع مشابه لموضوعك هنا ، باستخدام الدالة التالية في مديول

Public Sub UpdateImagePaths()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim oldPath As String
    Dim newBasePath As String
    Dim fileName As String
    
    newBasePath = CurrentProject.Path & "\Pictures\" ' هنا قم بتغيير اسم المجلد  ---->

    Set db = CurrentDb
    Set rst = db.OpenRecordset("Table1", dbOpenDynaset) ' هنا قم بتغيير اسم الجدول  ---->

    Do While Not rst.EOF
        oldPath = Nz(rst!Pic1, "") ' هنا قم بتغيير اسم الحقل الذي يحتوي المسار  ---->
        
        If oldPath <> "" Then
            fileName = Mid(oldPath, InStrRev(oldPath, "\") + 1)
            rst.Edit
            rst!Pic1 = newBasePath & fileName
            rst.Update
        End If
        
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

 

ويتم استدعائها في أول نموذج يعمل لديك لاستبدال المسارات حسب مسار قاعدة بياناتك .

يمكن تطوير الفكرة لتكون أكثر تطوراً من تكرار العملية في كل مرة يتم فيها تشغيل القاعدة وبدلاً من تحديث كامل السجلات ... إلخ .

جزاكم الله عنا خير 

اخي Foksh تكرماً لم استطع تطبيق الدالة بالشكل الصحيح .. ممكن التطبيق على المرفق من بعد اذنك 

وشكرا سلفاً 

وهل سوف يعمل مع ملفات الـ PDF

[Foksh]

اخي الكريم ، المرفق الذي ارسلته لا يحتوي جدول 🥴 .

[alaaldin2010]

اعتذر يبدو اني لم ارفق الملف الصحيح 😅

هذا هو ان شاء الله 

وشكرا لك جزيل الشكل على رحابت صدرك 

احصاء.zip

[Foksh]

اخي الكريم ، يسعدني اختيارك لأفضل إجابة ، ولكني سأتحدث عن نفسي بأن اختيار أفضل إجابة يكون فقط عند تحصلك على الحل الشافي لمشكلتك ، لذا كرماً منك الغاء اختيارك لإجابتي حتى تكون منصفاً لنفسك أولا ، وللمشاركين ثانياً 🤗 .

 

وسأعمل على تنفيذ وتطبيق الحل الذي اقترحته حال وصولي للكمبيوتر.

[alaaldin2010]

42 دقائق مضت, Foksh said:

اخي الكريم ، يسعدني اختيارك لأفضل إجابة ، ولكني سأتحدث عن نفسي بأن اختيار أفضل إجابة يكون فقط عند تحصلك على الحل الشافي لمشكلتك ، لذا كرماً منك الغاء اختيارك لإجابتي حتى تكون منصفاً لنفسك أولا ، وللمشاركين ثانياً 🤗 .

 

وسأعمل على تنفيذ وتطبيق الحل الذي اقترحته حال وصولي للكمبيوتر.

جزاك الله عنا كل الخير 

مشكور وماجور من عند الله، بالفعل اجابتك هي الحل لمشكلتي حاولت مراراً باستعمال الدالة حتى نجح الأمر

اعذني فمازلت ببداية مشوار التعلم

 كل الامتان و التقدير لشخصكم الكريم و رحابة صدرك اخي الكريم 

شكراً من القلب

[Foksh]

8 دقائق مضت, alaaldin2010 said:

جزاك الله عنا كل الخير 

مشكور وماجور من عند الله، بالفعل اجابتك هي الحل لمشكلتي حاولت مراراً باستعمال الدالة حتى نجح الأمر

اعذني فمازلت ببداية مشوار التعلم

 كل الامتان و التقدير لشخصكم الكريم و رحابة صدرك اخي الكريم 

شكراً من القلب

ما شاء الله عليك ، أحسنت في تدبر أمرك 👏🏻

مبارك عليك نجاحك 🤗