bumb قام بنشر أغسطس 24, 2011 قام بنشر أغسطس 24, 2011 السلام عليكم ارفق لكم برنامجي وكلي امل في ان تساعدوني في التعديلات المطلوبه لأني بصراحه لا اجيد التعامل مع محرر الأكواد التعديلات المطلوبه هي : 1- جعل المستخدم يظهر في النماذج والتقارير 2- هناك نموذج اسمه User Name أريده أن يكون كباقي النماذج وللأدمن الحق في جعله متاح للمستخدم أو حظره عليه ولكن لا يحق للمستخدم تغيير اسم المستخدم اذا كان المستخدم له الحق في فتح النموذج --- النموذج حالياً لا يظهر الا من خلال نموذج اسمه User Ability وهذا النموذج لا يجعله الادمن متاح للمستخدمين 3- أريد أن تدخل التقارير في نظام الصلاحيات -- هي الأن مضافة في جدول الصلاحيات ولكن الأكواد لأ تنظر إليها 4- طلبي الربايع وهو رجاء أكثر مما هو طلب خدمة منكم إن اجبتموني عليه فهو يعتبر إتمام لجميلكم الا وهو شرح الكود بالكتابة الخضراء في نفس المحرر الخاص بالأكواد كل سطر على حدى كي لا أسئل عن الكود مرةً اخرى ولكي يساعدني ذلك في فهم الأكواد للمعلوميه كل نموذج يحتوي على كود في حدث عند الفتح حيث يقوم ذلك الكود بفتح النموذج من عدمه وذلك بموجب نظام الصلاحيات اسم المستخدم هو Admin وكلمة المرور هي 2439 ارجو الضغط على مفتاح شفت في حال الرغبة في تعديل القاعده تحياتي لكم نظام المواعيد.zip
أبو آدم قام بنشر أغسطس 29, 2011 قام بنشر أغسطس 29, 2011 أخي العزيز يأست بسرعة يا طيب موضوعك ليس مستحيلا يجلب اليأس ، ولكن للأمر أسباب حملت المرفق بالاصدار 2007 ، والمتفاعلين معه أقل من المتفاعلين مع الإصدار 2003 طلباتك متراكمة في الموضوع وليس طلب محدد بعينه يسهل التعامل معه لذا أخي العزيز إبدأ بارفاق التطبيق بالاصدار 2003 ، أو ننتظر إجابة أحد الاخوة على الاصدار 2007 ولا تستعجل اليأس فالحباه قصيرة لا تحتمل ضياع أيامها باليأس
ابوخليل قام بنشر أغسطس 29, 2011 قام بنشر أغسطس 29, 2011 وزيادة على ما تكرم به مشرفنا العزيز فأنت قد تكون سببا في ذلك فانظر مثلا الى موضوعك هذا http://www.officena.net/ib/index.php?showtopic=38078 قد كنت انتظر منك الرد والافادة ولكنك لم تفعل في المنتديات الاخرى يتم غلق اي موضوع مخالف وبحزم فيفترض ان موضوعك هذا يغلق للأسباب 1_ العنوان غير مناسب ولا يصف الموضوع 2_ عرض اكثر من سؤال في مشاركة واحدة كل عام وانت بخير
bumb قام بنشر سبتمبر 2, 2011 الكاتب قام بنشر سبتمبر 2, 2011 (معدل) اخواني الاعزاء في البداية اقول لكم كل عام وانتم بخير ومن العايدين من حيث تحويل القاعدة الى 2003 فسوف لن تتوافق وستفقد الكثير من امور لا يدعمها 2003 ولكن سأفعل بإذن الله ومن حيث ما ذكر اخي ابو خليل فأنا اعتذر وبشده وأنا على اتم الإستعداد للقيام بأي شيئ تطلبه مني يا ابو خليل مقابل ان تسامحني على ماورد مني من اخطاء ولكن ما اريدك ان تعلمه ان الخطأ ليس مقصودا وجل من لا يسهو تحياتي لكم نظام المواعيد2003.zip تم تعديل سبتمبر 2, 2011 بواسطه bumb
ابوخليل قام بنشر سبتمبر 3, 2011 قام بنشر سبتمبر 3, 2011 السلام عليكم انت اخ عزيز نحبك ونريدك بيننا والتقيد بشروط المشاركة يصب في صالحك اولا ثم في صالح المنتدى المستقبلي وأهم شيء : 1- اختيار العنوان المناسب 2- الاكتفاء بسؤال واحد لكل مشاركة بالنسبة لموضوعك : تم تعديل العنوان بما يناسب الموضوع تم التعديل على المثال من خلال نموذج واحد وهو frmAddNew حيث قمت بادراج مربع نص ( txtx) ثم اضفت هذا السطر ضمن الكود الخاص عند فتح النموذج txtx = .UserName تستطيع تطبيق ذلك على بقية النماذج up2.rar 1
bumb قام بنشر سبتمبر 3, 2011 الكاتب قام بنشر سبتمبر 3, 2011 العنصر الغير منظم من اين يستقي بياناته انا لم اجد له اي مصدر بيانات ولا حتى كود تحياتي لك
bumb قام بنشر سبتمبر 4, 2011 الكاتب قام بنشر سبتمبر 4, 2011 عاجز عن الشكر وربي يزيدك باقي رقم 2 و 3 تحياتي لك
moamen salem قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 في ٣/٩/٢٠١١ ٢:١٥:٣٠, ابوخليل said: السلام عليكم انت اخ عزيز نحبك ونريدك بيننا والتقيد بشروط المشاركة يصب في صالحك اولا ثم في صالح المنتدى المستقبلي وأهم شيء : 1- اختيار العنوان المناسب 2- الاكتفاء بسؤال واحد لكل مشاركة بالنسبة لموضوعك : تم تعديل العنوان بما يناسب الموضوع تم التعديل على المثال من خلال نموذج واحد وهو frmAddNew حيث قمت بادراج مربع نص ( txtx) ثم اضفت هذا السطر ضمن الكود الخاص عند فتح النموذج txtx = .UserName تستطيع تطبيق ذلك على بقية النماذج up2.rar استاذي ابو خليل انا عملت نفس الخطوات بس بيديني خطأ في الدالة
ابو جودي قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 أستاذ انت حضرتك متأكد انك وضعت هذا الكود في حدث عند فتح النموذج 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 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.