تم النشر منذ 2 Mar 2008 (معدل) السلام عليكم ورحمة اللههذا مثال بناء على طلب بعض الإخوة يبحث عن الملفات في أي قرص أو فولدر أو أي مكان في النظام ثم يعطي قائمة بالأتي :رابط الملف ( مكان وجوده )حجم الملفتاريخ أخر إنشاء الملفويمكن أن تفتح الملف من البرنامج بالضغط ضغطا مزدوجا على رابط الملفاسأل الله أن ينفع به كل من تصفحه وأن لايحرمنا أجره والسلام صور من البرنامج والمثال مرفقتم إعادة ضغط وإصلاح القاعدة ورفع الملف مجددا.. ekseerأخوكم : اكسيرالحياةEkseerFileInfo.rar تم تعديل 2 Mar 2008 بواسطه ekseer 2 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 2 Mar 2008 السلام عليكم ورحمة الله وبركاتهجزاك الله خير .. وجاري التجربة 1 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 2 Mar 2008 بارك الله بك اخي ابو عبداللهقمة الروعة والإتقانفجزاك الله كل خيرهناك ملاحظة صغيره جدابعد تحميل الملف من المنتدى وبعد فك الضغط عنه كان حجمه اكثر من 7 ميقاطبعا استغربت هذا الحجم الهائل على هذا الملف الصغير ولهذا قمت بعمل ضغط واصلاح Compact للملف فلم يتجاوز حجمه 196 كيلوبايت حاول تقوم بحذف الملف من المنتدى وتقوم بإعادة ضغطه واصلاحة ومن ثم رفعه بحجمه الصغير 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 2 Mar 2008 السلام عليكمأخي الفاضل/ أكسير الحياةبالفعل لقد أبدعت بلا مبالغة ولقد قمت بتجربته وبرنامجك في غاية الروعةسؤال: ماذا نستطيع أن نكتب في الحقل (بحث)؟؟ هل نكتب جزء من الأسم مثلا؟؟ او أسم الملف كاملا؟؟تحياااااتي لك 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 2 Mar 2008 اخي اكسير، تعودنا دائنا على الابداعات الكبيرة منك،، هذه المرة الكلام لن يصفها.. اكتفي بالقول جزاك الله كل خير.. فابداعاتك تثبت ان الاكسس نظام كامل متكامل وبه بحر واسع من الامكانيات..بعد تحميل الملف من المنتدى وبعد فك الضغط عنه كان حجمه اكثر من 7 ميقامشكورة اخت زهرة على الملاحظة، بالفعل الحجم تغير، ولكن صغر حجم الملف جعله كبيرا جدا في المقدار..همام 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 2 Mar 2008 (معدل) السلام عليكم ورحمة الله وبركاتهإثراءً للموضوع .. إذا سمحت لي .. عند تشغيل البرنامج أردت إختيار الدرايف فوجدت القرص المرن والسيرفر ..فإستغربت وجودها مع أنها ليست موجودة في جهازي .. وقد يكون عندي أكثر من قرص صلب غير C و D .. فحبيت إضافة إجراء لإكتشاف الدرايفات الموجودة في الجهاز عند فتح البرنامج .. ثم إضافتها لجدول الدرايفات .. وهذا هو الكودSub ShowDriveList()DoCmd.SetWarnings FalseDoCmd.RunSQL "DELETE FROM Driv" Dim fs, d, dc, s, n Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives For Each d In dc Select Case d.DriveType Case 0: t = "غير معروف" Case 1: t = "الفلاش ميموري" Case 2: t = "القرص المحلي" Case 3: t = "الشبكة" Case 4: t = "القرص المدمج" Case 5: t = "القرص المرن" End Select s = d & "\" n = d.DriveLetter & Space(2) & t DoCmd.RunSQL "INSERT INTO Driv VALUES ('" & s & "', '" & n & "')" Next DoCmd.SetWarnings TrueEnd Subملاحظة : برنامج الحماية لديك قد يظهر لك رسالة وهذا بسبب ان البرنامج يريد الوصول للدرايفات الموجودة في الجهاز .. لذا جرى التنويهويبقى برنامج رائع .. وأردت الإضافة .. لقناعتي أن هذا هو الهدف من هذا المنتدى الرائع .. الكل يدلي بدلوة حتى تكتمل الصورة .. وتتنوع الأفكار .. وبالتوفيقEkseer_FileInfo_up.zip تم تعديل 2 Mar 2008 بواسطه koao 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 2 Mar 2008 (معدل) السلام عليكمالأخ الكريم / koao شكرا لك الإضافة وإبدأ الملاحظات سأفحص إضافتك وأعلق عليها وفقك الله الأخت الفاضلة والمعلمة القديرة أم عهودالف شكر لك .. ملاحظتك في محلها وقد تم إصلاح المرفقوواضح أن الخلل لدي في برنامج الأكسس فقد أعياه التعب .. جزاك الله كل خيرالأخ sweety78شكرا لك ياغالي وفقك الله سؤال: ماذا نستطيع أن نكتب في الحقل (بحث)؟؟ هل نكتب جزء من الأسم مثلا؟؟ او أسم الملف كاملا؟؟تستطيع أن تكتب اسم الملف كاملا أو جزء منه أن قيدته بكلمة بحث فلن يظهر لك الا مايطابق معيار البحثالأخ استاذنا الكريم / همام شكرا لك ياغالي .. الله يعز مقدارك ويجزاك الجنة أرجو من الاخوة الذين سبق لهم تحميل المرفق أن يكرروا تحميل المرفق الجديد بعد إصلاح مشكلة الحجمأخوكم / اكسيرالحياة تم تعديل 2 Mar 2008 بواسطه ekseer 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 3 Mar 2008 استاذنا اكسير شكرا جزيلا لك برنامج رائع بارك الله فيك وعندي سؤال عند اتمام عمليه البحث وجدت البرنامج قام بتخزين كل مسارات البرامج التي تم البحث عنها في الجدولفهل سيحتفظ بها بشكل دائم ام كل مرة يتم البحث تمحي وشكرا 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 3 Mar 2008 بسم الله الرحمن الرحيمبارك الله فيكم اخواني 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 3 Mar 2008 (معدل) أخي الغالي أكسيرالسلام عليكم ورحمة الله وبركاتةبارك الله فيك فعلا مثال أكثر من رائعأخي الغالي Koaoاضافات أكثر من رائعةأخي الغالي أكسيرهل تقبل مني بعض الاضافات البسيطةوهي كالتاليظهور رسالة تحت زر أمر خروج If MsgBox("هل تريد الخروج من البرنامج", vbCritical + vbYesNo, "خروج") = vbNo Then Exit Sub Else: DoCmd.Quit End Ifاما بخصوص زر مشاهدة معلومات الملفاتتم وضع كودcmdopen.Enabled = Falseوذلك عند حدث تحميل النموذج لكي لا نستطيع مشاهدة الملفات بدون اجراء البحث عنها اولاًوبخصوص المربع الموجود علي نموذج مشاهدة تفاصيل الملفات والمسؤل عن عد السطور count ففي حالة حذف البيانات من قاعدة البيانات يختفي هذا المربعاما في حالة ظهور تفاصيل يبدأ المربع في عد count السطور الموجوده الحالية في النموذجMe.con.Visible = Falseواخيرا اتمني من ان اكون قد اضفت ولو شيء بسيط لمثالك الاكثر من رائعمرفق المثال بعد التعديلEkseer_FileInfo_up.rar تم تعديل 3 Mar 2008 بواسطه محمد فؤاد تركي 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 3 Mar 2008 السلام عليكم ورحمة الله وبركاتهبارك الله فيك اخي الكريممثال ممتاز جداً 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 3 Mar 2008 السلام عليكم ورحمة الله وبركاته منتهي الابداع برنامج جميل من شخص جميل لك مني كل الشكر والتقدير بالتوفيق 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 3 Mar 2008 (معدل) السلام عليكمأخي Justوعندي سؤال عند اتمام عمليه البحث وجدت البرنامج قام بتخزين كل مسارات البرامج التي تم البحث عنها في الجدولفهل سيحتفظ بها بشكل دائم ام كل مرة يتم البحث تمحي وشكراأن لم تحذف البيانات في كل مرة فستحفظ في القاعدة لكن بامكانك تجعل حدث الحذف مع كل اغلاق للنموذج أخي Sx1 وبارك فيكخبيرنا محمد فؤاد جميل جدا ماقمت بعمله وإضافته وفقك اللهأخي ظل السراب شكرا مرورك الكريمأخي هشام جزاك الله خير ياغالي شكرا لكEkseer تم تعديل 3 Mar 2008 بواسطه ekseer 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 9 Jun 2008 السلام عليكم ورحمة الله وبركاتهالف شكر على هذا البرنامج 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 11 Aug 2008 السلام عليكمالغريب في الامر أن الاخ m_ismael الذي طلب المثالعلى هذا الرابط http://www.arabteam2000-forum.com/index.ph...985&hl=لعبةطلع من جماعة حمّل واهربالى الله الشكوى 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 6 Sep 2008 (معدل) الغريب في الامر أن الاخ m_ismael الذي طلب المثالعلى هذا الرابطhttp://www.arabteam2000-forum.com/index.ph...;بةطلع من جماعة حمّل واهربالى الله الشكوىهههههههههههههههههههههههههههههههههه تم تعديل 6 Sep 2008 بواسطه hema212006 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 6 Sep 2008 اخي الغالي اكسيرتحية طيبة وبعد ،،،،،،،،،،،،،،،قمة في الابداع وفكر خارج الصندوقأهنئك على هذا الاختراقتقبل اجمل تحياتي 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 8 Sep 2008 اخي الغالي اكسيرتحية طيبة وبعد ،،،،،،،،،،،،،،،قمة في الابداع وفكر خارج الصندوقأهنئك على هذا الاختراقتقبل اجمل تحياتيشكرا خبيرنا 'kamal alnahhal' جزاك الله كل خير 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 21 Feb 2009 شكرأص للمجهود الجميل 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 22 Feb 2009 (معدل) جزاك الله خير استاذنا اكسير قمة في الابداع وما شاء الله الاضافات جميلة من الاساتذه جزاكم الله خيرانا رديت قبل ما افتح البرنامج بعد فتح البرنامج ماشاء الله الله يعطيك العافية وتغيرة فكرتي عن الاكسيس اكثر الفكرة السائده انه الاكسيس بس لقواعد البيانات لكن الظاهر انه نقدر انسوي به برامج اكثيره وعندي سؤال هل ممكن عن طريق الاكسيس عمل برامج مثل الميديا بلير او برنامج لنسخ الملفات مثل النيرو او تشغيل الاغاني هل هذي الشي من امكانيات الاكسيس تم تعديل 22 Feb 2009 بواسطه مشارف 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 27 Feb 2009 السلام عليكــم ورحمـة الله وبركاتــة ،،وتغيرة فكرتي عن الاكسيس اكثر الفكرة السائده انه الاكسيس بس لقواعد البيانات لكن الظاهر انه نقدر انسوي به برامج اكثيره وعندي سؤال هل ممكن عن طريق الاكسيس عمل برامج مثل الميديا بليرأخي الكريم مشارف .. نعم عن طريق الأكسيس يمكن أن تشغل الميديا بلير والقنوات الفضائيةأدخل لهذا الرابط وأنت تعرف كيف يتم ذلكأيضا عن طريق الأكسس يمكن أن تشفر الملفات مثال على ذلك حمل البرنامج التالي - مشفر الملفات بالأكسسايضا عن طريق الاكسس يمكن المقارنة بين صورتين بمنتهى الدقة مثال على ذلكمثال بالاكسس لمقارنة الصوروغير ذلك الكثير - هذه عينات فقط موفق وبارك الله فيك 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 27 Feb 2009 مشكور استاذي اكسير جزاك الله خير فعلا الاكسيس اقوى من ما كنا نعتقد والبرامج المرفقة غاية الروعة الابداع جزاك الله الف خير استاذي 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 27 Feb 2009 مشكور اخي اكسير الحياة على البرنامج الرائع والذييدل على اشياء كثيرة بارك الله فيك 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 29 Nov 2009 شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 30 Nov 2009 أخى الحبيب الأستاذ/ إكسيرمثال أكثر من رائع وفكرة عملية جداً ومفيدة فى أى تطبيق تضاف إليهبارك الله فيك وبارك لنا فى إبداعاتك الدائمةمحمد ندا 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
0 قام بالرد منذ 2 Dec 2009 بسم اله الرحمن الرحيم الاستاذ المبدع اكسير الحياه هذا من البرامج الموجوده على سطح المكتب والتي لااستغني عنها في البحث فبارك الله فيك وكتبها لك في ميزان حسناتكاختكم في الله روان 0 شارك هذا الرد رابط المشاركة شارك الرد من خلال المواقع ادناه
تم النشر منذ (معدل)
السلام عليكم ورحمة الله
هذا مثال بناء على طلب بعض الإخوة يبحث عن الملفات في أي قرص أو
فولدر أو أي مكان في النظام ثم يعطي قائمة بالأتي :
رابط الملف ( مكان وجوده )
حجم الملف
تاريخ أخر إنشاء الملف
ويمكن أن تفتح الملف من البرنامج بالضغط ضغطا مزدوجا على رابط الملف
اسأل الله أن ينفع به كل من تصفحه وأن لايحرمنا أجره والسلام
صور من البرنامج والمثال مرفق
تم إعادة ضغط وإصلاح القاعدة ورفع الملف مجددا.. ekseer
أخوكم : اكسيرالحياة
EkseerFileInfo.rar
تم تعديل بواسطه ekseerشارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه