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

السلام عليكم اعتقد مشكلتك باسماء الجداول ----لانها تتغير عند رفعها عل الsql server ---- لان قاعدة الاكسس تبق كما هي وتتغير اسماء الجداول فقط ---- لذلك عليك تغير اسماء الجداول في الاستعلامات وكذلك في الاكواد الموجوده في النماذج ممكن تستفاد من الرابط التالي

عند نسخ الصفحة يجب ان تنقل إلى النهاية إليك الملف AA.xlsm

تفضل هذا التعديل بدون التقييد بتصميم الأكسل و على نفس التصميم تصدير اكسل.zip

أثناء تصفحي للإنترنت وفقني الله في الوصول لموقع أقل ما يقال عنه أنه رائع حيث به الكثير من المميزات: عرض القرآن بالصور موافق لطبعة المدينة المنورة لتوين الآيات مع القراءة التفسير والترجمة للآية المقروءة مجموعة كبيرة من القراء جودة مختلفة للملفات الصوتية مراعاة لخطوط الاتصال البطيئة إمكانيات هائلة في التكرار والتحفيظ وغيرها الكثير والآن مع رابط الموقع https://quran.ksu.edu.sa/ وكل عام أنتم بخير ولا ينقصني سوى دعاؤكم

# ما هي السيرة النبوية؟ # تعريف السيرة النبوية في اللغة هي السنة والطريقة والحالة التي عليها الإنسان، أما اصطلاحا فهي علم يبحث في حياة الرسول منذ مولد الرسول صلى الله عليه وسلم في ربيع الأول في عام الفيل، إلى حين وفاته في ربيع الأول من السنة الحادية عشر للهجرة. وتتضمن السيرة النبوية نشأة الرسول صلى الله عليه وسلم وحياته قبل الزواج وبعد الزواج، وقبل النبوة والرسالة وبعد النبوة والرسالة، وأعماله قبل النبوة وبعدها، وتتضمن أيضاً معجزاته، وأخلاقه كنبي وقائد وزوج وأب وجد، سائر حياته، ليلاً ونهاراً، مستيقظاً ونائماً، مقيماً ومسافراً، مريضاً وصحيحاً، سواء كان في مكة المكرمة أو في المدينة التي نورها الله بهجرة الرسول صلى الله عليه وسلم إليها والموت والدفن بها. # لماذا ندرس السيرة النبوية؟ # للتعرف على النبي محمد صلى الله عليه وسلم من جهات شتى: (بشر) يصيبه ما يصيب البشر.(نبي) يتميز ببشريته عن البشر بميزات.(قائد) قاد أمة لم يشهد الزمان مثيلها.(عالم) يستقبل الأسئلة ويجيب عليها.(زوج) في بيته وفي أهله كيف يعامل أزواجه وكيف يعامل أهله؟كذلك التعرف عليه من خلال معاملاته للصغار والكبار والجيران والأرحام والحيوانات.بل والتعرف عليه في معاملاته مع أعدائه، كيف كان يتعامل مع أعدائه؟والتعرف عليه كيف كان حاله مع الأنبياء والمرسلين؟هل أتى بشيء لم يأتى به من سبقه من الرسل؟ أم جاء تابعاً لمن سبق؟وما هي درجته وسط النبيين صلوات الله عليهم أجمعين؟وهل عاب على نبي أم ماذا صنع؟ # مصادر السيرة النبوية # أما عن مصادر السيرة النبوية التي يمكن من خلالها التعرف على سيرة النبي صلى الله عليه وسلم هذا التعرف فهي: القرآن الكريم.السنة النبوية الشريفة.أفواه الصحابة الكرام. أولا: القرآن الكريم كُتب القرآن الكريم بين يدي رسول الله صلى الله عليه وسلم، فكان يأتي جبريل عليه السلام وكان يأخذ منه النبي صلى الله عليه وسلم ويملي ويكتب الكتاب. لكن ما حدث في عصر الصديق فهو تدوين القرآن الكريم وليس كتابته، فهناك كتابة وهناك تدوين، هناك كتابة وهناك جمع. ثانيا: كتابة السنة النبوية السنة النبوية المطهرة كُتبت كذلك في عصره صلى الله عليه وسلم، في أول الأمر نهاهم أن يكتبوا غير القرآن حتى لا يختلط القرآن بغيره. ثم من بعدها أذن لهم صلى الله عليه وسلم في الكتابة فقال: (اكتُبْ فوالذي نفسي بيدِه ما يخرجُ منه إلا الحقُّ). (صحيح الجامع:1196) ثالثا: الصحابة الكرام الصحابة الكرام رضوان الله عليهم عاشوا بعد النبي صلى الله عليه وسلم ومن حمل حديثاً بلغه، ما كتم أحد منهم شيئاً سمعه من رسول الله صلى الله عليه وسلم. بل كان هناك علم كان يغلب على ظن من تعلمه أنه إذا بلغه يحدث فتوراً في نفوس من يسمعه، فكان يسكت لكن عند الوفاة كان يخاف فكان يبلغ. كما في حديث: (من قال: لا إله إلا اللهُ مخلصًا دخل الجنَّةَ). فظل يحبسه خشي أن يخبر به الناس فيتكلوا، ولما كان في سياقة الموت أخبر به، ومن ثم الصحابة الكرام ما كتموا شيئاً تعلموه من رسول الله صلى الله عليه وسلم. # تدوين السيرة النبوية # دونت السيرة النبوية في آخر القرن الأول الهجري، والتدوين جمع، فضم بعضها إلى بعض فدونت في مصنف في كتاب. والسيرة النبوية بها تدوين مع الاختصار، وتدوين على المذاهب، تدوين السيرة النبوية مع الاختصار يسمى تهذيب السيرة، وتدوينها على المذاهب يسمى تذهيب السيرة، فالتهذيب هو الاختصار، أما التذهيب فهو كتابة الشيء على مذهب من كتبه. وهناك تدوين مع التطويل، وتدوين بالرواية، وتدوين بالدراية، وتدوين على الهوى، وتدوين على مذاهب العلماء. # كتابة السيرة النبوية # كتبت السيرة النبوية على أحجام مختلفة منها المطولات ومنها المختصرات، المطولات هو كتاب متعدد الأجزاء، أما المختصرات فهو جزء واحد. بعد ذلك كتبت السيرة على مذاهب العلماء: أهل الرواية أهل الحديث والأثر كتبوها بالرواية. وأهل الدراية كتبوها نسقاً ولم يعتمدوا الرواية أخذوها كأخبار. بعد ذلك كتبها الجهاديون بمبدأ الجهاد فقط، ثم كتبها الصوفيون بمبدأ التوسل والتبرك بآثار الصالحين، ثم كتبها الليبراليون وجردوها من المعجزات. # الرسالة الخاتمة # أول شئ في السيرة هو النظر في شأن الرسالة الخاتمة أي رسالة سبقت الرسالة الخاتمة؟ رسالة عيسى عليه السلام هي آخر رسالات بني اسرائيل، ورسالة عيسى عليه السلام متممة لرسالة موسى عليه السلام. لذلك قال عيسى عليه السلام: (ما جئت لأنقض بل جئت لأتمم). # علاقة الرسالة الخاتمة بالرسالات السابقة # وعلاقة الرسالة المحمدية بما سبقها من رسالات أنها الرسالة الخاتمة، والرسالة الخاتمة مهيمنة، ودليل الهيمنة أنها مصدقة بما قبلها وزائدة عليها. لذلك وصف الله القرآن فقال: (وَأَنزَلْنَا إِلَيْكَ الْكِتَابَ بِالْحَقِّ مُصَدِّقًا لِّمَا بَيْنَ يَدَيْهِ مِنَ الْكِتَابِ وَمُهَيْمِنًا عَلَيْهِ). (سورة المائدة:48) وقال سبحانه في كتابه: (مَا كَانَ مُحَمَّدٌ أَبَا أَحَدٍ مِنْ رِجَالِكُمْ وَلَكِنْ رَسُولَ اللَّهِ وَخَاتَمَ النَّبِيِّينَ). (سورة الأحزاب:40) لذلك علاقة الرسالة الخاتمة بما قبلها من رسالات أن الأصل واحد، مصدركل الرسالات هو الله رب العالمين، ما من نبي ولا رسول إلا وقد كُلِفَ أن يُبلغ أمته أن اعبدوا الله ما لكم من إله غيره. ليست هناك رسالة إلا وأمرت بتوحيد الله سبحانه وتعالى، ليست هناك رسالة ولا نبوة إلا كُلِفَ النبي أو الرسول بتبليغ الناس توحيد رب العالمين وأن ينبذوا ما سواه. # الشرائع السماوية # الأصل والمصدر واحد إنما الشرائع مختلفة، فعندهم صلوات بكيفيات وعندنا صلوات بكيفيات، وعندهم صيام بكيفيات وعندنا صيام بكيفيات. عندنا ذنوب وهناك سبل للخروج منها، وعندهم ذنوب ولهم سبل تختلف عن سبلنا، كما في رسالة موسى وعيسى عليهما السلام: أن من وقع في جناب الله بالشرك توبته لا تكون إلا بقتل نفسه. وفي سورة البقرة الآيات واضحة: (وَإِذْ قَالَ مُوسَىٰ لِقَوْمِهِ يَا قَوْمِ إِنَّكُمْ ظَلَمْتُمْ أَنفُسَكُم بِاتِّخَاذِكُمُ الْعِجْلَ فَتُوبُوا إِلَىٰ بَارِئِكُمْ فَاقْتُلُوا أَنفُسَكُمْ ذَٰلِكُمْ خَيْرٌ لَّكُمْ عِندَ بَارِئِكُمْ). لكن عندنا في شريعتنا الأمر أيسر الأمر أخف، حتى ولو كان الشرك فالخروج منه يكون بتركه والاشتغال في الصالحات والتوبة والعزم على عدم الرجوع. لذلك ستعرف من خلال السيرة النبوية أن الصحابة الكرام الذين ولدوا في الجاهلية فعلوا الأفاعيل في جاهليتهم، عبدوا الأحجار بل وصنعوا من العجوة أصناما فعبدوها ولما جاعوا أكلوها. ثم لما خرج فيهم النبي صلى الله عليه وسلم بدعوتهم إلى التوحيد وانصاعوا لم يعاقبهم الله بما مضى، بل عافاهم مما وقعوا فيه ومسح الإسلام قديم صفحاتهم. لذلك إخوتي الكرام هذه علاقة الرسالة الخاتمة بما قبلها، ومن ثم قال النبي صلى الله عليه وسلم: (الأنْبياءُ أوْلادُ عَلَّاتٍ؛ أُمَّهاتُهُمْ شَتَّى، و دِينُهُمْ واحِدٌ). (صحيح الجامع:1452) بنو علات يعني إخوة، والدين: (إِنَّ الدِّينَ عِندَ اللَّهِ الْإِسْلَامُ) به جاء كل الأنبياء، والأمهات هي الرسائل السماوية أي الشرائع: (لِكُلٍّ جَعَلْنَا مِنكُمْ شِرْعَةً وَمِنْهَاجًا). # العالم قبل الرسالة الخاتمة # اختص الله تعالى الجزيرة العربية فجعلها مهداً للرسالة الخاتمة، في كتب أهل الكتاب أن النبوة الخاتمة لا تكون إلا في العرب، وأين كان العرب وقت ذاك في العالم؟ كانت في العالم قوتان متصارعتان الروم والفرس، الدولة الرومانية البيزنطية وكانت دولة مستغلة مستفذة شأنها هو الشأن الحالي لم يختلف كثيراً وكانت محتلة شمال آسيا وشمال أفريقيا. وكان هناك الفرس وهم اليوم السوفييت وايران وكان الفرس يومها أقوى من الروم. وكان هناك الهند وكانت بها عدد كثير ولكنها همجية لم يكن فيها ترتيب، إنما كان فيها جهل كبير وكان المجتمع وقتها مجتمع طبقي. وكانت اليونان شأنها في القديم شأنها في الحديث لا دين ولا شيء، ما كان بينهم إلا الجدل والسفسطة وهي كثرة الكلام فقط ولا زيادة. لم يكن هناك أمة فيها هدوء إلا العرب أرض هادئة لم يدخلها ثقافات، ومعلوم أن الأرض التي لم يزرع فيها من قبل تقبل ما يلقى فيها. # عبادة الأصنام # والأصنام لم تكن في العرب من بعيد إنما من قريب فقد أتى بها عمر بن لحي وهو رجل عربي كان يسافر في تجاراته ما بين الشمال في الشام والجنوب في اليمن، وهو في الشام رأى أصناما تباع فسأل عنها، فقالوا: هذه نعبدها، فأتى بصنم ومن بعدها انتشرت الأصنام، لكن لم يكن لها في الجزيرة أساس. وجاءت الأصنام من الديانة المحرفة، اليهودية كانت رسالة لكن حرفها من دانوا بها وبقيت اليهودية عبارة عن طقوس أيام يحتفلون فيها. ثم انتشرت فيها الوثنية والنبي صلى الله عليه وسلم قال: (لَعَنَ اللَّهُ اليَهُودَ والنَّصَارَى، اتَّخَذُوا قُبُورَ أنْبِيَائِهِمْ مَسَاجِدَ). (صحيح مسلم:530) ومن ثم لما مات نبيهم صوروه وبعد ذلك رسموها وبدأوا يعبدونها من دون الله، والقرآن قص علينا هذا أن اليهود عبدوا العزير وأن النصارى عبدوا المسيح عليه السلام. فمن هنا جاءت فكرة الأصنام من أهل الكتاب من خلال اختلاط العرب بهم في تجاراتهم، رأوهم يعبدون الأصنام فجاءوا بالأصنام ثم جعلوها في الجزيرة العربية. # صفات العرب # العرب في أصلهم أهل النجدة والشرف والكرم وهم أهل أخلاق، فالهند ليس بها أخلاق وفي الفرس كان فيها نكاح المحارم وفي الرومان الزنا والخنا والفجور على مصراعيه. حتى دور البغاء لم تكن عريقة في العرب إنما جاءت من الخارج، لكن في أصلهم كانوا يعيبوا الزنا. ولعلك تعرف هذا من أول لقاء لهند بنت عتبة زوجة أبي سفيان أم معاوية مع رسول الله صلى الله عليه وسلم في بيعة النساء، لما بايع النبي صلى الله عليه وسلم النساء ألا يزنين تكلمت هند وقالت: أو تزني الحرة؟. لأن العرب أهل نجدة وأهل شرف لم يكونوا أهل بغاء وزنا أبداً وما اشتهر هذا إلا في الايماء، والجزيرة العربية فيها بقايا ديانة فيها بقايا الحنيفية بقايا ملة ابراهيم عليه السلام. وبقية الحنيفية متمثلة في البيت الحرام في الجزيرة العربية في مكة المكرمة، والبيت الحرام حجه كل الأنبياء، فعيسى عليه السلام حج في مكة وموسى عليه السلام حج في مكة لأن هذا البيت ليس غيره يقصد. وإياك أن تظن أن المسجد الأقصى نسأل الله له العافية يحج إليه حتى من أهل الكتاب، الحج كله إلى البيت الحرام حجه جميع الأنبياء. وكذلك من مميزات الجزيرة العربية لعلها وسط الكرة الأرضية كما قال الله في كتابه: (وَكَذَلِكَ أَوْحَيْنَا إِلَيْكَ قُرْآنًا عَرَبِيًّا لِتُنْذِرَ أُمَّ الْقُرَى وَمَنْ حَوْلَهَا). (سورة الشورى:7)

