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

السلام عليكم ورحمة الله تم التعديل (تعديل طفيف جدا) على الكود ليعمل على إكسيل 2010 (الذي تم إنشاؤه في نسخة إكسيل 2019)... ملاحظة: التعديل تم على عبارة "SortFields.Add2" التي تم تغييرها بعبارة "SortFields.Add" في كل أوامر الكود... وبهذا التعديل سيعمل الكود حتى في النسخ المتقدمة... أرجو أن يفي هذا التعديل ما تريده... ترتيب معلمين حسب الاقدمية.xlsm

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

السلام عليكم 🙂 اخونا @سامي الحداد له صولات في المواضيع ، و ردود موفقة ، فأهلا وسهلا به خبيرا بيننا 🙂 ولايزال البحث مستمر لترقية بقية الاعضاء 🙂 جعفر

السلام عليكم😊 واهنئك أخي المهندس @Eng.Qassim على هذه الترقية، واهلا وسهلا بك معنا من جديد😊 جعفر

وعليكم السلام ورحمة الله وبركاته ولك بمثل مادعوت اخي @TQTHAMI

انشأ وحدة نمطية وضع فيها هذا الكود .............. Public Sub CreateDesktopShortcutWithIcon() Dim WshShell As Object Set WshShell = CreateObject("Wscript.Shell") Dim strDesktop As String strDesktop = WshShell.SpecialFolders("Desktop") Dim oShellLink As Object Dim fil, fil1 As String Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & DLookup("[nsh]", "[tblsho]") & ".lnk") oShellLink.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name oShellLink.WindowStyle = 1 oShellLink.IconLocation = DLookup("[pc]", "[tblsho]") oShellLink.Description = DLookup("[nsh]", "[tblsho]") oShellLink.WorkingDirectory = strDesktop oShellLink.Save End Sub تحت الزر الموجود في النموذج ضع هذا الاستدعاء ............. Call CreateDesktopShortcutWithIcon جرب وأعلمنا بالنتيجة <<<<<>>>>>>

بالتأكيد اخي لاتعمل ...لان اصل مصدر الاستعلام Query1 (التجميعي) هو الاستعلام 1_JO اليك المثال التالي ..في الاستعلام Query1 يظهر لنا تجميع التحاليل التالية فاذا ضغطت على مربع YES/NO فانه لن يقبل ذلك لانه تجميع من عدة فحوصات لديها YES/NO ارجوا ان تشرح لنا ماهي الفائدة من اختيار YES/NO في النموذج النهائي على العموم ...ان كنت بحاجة لهذا الاختيار ربما لاضهاره في تقرير وللطباعة ...فيمكن عمل جدول من الاستعلام Query1 افتح الاستعلام في وضع التصميم ..ثم انقر على ايقونة Make Table ثم اجعل مصدر بيانات النموذج ذلك الجدول

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

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

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

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

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

شكر وتقدير واحترام من أخيك

بارك الله فيكم كل من سامي الحداد و Ahmed.I بعد محاولات نجحت الطريقتين معي بارك الله فيكم شكرا كثيرا كثيرا

الف مبروك بشمهندس @Eng.Qassim اعانك الله ع مساعده اخوانك ومزيد من العطاء بالتوفيق

انا ما تظهر عندي هل مشكلة ممكن تجرب انك تاخذ نفس الاكسيس الي انا ضفته على قاعدة جديدة ... عادي اخي بارك الله بك , فكرة الفلترة بهذه الطريقة جميلة ايضاً

الف الف مبروك أخي @Eng.Qassim على الترقية ومزيد من التألق . تمنياتي لك بالتوفيق

مبارك عليك الترقية استاذي @Eng.Qassim الترقية والى الامام وربنا يوفقك الى كل خير

السلام عليكم ورحمة الله وبركاته بصراحة متفاجئ من الموضوع مازلت طالب علم اتعلم منكم اخوانى الاحبه يكفيني فعلا ان اكون بينكم اخوتي واحبتي وهذا وسام غالي من منتدى عظيم مليئ بالأستاذة الكبار علماً وخلقاً والتزاماً أشكر لكم جميعاً هذا الوسام وحسن الظن أساتذتي الكرام كل الشكر والتقدير لفريق الموقع ولأساتذتي وزملائي على هذه الثقة وأتمنى أن أكون عند حسن الظن ويكفيني شرفاً خدمتكم بما يمن الله به أخي وأستاذي ومعلمي الحبيب جعفر جزاك الله خيرا على كل ما تقدمه لنا تعلمنا منكم كرم الخلق في تعاملكم وتواضعكم وإن شاءالله اكون عند حسن الظن. حفظكم الرحمن اخى واستاذى محمد البرناوى بارك الله فيك واعاننا الله واياكم على مساعدة اخواننا الكرام اخى واستاذى الحبيب @AbuuAhmed بارك الله فيك وجزاك الله خيرا واعاننا الله واياكم على خدمه اخواننا الكرام اخى واستاذى المهندس قاسم @Eng.Qassim جزاك الله خيرا وبارك الله فيك وان شاء الله ارى هذا اللقب عن قريب قد اضيف اليك وفقكم الله أحسن الله إليكم، أخي الفاضل @Abou Elhassan اخى واستاذي الحبيب طاهر الوليدي جزاك الله خيرا أنت الورد كله بارك الله فيك ووفقكم الله اخى واستاذى الحبيب @Moosak اسعدك الله وبارك فيك وفى علمكم ونتعلم كل يوم منك ومن اساتذتنا الافاضل معاً نكمل مسيرة نشر العلم و نتعلم كل ماهو جديد اعاننا الله جميعا على هذه الثقه فى خدمه اخواننا الكرام اخى الحبيب حمدى الظابط بارك الله فيك وجزاكم الله خيرا وفقكم الله اخي الكريم @TQTHAMI بارك الله فيك وجزاكم الله خيرا ، شكراً على تشجيعكم وإن شاءالله معا نكمل مسيرة العلم ونتعلم كل ما هو جديد اخي الكريم @qathi بارك الله فيك وجزاكم الله خيرا تقبلوا تحياتي وتمنياتي بالتوفيق واسال الله لى ولكم ان يكون عملنا خالصا لوجهه الكريم

يجب عليك الضغط على الملف كليك يمين ثم عمل كما بالصورة . وستحل المشكلة ,وبارك الله فيكم

بعد اذن اخي مهند اخي matrex 300 تفضل طلبك الملف طباعة نسخة بي دي اف ونسخة علي طباعيه.xlsm