نجوم المشاركات

أخي // طارق السلام عليكم ورحمة الله وبركاته التعديل بالمرفقات نقوط الغريب2.rar

السلام عليكم بعد اذن المشاركين حفظهم الله كنت قد جهزت هذا الملف بهذه المعادلة في قاعدة التحقق من الصحة =OFFSET(MyNames;MATCH(CELL("contents")&"*";MyNames;0)-1;;COUNTIF(MyNames;CELL("contents")&"*")) المرفق 2003 تصفية القائمة.rar

جزاك الله خير استاد ازهر الاخ سدون : فقط اضف حقل الرقم الرمزي الى مربع التحرير واكتب هذا السطر في حدث بعد التحديث لمربع التحرير Rmz_text= me.combo.Column(1) على فرضية ان مربع التحرير يشتمل على حقل الاسم فقط فرقم واحد تعني العمود الثاني اما العمود الاول فرقمه صفر

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

السلام عليكم ورحمة الله وبركاته الاخوه الافاضل بناء على طلب احد الاعضاء الاخ طاهر محمد على الرابط الاتى http://www.officena.net/ib/index.php?showtopic=54367&page=1 تم عمل نموذج لفاتوره بدون فورم حيث يمكنك التسجيل والتعديل والحزف دون الجاجه الى وجود فورم اردت فقط ان ارفع الملف فى موضوع جديد لتعم الاستفاده على من يريد تقبلو تحياتى نموزج فاتورة بدون فورم نهائى.rar

برنامج احصاء شئون العاملين ارجو ان يحوز الاعجاباحصاء شئون العاملين1.rar

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

بعد أذن أخى " سليم " وبعد حله الجميل ، وزيادة فى الخير أنظر أخى هذا الرابط به طريقة أخرى للحل تقبل تحياتى http://www.officena.net/ib/index.php?showtopic=55772

Private Sub Command9_Click() If IsNull(Frame0) Then MsgBox "ادخل احد الخيارات" Exit Sub Else DoCmd.Close End If End Sub Database3.rar

جزاك الله خير استاذ علي وهذا المثال بعد التعديل db1.rar

الكود مرة اخرى بنفس طريقة الاستاذ أبو خليل بارك الله فيه وجزاه الله خيرا Private Sub Combo18_AfterUpdate() [الرقم الرمزي] = Combo18.Column(1) End Sub

هل هو المطلوب Database1.rar

السلام عليكم اليك هذا الملف الذي قد يساعدك انسخ الاسماء الموجودة عندك الى هذا الملف في المكان المناسب تفتيش عن اسم.rar

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

هلا ابو احمد ... منور بتواجدكم وجزاك الله خيرا

اهلا بك اخي في منتدى اوفيسنا . سوف ارفق لك مثال عن كيفية اخفاء اطار الاكسس , لكن قبل ذلك لادلك اين تجد Pup up وكيف تغير خصائصه . انظر الى الصورة

انظر لهذا المثال انظر الى حقل الدولة هذا الحقل موجود في جدول , والفورم يستند لجدول اخر . الطريقة هو اننا جلبنا حقل الدوله من الجدول الاول واظهرناه في النموذج الذي يستند الى الجدول الثاني بدون اي علاقات بين الجداول . DL.rar

=DLookUp("[Field name]";"[table name]";"[IDCode] = '" & [Forms]![Form Name]![IDCode] & "'") اهلا بك في منتدى اوفيسنا استخدم الدالة : DLookUp

وعليكم السلام ورحمة الله وبركاته استاذ ايمن اين مشكلتك ؟؟؟؟؟

السلام عليكم أخي العزيز بعد إذن الإخوة تفضل المرفق بالشيت الثاني ستجد الآتي عدلت لك في طريقة إدخال البيانات ليتناسب مع إمكانيات الورقة في الاكسل عليك إدخال البيانات من العمود A إلي G ثم يتم الباقي تلقائيا ستجد أن الخلايا بأعمدة الإستلامات (وصول الدفعات) ستتلون تلقايا بالكحلي واطار أحمر عند وضع أي رقم بخلية الطلبية (العمود C) وذلك لتنبهك بعدم إدخال بيانات بهذه الخلايا ، حيث يكون هذا السطر لإدخال طلبية جديدة فقط ثم الأعمدة الخضراء (تاريخ الطلبية - فارق أيام - الشريحة) يتم حساب محتوياتها تلقائيا وأخيرا الخلية K2 والتي تمكنك من معرفة الباقي من الطلبية بمعلومية رقمها الذي تغيره أنت (يدويا أو من السهم) مثال على المطلوب2.rar

السلام عليكم أسباب بطء الملف كثيرة ومتعددة قد يكون به صور قد يكون به معادلات قد يكون به ورقات (شيتات) محجوز بها خلايا حتي نهاية الورقة .. الأفضل رفع الملف

للاسف العرض المتاح يبدأ من تاريخ الاعلان باذن الله العام القادم تستفيد من الخصم اذا كان متاحا نراك على خير فى المؤتمر باذن الله

تصحيح الخطأ في الكود الذي تفضلت به : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.OnKey "{F12}", "" End Sub

السلام عليكم أخي الغالي تفضل المرفق التالي فيه تعطيل وتمكين زر F12 Disable F12.rar

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

السلام عليكم هذا على السريع شاهد المرفق 2003 قرعة.rar

السلام عليكم إن شاء الله يكون هذا هو المطلوب ترحيل بيانات2.rar

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

عمل شاشة افتتاحية لبرنامج اكسيس 2010

الدرس العاشر- اكسيس 2010 (طريقة التعديل علي الفورم بعد انشاؤه)

تعلم أكسس 2007 | الفصل 13: عناصر النموذج المتقدمة

تعلم أكسس 2007 | الفصل العاشر: إنشاء النماذج

السلام عليكم جرب هذا Sub kh_Delete() Dim Rng As Range, cel As Range, ArRng As Range '''''''''''''''''''''''' Set Rng = Range("A2:A1000") '''''''''''''''''''''''' For Each cel In Rng If IsEmpty(cel) Then GoTo 1 If WorksheetFunction.CountIf(Rng, cel) > 1 Then If ArRng Is Nothing Then Set ArRng = cel Else Set ArRng = Union(ArRng, cel) End If 1: Next If Not ArRng Is Nothing Then ArRng.Delete Set Rng = Nothing Set ArRng = Nothing End Sub