ٌRayan Zakho قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 2021 السلام عليكم ورحمته الله وبركاته اخواني ارجو المساعدة في ادراج زر ( لادراج و فتح وحذف ) الارتباط التشعبي لكل سجل و لكم اجمل التحية لكل من في هذا المنتدى المتميز تحياتي لكم Microsoft Access قاعدة بيانات جديد.rarFetching info...
عمر ضاحى قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 2021 في 25/7/2021 at 16:49, ٌRayan Zakho said: السلام عليكم ورحمته الله وبركاته اخواني ارجو المساعدة في ادراج زر ( لادراج و فتح وحذف ) الارتباط التشعبي لكل سجل و لكم اجمل التحية لكل من في هذا المنتدى المتميز تحياتي لكم Microsoft Access قاعدة بيانات جديد.rar 19.13 kB · 9 downloads Expand مش فاهم ايه نوع الملف الذى تريد فتحه وحذفه صور ام قاعدة بيانات ام ماذا ؟ 1
د.كاف يار قام بنشر يوليو 27, 2021 قام بنشر يوليو 27, 2021 في 25/7/2021 at 22:43, عمر ضاحى said: مش فاهم ايه نوع الملف الذى تريد فتحه وحذفه صور ام قاعدة بيانات ام ماذا ؟ Expand بعد اذن اخي عمر اتفضل التعديل حذف و اضافة و انشاء نسخة سيتم انشاء مجلد بجوار قاعدة البيانات لحفظ النسخة Microsoft Access قاعدة بيانات جديد.accdbFetching info... 1 1
ٌRayan Zakho قام بنشر يوليو 28, 2021 الكاتب قام بنشر يوليو 28, 2021 في 25/7/2021 at 22:43, عمر ضاحى said: مش فاهم ايه نوع الملف الذى تريد فتحه وحذفه صور ام قاعدة بيانات ام ماذا ؟ Expand شكرا على الرد اخي العزيز قصدي هو اريد من خلال الزر ان اردرج ملف فولدر وليس ملف بنوع من الامدادات في 27/7/2021 at 01:28, د.كاف يار said: بعد اذن اخي عمر اتفضل التعديل حذف و اضافة و انشاء نسخة سيتم انشاء مجلد بجوار قاعدة البيانات لحفظ النسخة Microsoft Access قاعدة بيانات جديد.accdb 500 kB · 10 downloads Expand اشكرك اخي العزيز تقريبا هو المطلوب لكن اريد ادراج مجلد باكمله الى السجل وليس ملف تحياتي لك
د.كاف يار قام بنشر يوليو 28, 2021 قام بنشر يوليو 28, 2021 تفضل التعديل Microsoft Access قاعدة بيانات جديد.zipFetching info... 1
ٌRayan Zakho قام بنشر أغسطس 2, 2021 الكاتب قام بنشر أغسطس 2, 2021 في 28/7/2021 at 13:04, د.كاف يار said: تفضل التعديل Microsoft Access قاعدة بيانات جديد.zip 35.14 kB · 4 downloads Expand اخی د.كاف یار انا اسف اولا علی التاخیر وذلك لاني كنت بالدوام وعدم وجود نت لدي ثانيا. الطريقة صحيحة لكن لايحفظ الملف بداخل السجل و لا يوجد زر لفتح المجلد واشكرك من اعماق قلبي
د.كاف يار قام بنشر أغسطس 2, 2021 قام بنشر أغسطس 2, 2021 في 2/8/2021 at 10:20, ٌRayan Zakho said: لكن لايحفظ الملف بداخل السجل Expand انت تريد الاستدامة لقاعدة البيانات ارفاق المستندات داخل القاعدة يجعل القاعدة عرضة للتلف في 2/8/2021 at 10:20, ٌRayan Zakho said: و لا يوجد زر لفتح المجلد Expand اتوقع انك فتحت الملف الخطأ قم بتحميل أخر تعديل ستجدل كل ما تحتاجه اضافة و حذف و عرض الملفات جرب التعديل المرفق لعرض الملف اضغط على اسم الملف في القائمة و على ازرار فتح الملف Microsoft Access قاعدة بيانات جديد.zipFetching info... 1
ٌRayan Zakho قام بنشر أغسطس 2, 2021 الكاتب قام بنشر أغسطس 2, 2021 في 2/8/2021 at 10:31, د.كاف يار said: انت تريد الاستدامة لقاعدة البيانات ارفاق المستندات داخل القاعدة يجعل القاعدة عرضة للتلف اتوقع انك فتحت الملف الخطأ قم بتحميل أخر تعديل ستجدل كل ما تحتاجه اضافة و حذف و عرض الملفات جرب التعديل المرفق لعرض الملف اضغط على اسم الملف في القائمة و على ازرار فتح الملف Microsoft Access قاعدة بيانات جديد.zip 57.81 kB · 0 downloads Expand اولا اشكرك على الرد السريع اخي العزيز ثانيا انا قصدي كله فقط اريد اضافة زر لادراج ارتباط تشعبي يعني اريد اضافة مجلد لكل موظف والمجلد يحتوي على ملفات منوعة والمقصد اريدها على شكل زر لاضافة مجلد خارجي لكل سجل و زر لفتح المجلد وشكرا
د.كاف يار قام بنشر أغسطس 2, 2021 قام بنشر أغسطس 2, 2021 في 2/8/2021 at 10:39, ٌRayan Zakho said: اريدها على شكل زر لاضافة مجلد خارجي لكل سجل و زر لفتح المجلد Expand جميع ما تريد من الأكواد لعمل هذه المهام موجود داخل البرنامج لكن تفضل هذا يعرض المجلد 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:\\") 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.