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

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

رمضان كريم كل عام والأمة الإسلامية بالف خير يارب

كل عام وانتم بخير

اللهم اجعلنا واياكم من الفائزين قي هذا الشهر الفضيل كل عام وأنتم بخير

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

من ثنايا قلب يحبكم في الله تخرج كلماتي معطرة بالحب والوفاء.. فلمثلكم ترق الكلمات , ولمثلكم تتهادى الدعوات , ولمثلكم يهتف الفؤاد قائلاً: اللهم سلمهم الى رمضان وسلم إليهم رمضان وتسلمه منهم متقبلآ ومتعهم ببركة أيامه ولياليه. وكُل عام وانتم بخير وكل عام وأنتم إلى الله أقرب

الْلَّھُم أَهِلَهُ عَليْنَا بِالْأمْنِ وَالإِيْمَانِ وَالْسَّلامَةِ وَالْإِسْلَامِ وَالْعَوْنٓ عَلَى الْصَّلاةِ وَالصِّيَامِ وَتِلَاوَةِ الْقُرْآَنِ الْلَّھُمّ سَلِّمْنَا لِرَمَضَانَ وَسَلِّمْهُ لنا وَتَسَلَّمْهُ مِنّا مُتَقَبَّلاً يٓارٓبٓ العٓالِٓمينْ . مُبارٓكٌ علٓيْكُمْ شّٓهرُ رٓمٓضٓان 🌱

أنظر الى الشرح بالصورة كف تقوم بتحرر العلاقة وفرض التكامل المرجعي ::بالتوفق:: إذا كنت ترى أن هذه المشاركة مفدة فلا تنسى التقيم

وانت بالف خير يارب

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

لابد لك من ارفاق الملفات المراد مقارنتها حتي يتثني لنا المساعدة

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

بفضل الله توصلت الي الحل ولكي تعم الفائده المشكله ليست في الاكسس انما المشكله سببها اني لما ببصمم التقرير علي جهازر انا بستعمل Microsoft Print to PDF هي اداه بتضاف الي الاوفيس لتصدير التقرير الي PDF بتعطيني طابعه افتراضية فطبعا بتكون اعداتها غير اعدادات اي طابعة فهي كانت السبب في ذالك والحمد الله تم حل المشكله واشكر استاذي ومعلمي الفاضل ابو خيل لانو تبهني لنقطه وصلتني الي الحل

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

السلام عليكم في هذه الحالة يجب احتساب يوم زيادة (إما ليوم البداية وإما ليوم النهاية)، وفي المرفق قمت بزيادة يوم لتاريخ البداية (الموجود في الخلية C3 حيث جعلت يوم البداية في المعادلة اليوم الذي يسبق التاريخ الموجود في هذه الخلية)... أرجو أن يفي التعديل مل تصبو إليه... بن علية حاجي الفرق بين تاريخين بالشهور والأيام.xls

السلام عليكم الشكر واصل لاخي الحبيب عباد..واخي النشيط احمد ناصر واخي بن عليه وائراءا للموضوع فيه مثال لعكس معطيات المصفوفة لاستثمار التغيير في البعد الاخير ثم نستخدم الغرض .Column لوضع المصفوفة المعكوسة في اللست Private Sub CommandButton1_Click() Dim Ary() Dim LastRow As Long, v As Long Dim c As Integer, cc As Integer Dim M As String, f As String Dim q As Range '''''''''''''''''' ListBox1.Clear M = TextBox1.Value '''''''''''''''''' With Sheets("DB") LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row Set q = .Range("B2:B" & LastRow).Find(M) If Not q Is Nothing Then f = q.Address Do If InStr(1, q, M, vbTextCompare) = 1 Then v = v + 1 ReDim Preserve Ary(1 To 12, 1 To v) For c = 1 To 12 cc = Choose(c, 0, 1, 2, 3, 4, 8, 5, 9, 6, 10, 7, 11) Ary(c, v) = q.Offset(0, cc).Value Next End If Set q = .Range("B2:B" & LastRow).FindNext(q) Loop While Not q Is Nothing And q.Address <> f End If End With '''''''''''''''''''''''' '''''''''''''''''''''''' If v Then Me.ListBox1.Column = Ary End If Erase Ary Set q = Nothing End Sub المرفق 2003/2010 زيادة اعمدة الست بوكس.rar في امان الله

ممكن تجرب هذا الملف طباعة اليوزر فورم.xlsm