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

أحسنت أستاذ عبد اللطيف بارك الله فيك وزادك الله من فضله وكل عام وانتم بخير

الأمر بسيط تم التعديل على الملف واستخدام هذه المعادلة =IF(F4="","",(TODAY()-F4)+1)

السلام عليكم ايها المنتدي الكبير القيمة والقامة استفدنا وتعلمنا منك الكثير فكل سنة وانت طيب كل سنة والقائمين علي هذا الصرح الكبير من مسئولين واعضاء طيبين وفي ستر وعافيةكنتَ ولا زلتَم كالنّخلة الشّامخة تُعطي بلا حدود، فجزاكم عنّا أفضل ما جزى العاملين المخلصين، وبارك الله لكم وأسعدكم أينما حطّت بكم الرِّحال. لكلّ مبدع إنجاز، ولكلّ شكر قصيدة، ولكلّ مقامٍ مقال، ولكلّ نجاح شكر وتقدير، فجزيل الشّكر نُهديك وربّ العرش يحميك. كل عام وانت بخير ربي عود علينا هذة الايام مرات عديدة ونحن في ستر وعافية ... بارك الله فيكم وعليكم....... تحياتي لكم

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

تفضل يمكنك استخدام هذا الكود Private Sub CommandButton2_Click() Dim str As String Dim i As Long For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then If str <> vbNullString Then str = str & ", " str = str & ListBox1.List(i) End If Next TextBox2.Text = TextBox2.Text & " " & str End Sub ليست بوكس.xlsm

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

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

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

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

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

وعليكم السلام-تفضل رواتب موظفين شهر 8.xlsx

وعليكم السلام تظهر معك هذه الرسالة لعدم حفظ الملف بصيغة XLSM

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

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

اخوتي واصدقائي وأعضاء و زوار هذا المنتدي .كل عام وانتم بخير جميعا بدون ذكر اسماء لان الزهايمر عندي ماشاء الله شغال وبالمرة سؤال ..ههههههههه .. لو حبيت اضيف حدثين بعد التحديث ....مثل Private Sub مربع_تحرير_وسرد2_AfterUpdate() Me.نص0.Requery Me.نص1.Requery End Sub صح كده ولا أضيف حاجة بينهما ؟؟؟؟؟؟ ارجو الاجابة مع نص كيلو لحمة

طريقة جديدة للبحث عن الاسم اتمنى لكم الفائدة search.accdb

جميل جدا وبسيط الله يعطيك العافية استاذنا ابو اشرف

توزيع بالكشيدة لايقبل اما بالمسافة يقبل لايمكن تغبر تنسيق حقل او مربع نص منسق الا ب وسوم html و لتجربة انظر مصدر عنصر التحكم بعد تغير تنسيقات

ضع هذا الامر في حدث عند التركيز لمربع التحرير والسرد MA Me.Requery وهذا يغنيك عن وضع الامرين بالحقلين السابقين ::بالتوفيق::

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

عيد سعيد على الامة الاسلامية واعاده الله عليكم باليمن والخير والبركات

كل عام وانتم بخير وعيد سعيد عليكم جميعا بارك الله فيك استاذنا الكريم وجزاك الله خير الثواب

السلام عليكم وكل عام وانتم بخير بخصوص ضبط المحاذاه توجد عدة طرق منها عن طريق وحدة نمطية اسمها clsJustifyText وهي تضبط النص ولكن مشكلتها السطر الاخير اذا كان ناقص تكون المحاذاه لهذا السطر يسار ايضا عن طريق ملف مرجع يحمل في مجلد الويندوز اسمه RTF.ocx اذكر اني استخدمته مع قاعدة بيانات اصدار 95 او 97 لست متأكد ويضبط المحاذاه بدون مشاكل ولا اعلم هل يعمل مع الاصدارات الاخرى ام لايعمل وايضا في اصدار 2019 جربت ضبط المحاذاه لحقل من نوع نص طويل للنموذج والتقرير عن طريق الاكسيس بدون اي اضافات وعمل بشكل جيد ماعدا السطر الاخير اذا كان قصير يكون يسار وليس يمين جربت الملف مع اصدار 19 و16 ولم اجرب اصدارات اقدم جرب الملف المرفق ربما تكون خطوة اولى لتحقيق المطلوب Database51.accdb

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

مرورك الاجمل اخي kha9009lid وكل عام وانت بالف خير وجميع زوار واعضاء ومشرفي منتدانا الحبيب

فكره جميلة يا ابا ياسين 😎

جرب هذا New Microsoft Access قاعدة بيانات (1).accdb

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

غير الافتراضي يمكن تغيير حجمه الى مربع حوار

تم التعديل على المعادلة والملف السابق

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IF(AND(C1="",D1=""),"",IF(C1=D1,"متزن","غير متزن")) دالة if بأربع شروط.xlsm

Option Explicit Sub TEST() Dim X, A, B, C, I% X = Range("B3").MergeArea.Rows.Count A = Range("A3").Value B = Range("B3").Value: C = Range("C3").Value Range("A3:C3").UnMerge With Range("A3") For I = 1 To X - 1 .Offset(I, 0) = A: .Offset(I, 1) = B Next End With End Sub جرب هذا الماكرو

وعليكم السلام ورحمة الله وبركاته حسب ما فهمت معادلة الخلية الفارغة.xlsx

هات مثالاً عما تريد (الأفضل تضليل لعدم الدخول في مشاكل الــ Shapes ) و خذ ما يدهش العام

في هذا الملف نموذج عما تريد (فقط 10 اسماء للتدقيق في عمل الكود)يمكنك اضافة ما تريد من الصفوف مع تصحيح للماكرو Salim_User.xlsm

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

اتفضل أخى الكريم الملف التالى به المطلوب إن شاء الله لعله يفى بالغرض المطلوب شهادة مدرسية.xlsm

أخي الحبيب الأستاذ/ رجب جاويش بارك الله فيك دائما نتعلم من طروحاتك الجميلة الله لا يحرمنا منها واحمد الله سبحانه انه وهبنا الصحبة الصالحة والاخوة في الله جزاك الله كل خير تقبل تحياتي

تفضل أخى معادلة استخراج الناجح.rar

اخي الكريم هل تعرف عمل الدالة Requery ما دخل الدالة في مربع النص MA للاضافة