موضوع متجدد : أدوات مساعدة للتصميم مع الشرح

[Amr Ashraf]

السلام عليكم 

 

اساتذتى الافاضل سنبدأ باذن الله موضوع الادوات المساعدة فى التصميم والموضوع مفتوح للجميع لأن الهدف من الموضوع اثراء المنتدى والفائدة تعم على الجميع

نبدأ باسم الله بالاداة الأكثر من رائعة Find And Replace طبعا من المعروف ان خاصية البحث والاستبدال موجودة داخل الفاجوال بيسك والأكسس ولكن مزاياها ضعيفة جدا ولذلك تم تصميم هذه الاداة للبحث العميق داخل كل الكائنات الموجودة بقاعدة البيانات سواء نماذج او تقارير او استعلامات الخ...

الشرح بالصور مضغوط فى المرفقات وذلك حتى لا تطول المشاركة بدون داعى بالنسبة للأداة مرفوعة على موقع دروب بوكس وذلك لكبر الحجم بالنسبة للمرفقات الرابط

Replace.rar

عتذر ان كان هناك سوء تنسيق ويرجع السبب لأن الموضوع تم تجهيزه فى عجالة بالنسبة للأداوت القادمة الشرح هيكون افضل ان شاء الله ..

يتبع بأداة أخرى فى القريب ان شاء الله  .... دمتم فى أمان الله 

لشرح.rar

تم تعديل مايو 11, 2017 بواسطه Amr Ashraf

[Amr Ashraf]

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

[jjafferr]

وعليكم السلام

 

نعم هو من البرامج القوية في هذا المجال ، ولكن للعلم ، فإن الرنامج تجريبي وبعد مدة تنتهي صلاحيته ولا يعمل ، للعلم فقط

 

جعفر

[Amr Ashraf]

4 دقائق مضت, jjafferr said:

وعليكم السلام

 

نعم هو من البرامج القوية في هذا المجال ، ولكن للعلم ، فإن الرنامج تجريبي وبعد مدة تنتهي صلاحيته ولا يعمل ، للعلم فقط

 

جعفر

للاسف صحيح بس قلت ممكن احد من الخبراء يفيدنا فى هذه النقطة للتحايل عليها ولو فيه حد يقدر اكيد انت 

[jjafferr]

اولا: شروط المنتدى لا تسمح بهذا ،

ثانيا: البرنامج الذي استفيد منه ، اشتريه ، وخصوصا اذا استعماله خلال الفترة التجريبية اثبت جدارته

 

جعفر

[Amr Ashraf]

1 دقيقه مضت, jjafferr said:

اولا: شروط المنتدى لا تسمح بهذا ،

ثانيا: البرنامج الذي استفيد منه ، اشتريه ، وخصوصا اذا استعماله خلال الفترة التجريبية اثبت جدارته

 

جعفر

هههههه اعتذر منك اصل الانترنت ملوث ولذلك احنا ماشيين على مبدأ  ليه نشترى لما ممكن نجيبه ببلاش 

[jjafferr]

8 دقائق مضت, Amr Ashraf said:

هههههه اعتذر منك اصل الانترنت ملوث ولذلك احنا ماشيين على مبدأ  ليه نشترى لما ممكن نجيبه ببلاش 

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

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

 

جعفر

[Amr Ashraf]

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

الأداة فى المرفقات باصدارها 32 و 64

احتسب الأجر على الله .... دمتم فى أمان الله 

 

 

 

RBTray-4_3.zip

تم تعديل مايو 12, 2017 بواسطه Amr Ashraf
اضافة مرفق

[Amr Ashraf]

مفيش حد تانى بيضيف حاجة للموضوع ولا بيتفاعل معاه 

[Shivan Rekany]

2 ساعات مضت, Amr Ashraf said:

مفيش حد تانى بيضيف حاجة للموضوع ولا بيتفاعل معاه 

يا جماعة يا استاذنا @jjafferr @ابو خليل @رمهان @صالح حمادي @أبو عبدالله الحلوانى @محمد ايمن @محمد سلامة @sandanet @ابا جودى  @Elsayed Bn Gemy @عبد الفتاح كيرة @أبو إبراهيم الغامدي @أمير2008  وأي شخص اللي ما ذكرت اسمه ونسيته

اطلب منكم جميعا

لا تطمعوا علينا 

اعطينا ما عندكم

الله يجزيكم خيرا

اخوكم الصغير 

شفان ريكاني

تم تعديل مايو 12, 2017 بواسطه Shivan Rekany

[أبو إبراهيم الغامدي]

أعتذر عن المشاركة في هذا الموضوع!

[Shivan Rekany]

9 دقائق مضت, أبو إبراهيم الغامدي said:

أعتذر عن المشاركة في هذا الموضوع!

عذركم معكم ما عندنا  حق عليكم استاذي الحبيب

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

لعل وعسى يكون هناك واحد يريد ان يشارك في هذا الموضوع

تقبلوا تحياتي

وانا اعتذر منكم