السلام عليكم ورحمة الله وبركاته . كما وعدتكم الاصدارالثاني لبرنامج صانع القوائم فى البداية هذا العمل مجاني لوجة الله ولكن اتمنى مزيد من التفاعل لارتقاء العمل وحس المساعدة بيننا فالصدار الاول تخطي 550 مشاهدة و 7 ردود فقط فأذا تخطي هذا المشروع 100 رد يكون المشروع الثاني مفاجأه وهو ارسال رسائل SMS مجاناً معتمداً على الباقة المتوفرة من شركة جوالك دون تكلفة اضافية او وسيط والان فيديو شرح البرنامج : لتحميل البرنامج : https://www.mediafire.com/file/z17cd3rpjtikyxi/ARM.exe مساعدة من الخبراء ان أمكن هل من الممكن تشغيل سكريبتك بالاكسس دون الحجة لتفعيله يدوياً كما موضح بأخر الفيديو مع العلم باننى قمت بمحاولات لا تحصي ولكن لا يعمل بالجودة المطلوبة . ثانياً تشغيل زر تصدير الدوال حتى يقوم الصانع بتصدير الدوال والجدول المخصص للشريط دون الحاجة لاستردادهم يدوياً . ولكم جزيل الشكر .

السلام عليكم 🙂 لتعم الفائدة ، رجاء قراءة الطريقة السابقة ، والتي يمكن قراءتها من هنا : https://www.officena.net/ib/topic/107637-اجعل-برنامجك-يعمل-على-النواتين-32بت-و-64بت/ ------------------------------------------------------------------------------------------------------------------ اذا عملنا برنامج على الاكسس 32بت ، وفيه مكتبات الوندوز الـ 32بت (لاحظ الرقم 32 في اسم المكتبة: comdlg32.dll) ، ثم شغلنا البرنامج على اكسس 64بت ، فنحصل على هذا الخطأ : . للعمل بهذه الطريقة محتاجين الى: 1. ملف في موقع مايكروسوف (مرفق نسخة Win32API_PtrSafe.zip) ، وفيه طريقة عمل مناداة النواتين : https://www.microsoft.com/en-us/download/details.aspx?id=9970 وعند فك الملف ، سنستعين بالملف Win32API_PtrSafe.TXT ، 2. البرنامج Notepad++ المجاني ، ويمكن انزاله من هنا : https://notepad-plus-plus.org بعد تنصيب البرنامج ++Notepad ، يمكننا فتح الملف Win32API_PtrSafe.TXT به : هذا البرنامج يفهم تنسيق وعمل الكثير من لغات البرمجة ، ومنها VB ، ونستفيد منه حتى في برمجة كود VBE لأنه يفهم تنسيقها: . ------------------------------------------------------------------------------------------------------------------ سنستخدم المرفق في هذ الرابط لنجعله يعمل على النواتين 32بت و 64بت: https://www.officena.net/ib/topic/61106-هدية-من-اليمين-الى-اليسار،-مربع-القائمة-listbox-والشجرة-treeview/ هذه هي مكتبات 32بت الوندوز المستعمله في المرفق: Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long . خطوات العمل: A. ننسخ اسم المكتبة GetWindowLong من برنامج الاكسس ، B. ثم في برنامج ++Notepad ، نبحث عن هذه الكلمة عن طريق Ctrl+F ، C. فنضع الكلمة مكان البحث ، وننقر على المربع: Find All in Current Document . D. نرى هذ النافذة تُفتح في اسفل البرنامج ، اهم شيء في هذه النافذه هو ان نفرق بين كلمة البحث التي نريدها ، ونفرقها عن كلمات البحث المشابهه والتي لا علاقة لنا بها (يجب ملاحظة ان بعض البرامج/الامثلة التي ننزلها من الانترنت ، يكون صاحبها عمل تغيير في اسم المكتبة ، مثلا: بدل GetWindowLong يكون apiGetWindowLong ، فيجب ان نعرف انه نفس الاسم ، ونبحث عن الكلمة الاصل ، كما نلاحظ ان تعديل الاسم يتم من بدايته وليس من نهايته) . E. اذن نرى هنا ان آخر سطرين فيهما طلبنا ، F. ندقق في السطر ، ونبحث عن اي كلمة تنتهي بـ Ptr ، مثل LongPtr ، CLngPtr ، VarPtr ، ObjPtr ، StrPtr ، او الكلمات التالية LongLong ، CLngLng ، فاذا وجدناها ، اذن يجب التصريح لهذه المكتبة في الكود في برنامجنا على سطرين مختلفين ، السطر الاول للنواة 64 بت ، ونأخذه من برنرنامج ++Notepad ، والسطر الثاني للنواة 32 بت ، ونأخذه من برنامجنا الاصل ، هكذا : #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long #End If . *** الخطوة الاولى والاهم هي اضافة كلمة PtrSafe بعد كلمة Declare ، للنواة 64بت. *** لاحظ اننا اضفنا كلمة Public في اول السطر للنواتين ، *** وبعد كل خطوة نعملها ، يجب ان نعمل Compile :على الاكسس 32 بت والاكسس 64 بت :حتى نتأكد انه لا توجد اخطاء ونتبع نفس الخطوات اعلاه لبقية المكتبات ، المكتبة التاليه: SetWindowLong ، والنتيجة نفسها مثل المكتبة السابقة ، اذن الكود اصبح #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If . وهكذا مع بقية المكتبات ، فيكون الكود النهائي: #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Public Declare PtrSafe Function GetFocus Lib "user32" Alias "GetFocus" () As LongPtr Public Declare PtrSafe Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long #End If . الآن لنفترض ان لدينا هذه المكتبة كذلك: Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) . نلاحظ في البحث انه لا توجد لدينا اي من كلمات التي ذكرناها في #F اعلاه . اذن نكتب السطر (من برنامجنا ذو 32 بت) نفسه مرتين ، مرة للنواة 64 بت ، ومرة للنواة 32 بت ، فيصبح الكود (الفرق بين السطرين هي كلمة PtrSafe) : #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else '32 bits Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If او #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else '32 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If او سطر واحد مستقلا Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) ------------------------------------------------------------------------------------------------------------------ 2021-11-20 : اخوي @عبدالله المجرب نبهني عند استخدام الاكسس 64بت ، يظهور خطأ في مرفق الرابط: https://www.officena.net/ib/topic/64989-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل-،-32بت-و-64بت/ لما نعمل Compile للبرنامج على كمبيوتر به اكسس 64بت ، تظهر هذه الرسالة ، واللي معناها مافي توافق في تعريف المتغير (يعني جزء من سطر الكود تم تعريفه بطريقة ، وجزء آخر من سطر الكود تم تعريفه بطريقة لا تتلائم مع المتغير السابق ، وابسط مثال: متغير تم تعريفه كنص ، ثم تعطي قيمته الى متغير آخر تم تعريفه كرقم) : . من الملاحظة ، نرى انه بما اننا نستخدم اكسس 64بت ، فتعريف المكتبة ShellExecute يكون عن طريق (VB7) ، وتعريفها انها LongPtr ، بينما في الكود ، اعطينا قيمة ShellExecute الى المتغير lRet والذي تم تعريفه على انه Long ، لهذا السبب لا يوجد توافق بين المتغيرين ، وعليه نحصل على الخطأ !! هناك حلين للموضوع: إما ان نعمل if VBA7 then# خاص للمتغير lRet لحالتي 32بت و 64بت ، او نحذف تعريف المتغير lRet من الكود ، ونضعه في الاعلى ، مع تعريف المكتبة ShellExecute ، وهذا ما قمت به: . وبعد عمل Comiple مرة اخرى ، نحصل على خطأ مشابه للخطأ اعلاه ، ولكن لمكتبة اخرى : . والحل ، كما عملته للمشكلة السابقة ، فيصبح الكود : . وبعد عمل Compile مرة اخرى ، نجد ان الكود يعمل بدون اخطاء 🙂 ------------------------------------------------------------------------------------------------------------------ 2021-11-23: اخوي @ابا جودى طلب مساعدة في برنامجه ، ليعمل على النواتين: https://www.officena.net/ib/topic/111963-سؤال-بخصوص-التعديل-على-قاعدة-بيانات-لتعمل-على-32-64-bit/ والشيء الجديد فيه والذي لم يتم شرحه سابقا هو: المتغير hIcon (باللون الاصفر) ، تعريفه يعتمد على النواة : . وعندنا هذه الدالة fSetIcon ومعرفها Long ، وفي الدالة ، نعطي نتيجة hIcon الى fSetIcon . المشكلة لما نواة البرنامج تكون 64بت ، فحينها يكون معرف الحقل hIcon هو LongPtr ، بينما الدالة fSetIcon لا يزال معرفها Long ، وهنا نحصل على رسالة خطأ بعدم تطابق معرف الحقلين !! والطريقة التي استعملتها هي: استعمال الدالة مرتين ، مرة بمعرف LongPtr اذا كانت النواة 64بت ، ومرة بمعرف Long اذا لم تكن النواة 64بت : . وعلشان نعرف ان البرنامج تقبل هذا التغيير ، يجب ان نعمل Compile 🙂 جعفر Win32API_PtrSafe (2).zip

