هل يمكن حفظ مسار الملف فقط و اعادة تشغيله عند البحث

[ziadi hor]

السلام عليكم 

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

 

و اريد اضافة من طرفكم  لبحث عن طريق تصفية على حسب كل الحقول  مثلا على حسب السنة او النوع او البرنامج او المذيع ...الخ

حيث عندما اقوم بالبحث او استعلام اجد زر لتشغيل الملفات من المسار الموجود 

 

 

الاذاعةقبل الكود.accdb

تم تعديل مايو 28 بواسطه ziadi hor

[ziadi hor]

الموضوع المشابه لحفظ مسار ملف 

project Archive (2).accdb

[دروب مبرمج]

اضف المكتب التالية

و في اسفل محرر الأكود الصق الشفرة التالية

Public Function Choose_Folder() As String
On Error Resume Next
Dim FolderPath As String, Addfile As Object
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
Choose_Folder = .SelectedItems(1)
End With
End Function

و ضع ازرار بجوار مربع النص و الصق الكود التالي به

[مكان الحفظ] = Choose_Folder

و سيكون مربح الحوار بهذا الشكل فقط اختر الفولدر و اضغط موافق و سيتم تخزين موقع الفولدر في مربع النص

تفضل برنامجك بعد التعديل

و لتصفح الملفات و اختيار الملفات استخدم الكود التالي

Dim Addfile As Object
Set Addfile = Application.FileDialog(3)
With Addfile
    .AllowMultiSelect = True
    .InitialFileName = ""
    .Filters.Clear
    .Filters.Add "All Files", "*.*"
    If .Show = True Then
        Dim fPath As Variant
        For Each fPath In .SelectedItems
            Debug.Print fPath
        Next
    Else
        Exit Sub
    End If
End With

 

الاذاعةقبل الكود.accdb

[ziadi hor]

شكرا لك اخي على الرد ولكن قبل كان عندي هذا المشكل عند تشغيل الكود 

 

و الان لا يقرا الملف 

 

[دروب مبرمج]

عندك مشكلة في اللغة

غيير اعدادات اللغة في جهاز من خلال الاعدادات الاقليمية و امورك طيبة بإذن الله

اختر اللغة العربية - المملكة العربية السعودية و بتحصل الرموز الي في الرسالة ظهرت بشكلها الطبيعي
و اكيد و حتما راح يفيدنا اخونا @ابوخليل لأن هذي المشكلة او مره تمرني كذلك خبرتي بسيطة في الأوفيس و الاكسس بشكل خاص

[kkhalifa1960]

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

https://www.mediafire.com/file/4w7d18lxbi24vp5/Ziadi+Hor.rar/file

[ابوخليل]

1 ساعه مضت, دروب مبرمج said:

عندك مشكلة في اللغة

غيير اعدادات اللغة في جهاز من خلال الاعدادات الاقليمية و امورك طيبة بإذن الله

اختر اللغة العربية - المملكة العربية السعودية و بتحصل الرموز الي في الرسالة ظهرت بشكلها الطبيعي
و اكيد و حتما راح يفيدنا اخونا @ابوخليل لأن هذي المشكلة او مره تمرني كذلك خبرتي بسيطة في الأوفيس و الاكسس بشكل خاص

كما تفضلت مشكلته في تعيين اللغة ، اعتقد انه يستخدم الفرنسية

[kkhalifa1960]

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

https://www.mediafire.com/file/4w7d18lxbi24vp5/Ziadi+Hor.rar/file

[ziadi hor]

جاري التجريب شكرا كثيرا

 

[ziadi hor]

جاري التجريب شكرا كثيرا

 

 

7 ساعات مضت, kkhalifa1960 said:

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

https://www.mediafire.com/file/4w7d18lxbi24vp5/Ziadi+Hor.rar/file

بارك الله فيك هذا المطلوب  ساقوم ببعض التغيرات البسيطة ولكن في مربع البحث بعد اختيار المسار لا يقرأ الملف عند الضغط على play

[kkhalifa1960]

34 دقائق مضت, ziadi hor said:

ولكن في مربع البحث بعد اختيار المسار لا يقرأ الملف عند الضغط على play

لأن المسار تغير خذ كوبي من الأفلام المخزنة بالفولدر بجوار البرنامج  على سطح المكتب  وامسحهم من الفولدر  وامسح ادخالات الجدول ثم افتح نموذج ادخال جديد واملأ البيانات وعند اختيار الفيلم اختار من سطح المكتب أو أي فيدبو عندك ثم حفظ . وارجع للنموذج بحث . وكمل بيشتغل معاك.

ولا تنسى اذا كان هذا طلبك الضغط على أفضل اجابة .

[ziadi hor]

في 30‏/5‏/2023 at 10:39, kkhalifa1960 said:

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

https://www.mediafire.com/file/4w7d18lxbi24vp5/Ziadi+Hor.rar/file

احتاج الى التعديل في هذا الكود ليقرا الملف المختار من البحث وللي من المجلد myfilms

 

[kkhalifa1960]

تفضل أخي @ziadi hor أدخل البيانات والفيلم .......... بمجرد البحث يشتغل الفيلم .

Ziadi Hor-1.rar