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

سؤال : هل يمكن تنسيق صندوق الرسائل MsgBox بحيث يصبح السطر الاول بخط عرض Bold و يتبعه سطر فارغ ثم سطر ثالث ، حتى يصبح ملفتا للنظر أكثر ؟ جواب : نعم ، وبالمرفق تطبيق ذلك شكرا والله من وراء القصد NA_FormattedMsgBox.accdb

سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb

سؤال : هل يمكن تغيير لون الخط في صندوق الرسائل بحيث أختار اللون الذي اريده ؟ الجواب : نعم من الممكن تغيير لون النص في صندوق الرسائل الخاص بك ، وذلك باستخدام لون النظام API's ، فأولا و آخرا فان صندوق الرسائل ما هو الا نافذة، يمكنك تغيير معلمات اللون فيه . و لكن كما اسلفت فهو خاص بك ، فلا بد من التأكد من إعادة تعيين القيم الأصلية مباشرة بعد التطبيق وإلا سيتم عرض كل الرسائل من الويندوز حسب الألوان المعدلة. الكود المرفق سوف يتعرف تلقائيا على أنظمة 32 بت و 64 بت و يتعامل معها على حد سواء. NA_MsgBox Color.accdb

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

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

ممتاز بارك الله فيك

للعلم بداية ولكن ليس لاحواله نهاية ... فوددت مشاركتكم بهذا سعيا لعموم الفائدة هذا تصور عن احوال أزرار التنقل باختصار شديد .... Private Sub cmdLast_Click() Navigate acLast End Sub Private Sub cmdNew_Click() Navigate acNewRec End Sub Private Sub cmdNext_Click() Navigate acNext End Sub Private Sub cmdFirst_Click() Navigate acFirst End Sub Private Sub cmdPrevious_Click() Navigate acPrevious End Sub Private Sub Navigate(intWhere As Integer) On Error GoTo CannotGo DoCmd.GoToRecord , "", intWhere Exit Sub CannotGo: Beep End Sub

السلام عليكم الف شكر اخي الكريم يوسف هو المطلوب تمام التمام زادكم الله علما

بارك الله فيك أستاذنا حل رائع

انظر الى هذا الملف SHEIT salim.xlsx

تفضل أخى خالد البحث.xls

غير اسلوب السؤال الى كود ارسال الرقم السري الى الايميل عند نسيانه بنفس طريقة المواقع

تم التوصل للحل عن طريق هذا الكود وأضعه هنا للفائدة العامه With Application.Forms For I = .Count - 1 To 0 Step -1 With .Item(I) If .Name <> strExcept Then DoCmd.close acForm, .Name End If End With Next I End With DoCmd.OpenForm "frm_man"

لا برنامج الهماشي فقط ولكن نفس الفكره

لقد تمت الإجابة من قبل من طرف أستاذنا العلامة زيزو العجوز إمكانية البحث بأي كلمة في الاسم أو برقم.xls

رمز الخطأ 35 Sub or Function not defined وهذا رابط البحث عن الحلول عل الانترنت https://www.google.co.uk/search?q=VBA+Error+35+OR+"Sub+or+Function+not+defined"&gws_rd=ssl أخي الحبيب لا تظهر لك الرسالة التوضيحية المفصلة برمز الخطأ لان مرسل الرسالة هو VBA وليس معالج الاخطاء الخاص بالاجراء او الكود و بالتالي يتم تزويدك بالحد الادنى من المعلومات

بعد إذن الأستاذ محمد صالح جرب هذا الملف كود لجعل اللغة العربية في العامود الاول و اللغة الإنجليزية في العامود الثاني.xlsm

يقول معظم أهل هذا العلم أن الاصح ان يحمل كل اجراء معالج الاخطاء الخاص به شكرا

اولا ، استخدام معالج الاخطاء Error Handler يعطي رسائل موجهة و منسقة للمستخدم تشعره بحدوث خطأ و تعطيه التفاصيل المتاحة و في حال عدم استخدام معالج الاخطاء يقوم VBA بتوجيه رسائل الخطأ ، بالمتاح من المعلومات و يوجهك نحو محرر الأكواد للتعرف على موقع الخطأ لتصويبه ثانيا ، يمكن في بداية كل كود أو في أي مكان مختار ولتعطيل معالج الاخطاء و رسائل النظام ان تستخدم العبارة ( الكود ) On Error Resume Next و حين ترغب باعادة تفعيل معالج الاخطاء تستخدم مثلا On Error GoTo PROC_ERR ويكون في ذيل الكود PROC_ERR: MsgBox "Error " & Err.Number & " " & Err.Description Resume PROC_EXIT ثالثا ، لمعالجة كامل النماذج او التطبيق ، فالامر قيد البحث في مكتبتي ... و اوافيك بالرد

أستخدم ويندوز 7 وأوفيس 2007

والله أستاذ وليد أنا فتحت الملف مرة أخرى ولكن لم أرى أو أشاهد أى مشكلة فإنه يعمل معى بكل بساطة

مرفق NA_Sample_Up.accdb

فى اي سطر يتوقف الكود ؟ جرب الخطوات السابقة الخاصة بال Debug

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

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

