حفظ مسارات المستندات فی جدول

[Shamerany]

اخوانی الاعزاء .. السلام علیکم

هل یوجد طریقە لحفظ مسارات المستندات فی جدول

[Foksh]

هذا مرفق بسيط

 

تفضل 

Try 2023.accdb

 

 

 

لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة 

تم تعديل نوفمبر 6, 2023 بواسطه Foksh

[Shamerany]

تسلم ایدیک اخ Foksh .... بس اللی احتاجە مسارات مجموعة مستندات دفعة واحدة ..

[Foksh]

1 دقيقه مضت, Shamerany said:

سلم ایدیک اخ Foksh .... بس اللی احتاجە مسارات مجموعة مستندات دفعة واحدة ..

يعني مثلاُ انت تريد ان تختار مستند من مجلد اسمه 1 ثم بنفس الخطوة تختار مستند آخر من مجلد آخر اسمه 2 ...... وهكذا ؟؟   

[Shamerany]

اخ Foksh .. ارید تحدید مجموعة مستندات بصیغ مختلفة و حفظ مساراتها فی جدول .فی نفس المجلد

 

تم تعديل نوفمبر 6, 2023 بواسطه Shamerany

[Foksh]

في 6‏/11‏/2023 at 13:38, Shamerany said:

اخ Foksh .. ارید تحدید مجموعة مستندات بصیغ مختلفة و حفظ مساراتها فی جدول .فی نفس المجلد

 

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

تم تعديل نوفمبر 8, 2023 بواسطه Foksh

[Moosak]

في 6‏/11‏/2023 at 14:38, Shamerany said:

ارید تحدید مجموعة مستندات بصیغ مختلفة و حفظ مساراتها فی جدول .فی نفس المجلد

هذه بعض التعديلات على ملف الأخ العزيز @Foksh 🙂 

تم إضافة جدول فرعي ليضم الملفات الخاصة بكل كتاب ..

وتم إضافته كنموذج فرعي لنموذج الكتاب :

وهذا التعديل على الكود :

Dim dbox As Office.FileDialog
Set dbox = Application.FileDialog(msoFileDialogFilePicker)
With dbox
    .title = "All File"
    .Filters.Clear
    .Filters.Add "All files", "*.*"
    .AllowMultiSelect = True
    If .Show = True Then
        Dim i As Variant
        For Each i In .SelectedItems
            CurrentDb.Execute "Insert into tbl_sub_A (Id_A , path ) values ( " & Me.id & " , '" & i & "');"
        Next
    End If
    'Imagepath = .SelectedItems(1)
End With
    Me.SF.Requery
    MsgBox "تم الإدراج"
err: 'DoCmd.CancelEvent
MsgBox err.Number & vbNewLine & err.Description
End Sub

 

Try 2023.accdb

[Foksh]

4 ساعات مضت, Moosak said:

هذه بعض التعديلات على ملف الأخ العزيز @Foksh 🙂 

تم إضافة جدول فرعي ليضم الملفات الخاصة بكل كتاب ..

وتم إضافته كنموذج فرعي لنموذج الكتاب :

وهذا التعديل على الكود :

Dim dbox As Office.FileDialog
Set dbox = Application.FileDialog(msoFileDialogFilePicker)
With dbox
    .title = "All File"
    .Filters.Clear
    .Filters.Add "All files", "*.*"
    .AllowMultiSelect = True
    If .Show = True Then
        Dim i As Variant
        For Each i In .SelectedItems
            CurrentDb.Execute "Insert into tbl_sub_A (Id_A , path ) values ( " & Me.id & " , '" & i & "');"
        Next
    End If
    'Imagepath = .SelectedItems(1)
End With
    Me.SF.Requery
    MsgBox "تم الإدراج"
err: 'DoCmd.CancelEvent
MsgBox err.Number & vbNewLine & err.Description
End Sub

 

Try 2023.accdb 760 kB · 2 downloads

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

الا انني فعلاً لم اتمكن من استكمال الفكرة

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

ومن باب الطمع في كرمك ؛ وانت من الاساتذة الكبار في منتدانا ، كيف لي ان اجعل عرض المسارات داخل List Box ؟؟؟

Try 2023 (1).accdb

تم تعديل نوفمبر 9, 2023 بواسطه Foksh

[Moosak]

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

كيف لي ان اجعل عرض المسارات داخل List Box ؟؟؟

لا تحتاج لنموذج فرعي ضع الليست بوكس مباشرة 🙂 

تفضل :

 

Try 2023 (1).accdb

[Foksh]

53 دقائق مضت, Moosak said:

لا تحتاج لنموذج فرعي ضع الليست بوكس مباشرة 🙂 

أشكرك جداً أستاذي الكريم ,,

لكن للأسف يعطي هذا الخطأ ،  أولاً

ثانياً تخيل من قد ما عقلي اليوم تشتت بسبب العمل ( تاهت الأفكار وانقلبت الأخبار في رأسي ) حتى نسيت كيف أحل هذه النقطة وهي عند الإضافة يضيف أسماء الملفات أو بالمسارات الى الليست بوكس 

 

الله وكيلك اليوم جاني جهاز iPhone 12 pro به مشكلة في الواي فاي ( ولأن البورد مكون من طبقتين ) اضطررت لفحص ما يقارب 110 نقاط تقوم بالتوصيل ما بين البوردين لمعرفة أين يكون الفصل وتتبع المسار 

[Moosak]

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

للأسف يعطي هذا الخطأ

كان السبب أنه لابد من حفظ السجل الرئيسي قبل تحميل الملفات 🙂 

جرب نزل نفس المرفق الآن ..

[Foksh]

3 دقائق مضت, Moosak said:

كان السبب أنه لابد من حفظ السجل الرئيسي قبل تحميل الملفات 🙂 

جرب نزل نفس المرفق الآن ..

بوركت يا أستاذ موسى ، والمحبة من الله زادت لإن اسمك على اسم والدي رحمه الله 

[Moosak]

15 ساعات مضت, Foksh said:

بوركت يا أستاذ موسى ، والمحبة من الله زادت لإن اسمك على اسم والدي رحمه الله 

احبك الله الذي احببتني فيه اخي العزيز @Foksh 😊🌷