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

[بلال اليامين]

السلام عليكم

استاذ بارك الله فيك

استاذ طريقة تغيير اسماء النماذج في الازرار

[jjafferr]

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

منذ ساعه, بلال اليامين said:

طريقة تغيير اسماء النماذج في الازرار

 

انا اعطيتك هذا الكود ،

منذ ساعه, jjafferr said:

Sub DocmdMnu11()
    Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net"
    DoCmd.Close acForm, Me.Name
End Sub

 

 

جعفر

[Moosak]

رووووووووووووووعة ما شاء الله عليك يا @ابو جودي  😊

أقترح عليك تخلي أسم الفورم كمتغير مع اسم الدالة  هكذا :

Sub DocmdMnu(FrmName As String)
    Me.frmSub.SourceObject = FrmName
End Sub
'___________________________________________________

Sub GoDo(ByRef ActiveControlName As String)
    Select Case Nz(ActiveControl.Name, "")
        Case Is = "cmdMnu1": DocmdMnu ("FormName")
        Case Is = "cmdMnu2": DocmdMnu ("FormName")
        Case Is = "cmdMnu3": DocmdMnu ("FormName")
        Case Is = "cmdMnu4": DocmdMnu ("FormName")
        Case Is = "cmdMnu5": DocmdMnu ("FormName")
        Case Is = "cmdMnu6": DocmdMnu ("FormName")
        Case Is = "cmdMnu7": DocmdMnu ("FormName")
        Case Is = "cmdMnu8": DocmdMnu ("FormName")
        Case Is = "cmdMnu9": DocmdMnu ("FormName")
        Case Is = "cmdMnu10": DocmdMnu ("FormName")
        Case Is = "cmdMnu11": DocmdMnu11
    End Select
End Sub

 

[ابو جودي]

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

في الواقع العمل اكثر مما كنت اتوقع 🙂

هذه الكلمات بمثابة وسام بالنسبة لى استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr 

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

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

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

شكرا على لمساتكم التى هى دائما بمثابة النكهة التى لا غنى عنها 

[ابو جودي]

4 ساعات مضت, Moosak said:

رووووووووووووووعة ما شاء الله عليك يا @ابو جودي  😊

أقترح عليك تخلي أسم الفورم كمتغير مع اسم الدالة  هكذا :

Sub DocmdMnu(FrmName As String)
    Me.frmSub.SourceObject = FrmName
End Sub
'___________________________________________________

Sub GoDo(ByRef ActiveControlName As String)
    Select Case Nz(ActiveControl.Name, "")
        Case Is = "cmdMnu1": DocmdMnu ("FormName")
        Case Is = "cmdMnu2": DocmdMnu ("FormName")
        Case Is = "cmdMnu3": DocmdMnu ("FormName")
        Case Is = "cmdMnu4": DocmdMnu ("FormName")
        Case Is = "cmdMnu5": DocmdMnu ("FormName")
        Case Is = "cmdMnu6": DocmdMnu ("FormName")
        Case Is = "cmdMnu7": DocmdMnu ("FormName")
        Case Is = "cmdMnu8": DocmdMnu ("FormName")
        Case Is = "cmdMnu9": DocmdMnu ("FormName")
        Case Is = "cmdMnu10": DocmdMnu ("FormName")
        Case Is = "cmdMnu11": DocmdMnu11
    End Select
End Sub

 

ايه ده دا الجمال ده

• التحدى الجديد لهذا الموضوع هو نقل كل الاكواد الى وحدة نمطية ليسهل استدعاؤها بكل بساطة الى النموذج بعدد قليل جدا جدا من اسطر الاكواد

 

 

 

تم تعديل ديسمبر 30, 2021 بواسطه ابو جودي

[Moosak]

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

تم دمج طريقتكم مع طريقة استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

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

كتبته بسرعة بدون تفاصيل ، وهذا كان المقصود ( روتين واحد لكل السورس أوبجكت ) :

Sub DocmdMnu(FrmName As String)
    Me.frmSub.SourceObject = FrmName
End Sub

Sub GoDo(ByRef ActiveControlName As String)
    Select Case Nz(ActiveControl.Name, "")
        Case Is = "cmdMnu1": DocmdMnu ("frmEmployees")
        Case Is = "cmdMnu2": DocmdMnu ("Table.tblStudents")
        Case Is = "cmdMnu3": DocmdMnu ("Table.tblAdministrativeforms")
        Case Is = "cmdMnu4": DocmdMnu ("Table.tblStudentOffenses")
        Case Is = "cmdMnu5": DocmdMnu ("Table.tblStatements")
        Case Is = "cmdMnu6": DocmdMnu ("Table.tblRecords")
        Case Is = "cmdMnu7": DocmdMnu ("Table.tblDataimport")
        Case Is = "cmdMnu8": DocmdMnu ("Table.tblCertifications")
        Case Is = "cmdMnu9": DocmdMnu ("Table.tblPhoneBook")
        Case Is = "cmdMnu10":
                        Me.frmSub.SourceObject = "" '"Table.tblSystemConstants"
                        DoCmd.OpenForm "frmEmployees"
        Case Is = "cmdMnu11":
                       Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net"
                       DoCmd.Close acForm, Me.Name
    End Select
End Sub

تم التعديل في المرفق التالي :

إبداعات أبا جودي.rar

تم تعديل ديسمبر 30, 2021 بواسطه Moosak

[ابو جودي]

هههههههههههه انا شكلى نايم ومش فاهم انا باقول ايه ولا باعمل ايه 

تسلم ايدك

تم تعديل ديسمبر 30, 2021 بواسطه ابو جودي

[ابو جودي]

بص انا تعبان ومش قادر اعمل حاجة فعلا مش قادر اركز خالص ومرهق جدا

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

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