نعم أخي العزيز .. يمكنك ذلك والمواضيع المطروحة في هذا المجال كثيرة .. خذ على سبيل المثال :

تم الحل أخي الحلبي ولله الحمد بهذه الدالة : Private Function NoEntry() If xtyp = "" Or IsNull(xtyp) Then Me.AllowEdits = False MsgBox "لا يمكن التسجيل الا بعد تعبئة حقل نوع الفاتورة" Me.xtyp.SetFocus Else Me.AllowEdits = True End If End Function تحدد جميع العناصر وتضع في حدث عند التركيز اسم الدالة هكذا بهذه الصورة : =NoEntry() وهذا هو الملف امكانية التسجيل2.accdb

يمكنك استعمال هذه المعادلة في الخلية B2 =IF(A2="","لايوجد رقم","الرقم "&IF(COUNTIF(C:C,A2)>0,"","غير ")&"موجود") وهذه في D2 =IF(C2="","لايوجد رقم","الرقم "&IF(COUNTIF(A:A,C2)>0,"","غير ")&"موجود") بالتوفيق

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

جزيل الشكر Moosak جزيل الشكر د.كاف يار

تحتاج فقط إلى ضبط عرض الأعمدة سواء في خصائص العنصر أو بالكود التالي Private Sub UserForm_Activate() CM_ListFind.ColumnWidths = "40,80,200,110,80,80,80" End Sub مع تحريك العناوين الموجودة فوق القائمة ويفضل جعل محاذاة القائمة يمين وليس توسيط بالتوفيق

