اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اظهار اسم المستخدم في النماذج


bumb

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

السلام عليكم

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

التعديلات المطلوبه هي :

1- جعل المستخدم يظهر في النماذج والتقارير

2- هناك نموذج اسمه User Name أريده أن يكون كباقي النماذج وللأدمن الحق في جعله متاح للمستخدم أو حظره عليه ولكن لا يحق للمستخدم تغيير اسم المستخدم اذا كان المستخدم له الحق في فتح النموذج --- النموذج حالياً لا يظهر الا من خلال نموذج اسمه User Ability وهذا النموذج لا يجعله الادمن متاح للمستخدمين

3- أريد أن تدخل التقارير في نظام الصلاحيات -- هي الأن مضافة في جدول الصلاحيات ولكن الأكواد لأ تنظر إليها

4- طلبي الربايع وهو رجاء أكثر مما هو طلب خدمة منكم إن اجبتموني عليه فهو يعتبر إتمام لجميلكم الا وهو شرح الكود بالكتابة الخضراء في نفس المحرر الخاص بالأكواد كل سطر على حدى كي لا أسئل عن الكود مرةً اخرى ولكي يساعدني ذلك في فهم الأكواد

للمعلوميه

كل نموذج يحتوي على كود في حدث عند الفتح حيث يقوم ذلك الكود بفتح النموذج من عدمه وذلك بموجب نظام الصلاحيات

اسم المستخدم هو Admin وكلمة المرور هي 2439

ارجو الضغط على مفتاح شفت في حال الرغبة في تعديل القاعده

تحياتي لكم

نظام المواعيد.zip

رابط هذا التعليق
شارك

أخي العزيز

يأست بسرعة يا طيب

موضوعك ليس مستحيلا يجلب اليأس ، ولكن للأمر أسباب

  1. حملت المرفق بالاصدار 2007 ، والمتفاعلين معه أقل من المتفاعلين مع الإصدار 2003
  2. طلباتك متراكمة في الموضوع وليس طلب محدد بعينه يسهل التعامل معه

لذا أخي العزيز

إبدأ بارفاق التطبيق بالاصدار 2003 ، أو ننتظر إجابة أحد الاخوة على الاصدار 2007

ولا تستعجل اليأس فالحباه قصيرة لا تحتمل ضياع أيامها باليأس

رابط هذا التعليق
شارك

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

فأنت قد تكون سببا في ذلك

فانظر مثلا الى موضوعك هذا

http://www.officena.net/ib/index.php?showtopic=38078

قد كنت انتظر منك الرد والافادة ولكنك لم تفعل

في المنتديات الاخرى يتم غلق اي موضوع مخالف وبحزم

فيفترض ان موضوعك هذا يغلق للأسباب

1_ العنوان غير مناسب ولا يصف الموضوع

2_ عرض اكثر من سؤال في مشاركة واحدة

كل عام وانت بخير

رابط هذا التعليق
شارك

اخواني الاعزاء في البداية اقول لكم كل عام وانتم بخير ومن العايدين

من حيث تحويل القاعدة الى 2003 فسوف لن تتوافق وستفقد الكثير من امور لا يدعمها 2003 ولكن سأفعل بإذن الله

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

تحياتي لكم

نظام المواعيد2003.zip

تم تعديل بواسطه bumb
رابط هذا التعليق
شارك

السلام عليكم

انت اخ عزيز نحبك ونريدك بيننا

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

وأهم شيء : 1- اختيار العنوان المناسب 2- الاكتفاء بسؤال واحد لكل مشاركة

بالنسبة لموضوعك :

تم تعديل العنوان بما يناسب الموضوع

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

txtx = .UserName

تستطيع تطبيق ذلك على بقية النماذج

up2.rar

  • Like 1
رابط هذا التعليق
شارك

  • 4 years later...
في ٣‏/٩‏/٢٠١١ ٢:١٥:٣٠, ابوخليل said:

السلام عليكم

انت اخ عزيز نحبك ونريدك بيننا

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

وأهم شيء : 1- اختيار العنوان المناسب 2- الاكتفاء بسؤال واحد لكل مشاركة

 

بالنسبة لموضوعك :

تم تعديل العنوان بما يناسب الموضوع

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

 

 

 

txtx = .UserName

 

 

تستطيع تطبيق ذلك على بقية النماذج

up2.rar

استاذي ابو خليل انا عملت نفس الخطوات بس بيديني خطأ في الدالة 

رابط هذا التعليق
شارك

أستاذ
انت حضرتك متأكد انك وضعت هذا الكود في حدث عند فتح النموذج
 

Private Sub Form_Open(Cancel As Integer)
Dim SF As Control
With MyUser
   If .GetAbility(Me.Name, OpenForm) Then
      Me.AllowAdditions = .GetAbility(Me.Name, Add)
      Me.AllowEdits = .GetAbility(Me.Name, Edit)
      Me.AllowDeletions = .GetAbility(Me.Name, Del)
      For Each SF In Me.Controls
        If SF.ControlType = acSubform Then
            SF.Form.AllowEdits = Me.AllowEdits
            SF.Form.AllowDeletions = Me.AllowDeletions
        End If
      Next
   txtx = .UserName
   Else
      MsgBox " عفواً" & .UserName & "      " & vbCr & vbCr & "ليست لديك الصلاحية لإضافة عميل جديد", 0 + 16 + 1572864, "نظام المواعيد"
      Cancel = True
   End If
End With
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

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