ريما كان المطلوب الفلترة فيتم الفصل بين كل فئة Salim.xls

وعليكم السلام ان شاء الله يكون هدا المطلوب Database1221.accdb

ماشاء الله تبارك الله

جزاك الله عني جزيل الجزاء وجعله الله في ميزان حسناتك

السلام عليكم تم تغيير المعادلات باستعمال الدالة OFFSET بدلا من الدالة INDIRECT... .وتم إضافة تنسيق شرطي على الجدول لتلوين عمودي يومي الأسبوع (الجمعة والسبت)... كان خطأ في تنسيقات الأعداد (التواريخ) في العمود C من شيت DATA وقد تم تصحيحه... أرجو أن تفي التعديلات بالمطلوب... بن علية حاجي Time Sheet المرحلة الثانية.rar

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

الحمد لله ، شكرا على الافادة أخي وليد ، اذا كان الكود السابق الذي كان يصدر الملف بالاسم مدمجا به الرقم ، قد عمل معك فجرب فى الكود الاخير استبدال طريقة تعريف المتغيرات أي استبدل السطر التالي Dim iRow, FileNum بالتالي Dim FileNum As Integer Dim iRow As Double أو Dim iRow, FileNum as integer

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

للاسف ليس لدي نسخة 2007 لاجرب معك ساحاول لاحقا تعديل الكود ببديل اخر باذن الله او ربما يفيدك احد الاخوة بالتعديل المطلوب

اصدقائى وانا ابحث فى مواقع الاكسيل العالمية وجدت جدول لكاس العالم http://www.mediafire.com/file/c64no571bm6uamu/World_Cup_Russia_2018_Chart_-_LITE_Distribution_File_Ver._B5.01.xlsm

اخى ممكن تجد مبتغاك هنا واذا كان لديك استفسار اترك رد

وعليكم السلام انت اخذت الطريقة الاصعب للفرز !! الطريقة الاسهل هي هكذا: او . واضفت خاصية تنظيف حقل البحث بالنقر عليه مرتين جعفر 842.1.Attendance.mdb.zip 842.1.Attendance.accdb.zip

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 11- أنواع المتغيرت: هناك العديد من أنواع المتغيرات و كل نوع يخصص له حجم معين في الذاكرة. سوف نقوم بإضافة شرح جميع أنواع المتغيرات و الحجم الذي يأخذه كل نوع من الذاكرة: String: نص يتسع المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت Boolean: ياخذ نوعين من القيم True و False (طوله 2 بيت ) Byte: بايت يكون رقم بين 0 من 255 (طوله 1 بايت) Integer : عدد صحيح (طوله 2 بيت ) قيمته من 32768- إلى 32767 Long : عدد صحيح طويل (طوله 4 بيت) قيمته من 2,147,483,648- إلى 2.147.483.647 Signal: عدد عشري (طوله 4 بيت) قيمته من 3.402823x1038- إلى 1.401298x10-45- للقيم السالبة و من 1.401298x10-45 إلى 3.402823x1038 للقيم الموجبة Currency: عملة (طوله 8 بيت) قيمته من 922،337،203،685،477.5808- إلى 922،337،203،685،477.5807 Double : مزدوج عدد عشري (طوله 8 بيت) قيمته من 1.79769313486231x10308- إلى 4.94065645841247x10-324- للقيم السالبة. و من 4.94065645841247x10-324 إلى 1.79769313486232x10308 للقيم الموجبة Date: نوع البيانات تكون على شكل تاريخ (طوله 8 بيت) يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 Object : لتخزين الكائنات التي تحتوي على خصائص و وظائف و يتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص و وظائف الكائن المحدد. و سوف نخصص درس لعرض أنواع الكائنات. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً 2- طريقة الإعلان عن المتغيرات: الإعلان عن متغير يعني حجز مكان في ذاكرة الكمبيوتر باسم هذا المتغير و يحدد حجمه حسب نوع المتغير. و يتم تعريف المتغير أو الإعلان عنه بواسطة العبارة DIM . مثال: Dim A as Integer للإعلان عن أكثر من متغير: Dim a,b as integer للإعلان عن أكثرمن متغير لأنواع مختلفة في نفس السطر: Dim A As Double, B As Integer 3- ملاحظات: - - يفضل الإعلان عن نوع المتغير لزيادة سرعة التعامل معه . - - المتغيرات التي لم تحدد نوعها يعمل فيجول بيسك علي الإعلان عنها تلقائيا من النوع Variant وهو أبطأ أنواع المتغيرات . - - بالنسبة للإعلان عن أكثر من متغير من نفس النوع بالطريقة التالي: Dim a,b as integer هنا b فقط من النوع integer أما a فهو في هذه الحالة يعتبر من النوع Variant يجب أن يتم التعريف بهذا الشكل: Dim a integer,b as integer أو Dim a as Integer Dim b as Integer 4- شروط تسمية المتغيرات: - - اسم المتغير يجب أن يبتدأ بحرف . - - يمكن استعمال الحروف التي تلي الحرف الأول رقم أو حرف أو الإثنين معا. - - لا يجب أن تكون هناك فراغات بين أسماء المتغير و يمكن استعمال الشكل التالي: id_user - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.