Sub test() Dim count As Long With Sheets(1) On Error Resume Next count = InputBox("أدخل العدد المطلوب", "دخال") If count <> 0 Then a = Application.Transpose(Array(Application.Transpose(Evaluate("row(1:" & count & ")")) _ , Application.Transpose(.Cells(1, 1).Resize(count)))) With Sheets(2) .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 9).ClearContents r = 1 For i = 0 To count / 3 Step 21 For ii = 1 To 8 Step 3 .Cells(2 + i, ii).Resize(21, 2) = WorksheetFunction.IfError(Application.Index _ (a, Evaluate("row(" & r & ":" & 21 + r & ")"), Array(1, 2)), "") r = r + 21 Next: Next End With Else: MsgBox "أدخل عدد", vbCritical, "خطأ بالإدخال" End If End With End Sub في حال خطأ في الإدخال

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

تفضل هذا التعديل remain.accdb

طيب جرب هذا تصدير اكسل.zip

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

جرب هذا الملف .. ان كنت لم تتحصل على اجابة بعد .. واعمل لي اشارة هل اشتغل عندك والا لا ؟ التفقيط.xlsm

اضف المكتبة التقرير لا علاقة له بالتصدير فقط جدول البيانات من خلال الكود

تفضل التعديل تصدير اكسل.zip التصدير من داخل التقرير

