اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

هل بالإمكان عمل فانكشن ... مهمته تمكين زر أو اظهاره لجميع النماذج

 

مثلا في الصفحة الرئيسية للمدير عنصر ( نعم/لا )

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

حاولت اكتب فانكشن من ابداعي  :biggrin: بس ماش

Public Function enableOrnot(naddory As Form)

If naddory.tamkeen = True Then
naddory.nader.Enable = True
Else
naddory.nader.Enable = False
End If

End Function

tamkeen = عنصر ( نعم/لا ) في النموذج الرئيسي

nader = اسم الزر في النماذج

 

أكيد الفكره واضحه ... والابداع بيكون ابداعكم

 

قام بنشر

اخي الكريم.. اذا كان الهدف من ذلك صلاحيات المستخدمين

فهنا امثلة كثيرة في المنتدي.. ابحث عنها بكلمة صلاحيات المستخدمين

تحياتي

  • Like 1
قام بنشر

هات المرفق وبه الجدول الذي يجدد المستخدم ونوع صلاحيته

وكذلك كم نموذج للتطبيق

والعملية سهلة جدا وبدون حاجة فنكشن

مبدئيا هذه الفكرة

عند التحميل لكل نموذج اعمل dlookup  لاختبار نوع الصلاحية وحسب رقم الدخول ثم الناتج سيقرر اخفاء او ظهور الزر

 

بالتوفيق

  • Like 2
قام بنشر

ما اعتقد الصلاحية لها دور في الفكره

مثلا ابغاهم يرحلون التمام  يوميا قبل الساعه التاسعه صباحا ... وعند التاسعه سيتم اقفال الزر ... والمتأخر  ياااا ويله من حنيني  :wink2: ...

او المناوبات الاسبوعيه .. كل يوم  أحد .. فقط واعطيهم وقت وبعدها تقفيل

واي تعديل يتم عن طريق الإداره فقط .

 

والسبب في التقفيل ... بعد ما يتم الترحيل نتفاجأ بلخبطه عكس ما تمت طباعته في اليوم السابق ... ويتهمون البرنامج بالزهايمر  :angry:

واكتشفت بدون اثبات بأنهم يغيرون في اي وقت بدون علم الاداره وحسب هواهم ...

 

 

  • Like 1
قام بنشر

اخي ابو نادر

طلبك في اول مشاركة اختلف عن اخر مشاركة

فهل ياترى تعيد المطلوب بالمختصر المفيد

وحبذا مرفق وبه المطلوب

تحياتي

  • Like 1
قام بنشر

السلام عليكم

المعذره اخوي رمهان للتأخر في الرد ...

اخر مشاركة وصف لسبب الفكره الي خلتني اكتب اول مشاركه

شوف نموذج ال  main في هذا الملف

ابغى اذا التمكين نعم  كل الأزرار في النماذج تتمكن ... والعكس

 

فما أدري هل الفكره قابلة للتطبيق ... عشان كذا فكرت في فانكشن

 

وسلامتك

cccc.rar

قام بنشر

الاخ ابو نادر

شوف المرفق وبه طريقتين

1.  في النموذج 1 وحدث عند التحميل وباستخراج القيمة المخزنة في الجدول

2. في النموذج 2 وحدث عند التحميل وهنا يتطلب ابقاء الرئيسي مفتوحا

 

بالتوفيق

cccc.rar

  • Like 1
قام بنشر
If DLookup("xtype", "table1") = -1 Then
Me.ww.Enabled = True
Else
Me.ww.Enabled = False
End If

وحششش يا رمهان

الله يزيدك من العلم والف شكر

 

عدلت في الكود شي بسيط وميه ميه.....

 

 

 

  • Like 1
قام بنشر
21 ساعات مضت, أبو نادر said:

If DLookup("xtype", "table1") = -1 Then
Me.ww.Enabled = True
Else
Me.ww.Enabled = False
End If

عدلت في الكود شي بسيط وميه ميه.....

 

 

 

تمام ولو ترفق المرفق السابق وبه تعديلاتك افضل والكل يستفيد

  • Like 1
  • 1 month later...
قام بنشر
في 10/5/2016 at 02:39, أبو نادر said:

المعذره ...

cccc.rar

هههههههههههههههههههه
والله سبحانك يارب

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

انا باعمل للشغل بتاعى قاعدة بيانات تقوم بالاتى

استيراد البيانات من جهاز البصمة 

لعدد حوالى 153  موظف

عمل استمرار بالعمل  وهنا حالتنا من له وجبة  ومن استبدلها بمقابل مادى

عمل استمرار بالعمل ايام العطلات الاسبوعيةة والرسمية 

طبعا هنا عندى اكثر من مشكلة

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

ما سلف ذكرة تم بحمد الله تعالى وفضله

تعالى للمهم

تامين قاعدى البيانات من العبث

اولا

اغلاق بعض النماذج فى اوقات محددة احددها انا فلا تتم فتحها او العبث بها   تم بحمد الله تعالى

عمل صلاحيات تحدد لكل شخص وظسفته ومهامة داخل قاعدة البيانات    الحمد لله تعالى

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

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

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

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

 

منتظر رد حضرتك:fff:

اجمل التحايا:wub:

  • Like 3
قام بنشر

اهلين اخوي ابا جودي

انا بدأت من الصفر في الاكسس من تقريبا 5 او 6 شهور ولا زلت متعلم

لا ابحث لما هو جديد ... فقط الذي اريده لينجز مهام عملي بسرعه ...

بعد التعب اصبت باحباط عند المشاركه من البطئ والحماية

كيف احمي مجلد البرنامج من العبث ؟

كل المستخدمين يجب ان امنحهم الصلاحية الكاملة للمجلد

ونسخة الاختصار التي لديهم ... لو واحد ضغط كلك يمين يأتيه خيار ( فتح موقع الملف ) !!

ولا اضمن احد فيهم

تمنيت لو كان هناك في الاكسس خيار للببلش كتطبيق ذاتي

ومن هنا اجبرت ان ابحث لحل

دخلت في بحر السيرفرات وال my sql وكيف تجعل التطبيق ذاتي والتحزيم وفغرت حتى الان

والان ... بطلت ان اتعلم شي حتى تعود لي الرغبه

 

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

 

اخبرني كيف شاركت برنامجك ؟ :rol:

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

 

 

 

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information