مساعدة في انشاء زر ادراج ارتباط تشعيبي

[ٌRayan Zakho]

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

اخواني ارجو المساعدة في ادراج زر ( لادراج و فتح وحذف ) الارتباط التشعبي لكل سجل

و لكم اجمل التحية لكل من في هذا المنتدى المتميز

تحياتي لكم

Microsoft Access قاعدة بيانات جديد.rar

[عمر ضاحى]

5 ساعات مضت, ٌRayan Zakho said:

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

اخواني ارجو المساعدة في ادراج زر ( لادراج و فتح وحذف ) الارتباط التشعبي لكل سجل

و لكم اجمل التحية لكل من في هذا المنتدى المتميز

تحياتي لكم

Microsoft Access قاعدة بيانات جديد.rar 19.13 kB · 9 downloads

مش فاهم 

ايه نوع الملف الذى تريد فتحه وحذفه

صور ام قاعدة بيانات ام ماذا ؟

[د.كاف يار]

في ٢٦‏/٧‏/٢٠٢١ at 06:43, عمر ضاحى said:

مش فاهم 

ايه نوع الملف الذى تريد فتحه وحذفه

صور ام قاعدة بيانات ام ماذا ؟

بعد اذن اخي عمر

اتفضل التعديل 

حذف و اضافة و انشاء نسخة

سيتم انشاء مجلد بجوار قاعدة البيانات لحفظ النسخة 

 

Microsoft Access قاعدة بيانات جديد.accdb

[ٌRayan Zakho]

في ٢٦‏/٧‏/٢٠٢١ at 01:43, عمر ضاحى said:

مش فاهم 

ايه نوع الملف الذى تريد فتحه وحذفه

صور ام قاعدة بيانات ام ماذا ؟

شكرا على الرد اخي العزيز قصدي هو اريد من خلال الزر ان اردرج ملف فولدر وليس ملف بنوع من الامدادات

 

في ٢٧‏/٧‏/٢٠٢١ at 04:28, د.كاف يار said:

بعد اذن اخي عمر

اتفضل التعديل 

حذف و اضافة و انشاء نسخة

سيتم انشاء مجلد بجوار قاعدة البيانات لحفظ النسخة 

 

Microsoft Access قاعدة بيانات جديد.accdb 500 kB · 10 downloads

اشكرك اخي العزيز تقريبا هو المطلوب لكن اريد ادراج مجلد باكمله الى السجل وليس ملف

تحياتي لك

[د.كاف يار]

تفضل التعديل

 

Microsoft Access قاعدة بيانات جديد.zip

[ٌRayan Zakho]

في ٢٨‏/٧‏/٢٠٢١ at 16:04, د.كاف يار said:

تفضل التعديل

 

Microsoft Access قاعدة بيانات جديد.zip 35.14 kB · 4 downloads

اخی د.كاف یار انا اسف اولا علی التاخیر وذلك لاني كنت بالدوام وعدم وجود نت لدي

ثانيا. الطريقة صحيحة لكن لايحفظ الملف بداخل السجل و لا يوجد زر لفتح المجلد

واشكرك من اعماق قلبي

[د.كاف يار]

3 دقائق مضت, ٌRayan Zakho said:

لكن لايحفظ الملف بداخل السجل

انت تريد الاستدامة لقاعدة البيانات

ارفاق المستندات داخل القاعدة يجعل القاعدة عرضة للتلف

4 دقائق مضت, ٌRayan Zakho said:

و لا يوجد زر لفتح المجلد

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

 

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

لعرض الملف اضغط على اسم الملف في القائمة و على ازرار فتح الملف

Microsoft Access قاعدة بيانات جديد.zip

[ٌRayan Zakho]

4 دقائق مضت, د.كاف يار said:

انت تريد الاستدامة لقاعدة البيانات

ارفاق المستندات داخل القاعدة يجعل القاعدة عرضة للتلف

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

 

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

لعرض الملف اضغط على اسم الملف في القائمة و على ازرار فتح الملف

Microsoft Access قاعدة بيانات جديد.zip 57.81 kB · 0 downloads

اولا اشكرك على الرد السريع اخي العزيز

ثانيا انا قصدي كله فقط اريد اضافة زر لادراج ارتباط تشعبي يعني اريد اضافة مجلد لكل موظف والمجلد يحتوي على ملفات منوعة

والمقصد اريدها على شكل زر لاضافة مجلد خارجي لكل سجل و زر لفتح المجلد

وشكرا

[د.كاف يار]

6 دقائق مضت, ٌRayan Zakho said:

اريدها على شكل زر لاضافة مجلد خارجي لكل سجل و زر لفتح المجلد

جميع ما تريد من الأكواد لعمل هذه المهام موجود داخل البرنامج

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

Function BrowseForFolder(Optional OpenAt As Variant) As Variant
    Dim ShellApp As Object
    Set ShellApp = CreateObject("Shell.Application"). _
    BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
    On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
    On Error GoTo 0
    Set ShellApp = Nothing
    Select Case Mid(BrowseForFolder, 2, 1)
    Case Is = ":"
        If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
    Case Is = "\"
        If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
    Case Else
        GoTo Invalid
    End Select
    Exit Function
Invalid:
    BrowseForFolder = False
End Function

الاستدعاء و حفظ المسار داخل الجدول في حقل النموذج

 [TextBox1] = BrowseForFolder("c:\\")