[jjafferr]

35 دقائق مضت, Moosak said:

روتين واحد لكل السورس أوبجكت

لن يخدمك هذا ، اذا نقلت الكود الى وجدة نمطية ،

وفي نظري ، طريقة اباجودي اكثر مرونة ، بحيث كل زر له حدث خاص به ، فيكون الكود واصح ونظيف 🙂

 

جعفر

[Moosak]

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

لن يخدمك هذا ، اذا نقلت الكود الى وجدة نمطية ،

وفي نظري ، طريقة اباجودي اكثر مرونة ، بحيث كل زر له حدث خاص به ، فيكون الكود واصح ونظيف 🙂

 

جعفر

تشكر أستاذ جعفر .. 🙂  🌹

ولكن سؤال يراودني .. ليش ننقل الكود في وحدة نمطية ما دام أنه يخدم نموذج واحد ؟ 

[jjafferr]

الان, Moosak said:

ولكن سؤال يراودني .. ليش ننقل الكود في وحدة نمطية ما دام أنه يخدم نموذج واحد ؟ 

وليش يكون يخدم نموذج واحد ،

ممكن استخدمه لأكثر من نموذج في البرنامج ، ودائما فيه مجال للتعديل والاضافات وتجنب بعض الاخطاء ، فالافضل وجود الكود في مكان واحد ، وحل واحد يخدم جميع النماذج 🙂

 

طبعا نقطتك في محلها كذلك ، بحيث ان لكل نموذج اكواده والسلام 🙂

 

جعفر

[jjafferr]

ومحاولة اخرى للأخ موسى 🙂

 

 

جعفر

[Moosak]

1 ساعه مضت, jjafferr said:

ومحاولة اخرى للأخ موسى 🙂

 

 

جعفر

أيش أسوي مديرنا .. هم يفتحوا مواضيح جديدة 😅

[ابو جودي]

فكرة جديدة 

تدرج الوان ولا اروع

سهولة ومرونة فى تغيير تدرج الالون وبدون برق ورعد فاهم قصدى طبعا يا استاذ @Moosak 

وبصراحة مش فاضى للتطوير اكثر فى الوقت الحالى

ShowHideSideBareRight (4).zip

تم تعديل يناير 2, 2022 بواسطه ابو جودي

[ابو جودي]

15 دقائق مضت, Moosak said:

أيش أسوي مديرنا .. هم يفتحوا مواضيح جديدة 😅

والله المدير زهق منك وهيسوى لك استدعاء ولى امر 🤭

[jjafferr]

31 دقائق مضت, ابو جودي said:

تدرج الوان ولا اروع

[ابو جودي]

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

انتم الاجمل والاروع استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr 

[Moosak]

10 ساعات مضت, ابو جودي said:

فكرة جديدة 

تدرج الوان ولا اروع

سهولة ومرونة فى تغيير تدرج الالون وبدون برق ورعد فاهم قصدى طبعا يا استاذ @Moosak 

وبصراحة مش فاضى للتطوير اكثر فى الوقت الحالى

ShowHideSideBareRight (4).zip 225.88 kB · 37 downloads

لله درك يا رجل .. 😃

أنَّا لك كل هذا العلم 😁 بسم الله ما شاء الله عليك ..

حاولت أفصص وأفكك الدوال والأكواد وما فقهت منها إلا قليلا 😅

[jjafferr]

40 دقائق مضت, Moosak said:

حاولت أفصص وأفكك الدوال والأكواد وما فقهت منها إلا قليلا 😅

في الواقع هناك دوال لا يجب ان تفصفص (مثل المكتبات وامور اخرى لها علاقة بنظام الكمبيوتر او نظام الاكسس) وانما تُستعمل كما هي 🙂

 

جعفر

[Moosak]

منذ ساعه, jjafferr said:

في الواقع هناك دوال لا يجب ان تفصفص (مثل المكتبات وامور اخرى لها علاقة بنظام الكمبيوتر او نظام الاكسس) وانما تُستعمل كما هي 🙂

 عملية التفصيص هذه هي عبارة عن محاولة للتعلم وفهم الفكرة .. 😅

ولكن وكما يبدوا أن الطريق أمامي لايزال في أوله 😄

[ابو جودي]

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

أنَّا لك كل هذا العلم 😁 بسم الله ما شاء الله عليك ..

 

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

تم تعديل يناير 3, 2022 بواسطه ابو جودي

[ابو نزار]

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

[mebest2020]

On 12/14/2021 at 1:52 PM, Moosak said:

ولا زالت الإبداعات مستمرة .. 🙂

وهذا التصميم الثالث : القوائم المطوية

وكالعادة ملف التطبيق  🙂

صفحة رئيسية مطورة - التصميم الثالث.accdb 600 kB · 171 downloads

 

فکرة جمیلة

 

[walid7799]

يظهر هذ الخطأ عند تشعيل الفورم كيف حله

[hany helmy]

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

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

html & css /// responsive Gui

..........السؤال عن كيفيه دمج جمال واناقه لغات الويب مع الاكسيس

وقد رايت بالفعل مشروع(فريم وورك) للربط والدمج بينهم ولكن لافتقارى للخبره والمعرفه لم استطيع التعامل مع هذا المشروع ف ارجو من اساتذتى  التعديل والتبسيط منه للوصول لاسهل الطرق لاستفاده من جماال واناقه لغات الويب واحترافيه الاكسيس معاا

سوف تكون أداه قويه جداا للاكسيس لكل من يحاول التقليل من شأن البرنامج االعريق والاحترافى ميكروسوفت اكسيس

رابط المشروع ع اليوتيوب

https://www.youtube.com/channel/UCKv_xDrv8-uFFDks9HVWm3g