ملاحظة الـ TabTip لا يعمل مع ويندوز 11

أخي العزيز في الملف السابق يتم التحديد من الشيت الأول الخلية F1 على كل استبدل الكود بهذا الكود وهو محدث عم السابق و... عسى يكون المطلوب Sub test() Dim count As Long With Sheets(1) count = InputBox("أدخل العدد المطلوب", "دخال") a = Application.Transpose(Array(Application.Transpose(Evaluate("row(1:" & count & ")")) _ , Application.Transpose(.Cells(1, 1).Resize(count)))) With Sheets(2) .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 9).ClearContents r = 1 For i = 0 To count / 3 Step 21 For ii = 1 To 8 Step 3 .Cells(2 + i, ii).Resize(21, 2) = WorksheetFunction.IfError(Application.Index _ (a, Evaluate("row(" & r & ":" & 21 + r & ")"), Array(1, 2)), "") r = r + 21 Next: Next End With End With End Sub AA.xlsm

Suppose date in cell A1, put the following formula in C1 and drag =IF(WORKDAY.INTL($A$1-1,COLUMN(A1),"0000110")>EOMONTH($A$1,0),"",WORKDAY.INTL($A$1-1,COLUMN(A1),"0000110")

ممكن تعملها بالتنسيق الشرطي أيضا .. تتفعل معك على طول . Bold2.accdb

في حدث بعد التحديث ضع التالي With [Text1] If .Text = "Positive" Or StrText1 = "Positive" Then .FontBold = True End If End With

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

good luck.. teatv spice money login

بالتوفيق للجميع

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

بدون مقاابل Tutuapp 9Apps Showbox

فيها إيه (مصر بعد الثورة) فيها إيه لو كل مَن بيطبّل للزعيم ساب طبلته وقعد يخلّص شغلته مسكين زعيمنا اللي يحب الناس تقول عاش حضرته لو مرة دام الكرسي لحد كان دام عليه وفيها إيه لو كل واحد منّنا عاش يوم نضيف عاش يوم نضيف اسماً وفعلاً لو كفيف مش بس اسمه يكون نضيف ولا بس شكله يكون نضيف دا كل حتة ف مصرنا محتاجة منّا جهدنا نرفعها بيه وفيها إيه لو كل مسئول منّنا حس إنه مسئول عنّنا وسهر بيحمل همّنا همّه يزوّد دخلنا لجل ما يحبه الجميع ويكونوله ف يوم شفيع يطلبوا من ربنا ارضى يا ربي عليه وفيها إيه لو كل طالب ف المدارس شاف زميله أخ لِيه مش خصم ليه ليه يضربه؟! ليه عايزه دايما تحت منّه ويتبعه؟! لو ضعيف ميعرّفه يتعاون الاتنين وياخدو من إديه وفيها إيه لو كل ماشي ف الطريق بقة للإشارة محترم وجنب منّه أخوه وأخته أبوه وابنه فيلتزم هتقلّ حوادثنا الكتيرة هنبني أعلى م الهرم مش محتاجين جندي مرور تدفع إذا عدّيت عليه وفيها إيه لو يوم بتقضي مصلحة من مصلحة من غير ما تدفع حتى لو سموه تبرُّع ميجيش صاحبنا يقول يا سيد فوت علينا بكرة لسة ناقصة ختم النسر مش بالأكلا شيه وفيها إيه لو يوم بتتدخل قسم شرطة يقوموا ليك والظابط ابن الناس يكون قلبه عليك شغّل عساكره لخدمتك ومبعش يومها قضيتك والحق عاد ..... يكفيك تقول مشكور يا بيه وفيها إيه لو كل رواتبنا ف مصر اتعدّلت اتوحّدت مش ناس بتاخد بالألافات عايزين تزيد وناس بتاخد بالملايين من غير حساب بقة له رصيد وناس بتاخد بالملاليم ما شافتش عيد ويعيشوا ليه وفيها إيه أستاذنا اللي بيبني عقول ميكونش ليه زي البترول ولا وزارة الاتصالات ولا الرياضة والإعلام رغم ان كل الناس ف نهضتها كانت بدايتها من التعليم عايزينها تعلى وتبقى أعلى دولة ف العالم دا كله صلّحوا التعليم هتلقوا كل حاجة بقت تمام وتعظيم سلام لكل اللي هيبنيها من العامل لحد البيه وفيها إيه لو يوم نلاقي رئيسنا بيمشي ف الشارع على رجليه من غير حرس من غير مواكب أو جرس يرعى حبايبه المحتاجين الكل لما يشوفه هيبوسه ويسلّم عليه وفيها إيه جوايا لسة حاجات كتير عايزين نغيرها سوا كل اللي بيشوف الفساد عنده الدوا اصرخ وقول لأ واشتكي هتلاقي ميت مليون شَريف واقفين معاك ضد الفساد لو هتلاقيه وفيها إيه وفي البداية أطلب من الإخوة التعليق الجاد والتعبير عن كل سلبية يرونها لتكون هذه القصيدة للشعب المصري كله أخوكم Source: فيها إيه

نعم هي من تأليفي فبعض الأوقات تجود قريحتي ببعض الشعر والزجل وفقنا الله لكل ما يحب ويرضى

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

بفضل الله تم تحديث برمجة الصفحة : * استخدام خاصية الموقع location لتحديد خط الطول ودائرة العرض وفارق التوقيت * عرض خريطة للموقع * إمكانية البحث عن أي مكان في العالم وبأي لغة * عرض مواقيت الصلاة بصورة شهرية * إمكانية التنقل لجميع الشهور وكذلك التنقل بين الأعوام وهذا رابط الصفحة الجديد http://officena.net/team/mas/monthlyprayers.html بانتظار آارئكم ومقترحاتكم

أخي الكريم أبا ردينة هذا هو الكود الخاص بالصفحة لمن يريد وضعه في موقعه newprayer.rar

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

شكرا لمرورك أخي عبد الله نفعنا الله وإياكم به ورزقنا حفظ كتابه الكريم

أسعدني مرورك أخي الكريم ابو أحمد نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا آمين

بعد إذن أخي أخي حسن موضوع التفقيط العربي بصورة صحيحة مائة بالمائة من حيث قواعد اللغة العربية لم أجده في أي ملف للتفقيط فعزمت على إنشاء دالة تقوم بهذا الغرض والحمد لله انتهيت منها كدالة تصلح لبرمجة المواقع بلغة php وسأعمل جاهدا لتحويلها بنفس الصفات ومراعاة القواعد إلى vba تجدون هذه الدالة هنا http://www.officena.net/ib/index.php?showtopic=36080 وانتظروها مني كدالة تصلح للعمل بها في إكسل وأكسس والفيجوال بيسك بإذن الله