[jjafferr]

2 ساعات مضت, Amr Ashraf said:

مفيش حد تانى بيضيف حاجة للموضوع ولا بيتفاعل معاه 

 

منذ ساعه, Shivan Rekany said:

يا جماعة يا استاذنا

اطلب منكم جميعا

اعطينا ما عندكم

السلام عليكم

الموضوع كان فكرة أخونا عمرو ، وإحنا شجعناه في الموضوع ، ولازلنا

 

جعفر

[Shivan Rekany]

11 دقائق مضت, jjafferr said:

الموضوع كان فكرة أخونا عمرو ، وإحنا شجعناه في الموضوع ، ولازلنا

نريد شيء من مكتبتك يا سيدي لو سمحت 
مشاركتك في اطلاع الرأي على فتح هذا الموضوع حبيته كتير
لكن تعرف انا واحد طماع واريد ان اعرف واتعلم واحصل منكم ولو كلمة او حرف واحد 

تقبل تحياتي

[sandanet]

اخواني الأعزاء انا من اشد المعارضين لأستخدام برامج خارجية مع الأكسس لأني مقتنع بأنه لايوجد شيء لايمكن عمله بالأكسس خصوصا اذا كان الموضوع تحت ايداي محترفه فسترى العجب العجاب هههههههه لكن لامشكلة من استخدام اي اداة بشكل مؤقت الى ان يتم ايجاد البديل لها في الاكسس

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

ولازلت متابع الموضوع اخونا Amr بصمت فسر على بركة الله .. نطمع في المزيد من الادوات السحرية

 

لتصغير البرنامج بجوار الساعة.zip

[Shivan Rekany]

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

في الحقيقة لا اذكر من قام بوضعها لكني ادعو الله ان يجزيه عنا خير الجزاء 

هو لخبيرنا استاذ @أبو إبراهيم الغامدي اللي اعتذر ان يشارك في هذا الموضوع
وانت قد قمت بمشاركة بدل منه 
شكرا لكما

[عبد الفتاح كيرة]

وفقكم الله

[Amr Ashraf]

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

لسلام عليكم

الموضوع كان فكرة أخونا عمرو ، وإحنا شجعناه في الموضوع ، ولازلنا

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

8 ساعات مضت, sandanet said:

ولازلت متابع الموضوع اخونا Amr بصمت فسر على بركة الله .. نطمع في المزيد من الادوات السحرية

تصغير البرنامج بجوار الساعة.zip

مشكور على اضافتك اخى الكريم واكيد لازم تساعدنا اظنك  من اهل الخبرة  

[ابو جودي]

اولا انا طالب من طلاب العلم فى هذا الصرح الشامخ 
ثانيا جزاكم الله خيرا على شعوركم الطيب

واسمحوا لى ان اول مشاركة لى تكون 

المرفق الاتى 
- اخفاء اطار الاكسس
-تغيير ايقونة الاكسس وتصغير القاعدة على شريط المهام 

بايد عربية وبدون اى مشاكل ان شاء الله

اولا اخص بالشكر كل من 

1- الاستاذ @أبا عمر  اخفاء اطار الاكسس والذى يعمل مع اكسس 2000-2002-2003-2007-2010-2013-2016 وقمت بتجربته دون اى مشاكل مطلقا
2- الاستاذ Naser Masarwa  صاحب فكرة تصغير قاعدة البيانات

 

الغاء اطار اكسس + تغيير ايقونة الاكسس.rar

[Amr Ashraf]

جزاك الله خير على مشاركتك القيمة اخى الكريم وفى انتظار المزيد 

42 دقائق مضت, ابا جودى said:

اولا انا طالب من طلاب العلم فى هذا الصرح الشامخ 
ثانيا جزاكم الله خيرا على شعوركم الطيب
 

 

تم تعديل مايو 13, 2017 بواسطه Amr Ashraf

[Amr Ashraf]

أحب اضيف رابط مشاركة ((مكتبة الأكواد))

 

[أمير2008]

11 ساعات مضت, sandanet said:

 لامشكلة من استخدام اي اداة بشكل مؤقت الى ان يتم ايجاد البديل لها في الاكسس

تمام مستر أوس . وعلى سبيل المثال البحث عن كلمة داخل أكواد النماذج والتقارير والدوال يمكن عمله بكود Vba

Public Sub findWord(ByVal SearchWord As String)
    
    Dim objComponent As Object
    Dim strMessage As String
    Dim strModuleList As String
    strModuleList = vbNullString
    For Each objComponent In Application.VBE.ActiveVBProject.VBComponents
        If objComponent.CodeModule.Find(SearchWord, 1, 1, -1, -1) = True Then
            strModuleList = strModuleList & "; " & objComponent.Name
        End If
    Next objComponent
    strMessage = "Text '" & SearchWord & "' found in "
    If Len(strModuleList) > 0 Then
       ' strMessage = strMessage & "modules: " & Mid(strModuleList, 3)
         strMessage = strMessage & "modules: " & strModuleList
    Else
        strMessage = strMessage & "no modules"
    End If
   End Sub

 

