البحث عن اسم الملف وإرفاقه في مسار النموذج

[ابوآمنة]

المطلوب :البحث عن اسم الملف أو الصورة وإرفاقه مساره في النموذج .

مثلاً : لدي ملف من نوع PDF اسمه أو رقمه"2500" يقوم الكود بإرفاقه مساره في النموذج .

هذا الكود المستخدم أريد التعديل عليه حسب المطلوب :

     With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "اختر ملف"
        .ButtonName = "Select"
        .InitialFileName = treaNo
        .Filters.Clear
        .Filters.Add "كل الملفات", "*.*"
        If .Show = True Then
            Me.attach.Value = .SelectedItems(1)
        End If
    End With

وشكراً لكم ،،،،

تم تعديل نوفمبر 19, 2018 بواسطه saleh204

[ابوآمنة]

علماً الملف بجوار البرنامج في نفس المجلد

تم تعديل نوفمبر 19, 2018 بواسطه saleh204

[kaser906]

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

لو وضعت المثال لتتضح الصورة بشكل افضل

::بالتوفيق::

[ابوآمنة]

بالمرفق الملف

Datalink.rar

[kaser906]

الرابط يتم ارفاقه فعلا بمجرد اختيار الملف

ممكن تشرح شوي المطلوب

[ابوآمنة]

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

الرابط يتم ارفاقه فعلا بمجرد اختيار الملف

 ممكن تشرح شوي المطلوب

المطلوب 

بضغطة زر يقوم البرنامج بجلب الرابط دون فتح متصفح الملفات 

[kaser906]

😵اعتقد هذا يستدعي عمل محرك بحث في الاكسس

على كامل الاقراص في جهاز الحاسب !!!

يبقى سؤال مفتوح

لعل احد الاساتذة يلبي هذا الطلب

::بالتوفيق::

[ابوآمنة]

13 دقائق مضت, kaser906 said:

😵اعتقد هذا يستدعي عمل محرك بحث في الاكسس

على كامل الاقراص في جهاز الحاسب !!!

يبقى سؤال مفتوح

لعل احد الاساتذة يلبي هذا الطلب

::بالتوفيق::

عفواً لا يحتاج محرك بحث 

الملفات ستكون بجوار البرنامج جنباً لجنب . "\"

وشكراً اخي الغالي kaser906 لتفاعلك الرائع

[kaser906]

9 ساعات مضت, saleh204 said:

الملفات ستكون بجوار البرنامج جنباً لجنب . "\"

على اعتبار ان قاعدة الجداول ستكون منفصلة عن الواجهات

 استخدم هذا الكود وسيفيدك كثيرا عندما تعمل شبكة داخلية ( مشاركة )

بحيث لو انك استخدمت البرنامج من جهاز اخر واردت اظهار مسار الملف سيحدده لك بالضبط

Me.pate = Replace(DLookup("database", "msysobjects", "database is not null"), Right(DLookup("database", "msysobjects", "database is not null"), Len(DLookup("database", "msysobjects", "database is not null")) - InStrRev(DLookup("database", "msysobjects", "database is not null"), "\")), "" & [treaNo] & "")

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

::بالتوفيق::

Datalink1-906.rar

[ابوآمنة]

شكراً أخي الغالي هذا هو المطلوب

[kaser906]

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

شكراً أخي الغالي هذا هو المطلوب

الحمد لله