[Amr Ashraf]

بسم الله الرحمن الرحيم 

نتابع من حيث توقفنا بأداة قوية و رائعة مجانية وغير محدودة بفترة معينة وكمان الSource Code متاح يعنى مفتوحة المصدر الأداة اسمها

v-tools  نشوف صورة الأداة بعد فك الضغط وتثبيتها ستظهر فى Add-ins أو الاضافات

1-الاعدادات مثل اللغة ومعلومات عن الاداة الخ...

2-معلومات فنية عن قاعدة البيانات مثلا تاريخ الانشاء واخر تعديل وهكذا

3-من المعروف ان الاكسس به الكثير من الصور والايقونات هذا الاختيار يمكنك من تطبيق هذه الصور على عناصر التحكم تابعوا الصورة

4- فى هذا الاختيار قوالب جاهزة لخصائص النماذج مثلا انا بعمل كل النماذج فى قاعدة معينة ممنوع الاضافات والحذف والتعديل سكرول بار عمودى وافقى مثلا وهكذا  بهذا الاختيار ممكن تحفظ هذه الاعدادات فى قالب من تسميتك وتستدعيه لتطبيقه على اى نموذج جديد بدون الحاجة الى عمل الاعدادات مجددا كل مرة عند تصميم نماذج جديدة تابعو الصورة

5- ولا اعرف ده بتاع ايه ولا فاهم منه حاجة 

6- من اقوى خصائص هذه الاداة هى مكتبة الكائنات مثلا انا فى كل قاعدة بيانات بصممها بحتاج اطبق عليها نظام صلاحيات المستخدمين اللى بيتكون من عدد من النماذج و الاستعلامات والوحدات النمطية الى اخره بدلا من استيرادها من قاعدة اخرى بعملية بسيطة جدا ممكن تحفظ الكائنات المفضلة فى مكتبتك الخاصة وتعملها ادراج فى اى قاعدة بيانات جديدة بدون الحاجة الى استيرادها او كتابة اكوادها مرة أخرى وفيها ايضا خاصية حفظ الاكواد تدرج كود مفضل وتستدعيه فى اى قاعدة جديدة

تابع الصورة

 

7-خاصية البحث العميق فى النماذج والاستعلامات وهكذا ولكنها ليست بقوة الاداة الاولى فى الموضوع Find And Replace

8-بعد تصميمك لنموذج معين بألوان محددة يمكن ان تتغير الالوان بتغيير بعض اعدادات الثيمات فى هذا الخيار يثبت الالوان والتصميم ليظل ثابتا حتى لو تم تغيير الثيمات والألوان

9-من اقوى خصائص الاداة وهذه الخاصية العمل على SQL فى الخاصية دى بتتعامل مع جمل SQL فى الاستعلامات من حيث البحث والاستبدال وتغيير جملة معينة وتطبيقها على كافة الاستعلامات مرة واحدة بدون الحاجة الى فتح كل استعلام على حدى وايضا خاصية البحث داخل جمل الاستعلامات وعرض عدد النتائج الموجودة فى القاعدة والتعامل معها ايضا دفعة واحدة تابع الصورة

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

بالنسبة للأداة تعمل على كافة الاصدارات وده الرابط الرسمى للاداة و اصداراتها المختلفة

ttp://www.skrol29.com/us/vtools.php

دمتم فى أمان الله 

 

تم تعديل مايو 13, 2017 بواسطه Amr Ashraf

[sandanet]

31 دقائق مضت, أمير2008 said:

تمام مستر أوس . وعلى سبيل المثال البحث عن كلمة داخل أكواد النماذج والتقارير والدوال يمكن عمله بكود Vba

Public Sub findWord(ByVal SearchWord As String)
    
    Dim objComponent As Object
    Dim strMessage As String
    Dim strModuleList As String
    strModuleList = vbNullString
    For Each objComponent In Application.VBE.ActiveVBProject.VBComponents
        If objComponent.CodeModule.Find(SearchWord, 1, 1, -1, -1) = True Then
            strModuleList = strModuleList & "; " & objComponent.Name
        End If
    Next objComponent
    strMessage = "Text '" & SearchWord & "' found in "
    If Len(strModuleList) > 0 Then
       ' strMessage = strMessage & "modules: " & Mid(strModuleList, 3)
         strMessage = strMessage & "modules: " & strModuleList
    Else
        strMessage = strMessage & "no modules"
    End If
   End Sub

 

ماشاء الله بدأت تظهر لنا ابداعاتك المعهودة من قبل استاذ أمير .. لكن ممكن تعطينا مثال تطبيقي لمعرفة كيفية عمل الكود اكون لك شاكراً 

[Amr Ashraf]

 

24 دقائق مضت, أمير2008 said:

تمام مستر أوس . وعلى سبيل المثال البحث عن كلمة داخل أكواد النماذج والتقارير والدوال يمكن عمله بكود Vba

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