أبو آدم

أخي العزيز الكلام واضح ، ولكن طلب واضح مع مرفق لغايات التعديل ... يكون عونا لك ولنا ................

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

إخوتي في الله أسأل الله العظيم رب العرش العظيم أن يبارك بكم و لكم دعواتكم الطيبات ... كان لها بالغ الأثر في نفسي ، وأهل بيتي ، في أيام إبتلاء حافلات دعونا لكم بظهر الغيب كما دعوتم وسألنا الله لكم صلاح الحال وعموم النعم وبعد الدعاء لكم ، لا أقول اليوم إلا .... أبلغ حبيباً في ثنايا القلبِ منزلُه ... أنّي وإن كنتُ لا ألقاهُ ألقاهُ وأنّ طرفي موصولٌ برؤيته ... وإن تباعدَ عن سكنايَ سُكناهُ ياليته يعلمُ أنّي لستُ أذكرُه ... إذ كيفَ أذكره ولستُ أنساهُ! لا أنسى منكم أحدا ... فمثلكم لا ينسى ،،،، لا أخص أحدا ، فكلكم خاصتي وإخوتي ... وأحبتي في الله ...............

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

لا إله إلا الله العظيم الحليم ، لا إله إلا الله رب العرش العظيم ، لا إله إلا الله رب السماوات ورب الأرض ورب العرش الكريم يا حي يا قيوم برحمتك أستغيث يا حي يا قيوم برحمتك أستغيث يا حي يا قيوم برحمتك أستغيث لا إله إلا أنت سبحانك إني كنت من الظالمين لا إله إلا أنت سبحانك إني كنت من الظالمين لا إله إلا أنت سبحانك إني كنت من الظالمين يا مغيث أغثني يا مغيث أغثني يا مغيث أغثني أَمَّن يُجِيبُ الْمُضْطَرَّ إِذَا دَعَاهُ وَيَكْشِفُ السُّوءَ اللهم إني عبدك وابن عبدك وابن أمتك ناصيتي بيدك ماض في حكمك عدل في قضاؤك ، أسألك بكل اسم هو لك سميت به نفسك أو أنزلته في كتابك أو علمته أحدا من خلقك أو استأثرت به في علم الغيب عندك أن تجعل القرآن ربيع قلبي و نور صدري وجلاء حزني وذهاب همي اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ يا ودود ، يا ذو العرش المجيد، يا فعالاً لما يريد، أسألك بعز وجهك الكريم، وبملكك الذي لا يضام ، وبنور وجهك الذي ملأ أركان عرشك أن ترفع عني الإبتلاء وتأذن بالشفاء وصلى الله وسلم على محمد وآله وصحبه أجمعين

السلام عليكم ورحمة الله وبركاته أعجز الآن عن الرد كما يجب ولكن ... لا أقول إلا ... جزيتم عني خيرا اللهم آمين ... اللهم آمين ... اللهم آمين

بارك الله لكم وبكم جميعا أسال الله أن يوفقكم ........

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

أكرمك الله ورفع قدرك سررت بمرورك الطيب ..........

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

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

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

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

إخوتي في الله ارفق لكم ملفا ، من مكتبتي فيه تطبيقات إستفدت وتعلمت منها الكثير ، أدركت ما قدر لي منها ، وأسعى لفهم وتجربة الباقي. ومن باب حبي لكم ، سعيا وأملا في عموم الفائدة ، رغم أن ما فيه قليل بالنسبة لكم ، لكنني أسأل الله أن تتحقق منه فائدة أؤجر عليها تفضلوا ... نقل للفائدة .......... Fabulous Filters.rar

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

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

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

أخي العزيز جزيت خيرا على جهدك الطيب ................

معايير التقرير (التاريخ) ...... report parameters غالبا ما نستخدم حصر نتائج التقرير بين تاريخين ، تاريخ بداية و تاريخ نهاية ، وكل له فيها طريقة ، اريد انشاء نموذج لتمرير التواريخ للتقرير ، التقارير عندي يومية واسبوعية وشهرية وسنوية (لنفس التقرير) ، اريد طريقة بحيث لا اضطر لكتابة التواريخ وإحتساب الفترات ، أو استخدام التقويم ؟!! بسيطة ... ننشيئ النموذج بمربعي نص الاول txtdatefrom لتاريخ البداية ، والثاني txtDateTo لتاريخ النهاية ، ثم ننشيئ أربعة أزرار أمر : الاول لضبط نطاق التاريخ للتقرير اليومي ، ونسميه cmdtoday ، ونضع خلفه الكود Private Sub cmdtoday_Click() Me!txtdatefrom = Date Me!txtDateTo = Date End Sub الثاني لضبط نطاق التاريخ الاسبوعي ، ونسميه cmdweek ، ونضع خلفه الكود Private Sub cmdweek_Click() Dim today today = Weekday(Date) Me!txtdatefrom = DateAdd("d", (today * -1) + 2, Date) Me!txtDateTo = DateAdd("d", 6 - today, Date) End Sub الثالث لضبط نطاق التاريخ الشهري ، ونسميه cmdmonth ، ونضع خلفه الكود Private Sub cmdmonth_Click() Me!txtdatefrom = CDate("01/" & Month(Date) & "/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("m", 1, Me!txtdatefrom)) End Sub والرابع لضبط نطاق التاريخ السنوي ، ونسميه cmdyear ، ونضع خلفه الكود Private Sub cmdyear_Click() Me!txtdatefrom = CDate("01/01/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("yyyy", 1, Me!txtdatefrom)) End Sub وأخيرا ننشيئ زر أمر للتأكد من ادخال البيانات الى الحقلين المعنيين ، ثم للطباعة أو الغاء الامر ، ونسميه cmdReport ، ونضع خلفه الكود Private Sub cmdReport_Click() On Error GoTo Err_cmdReport_Click Dim stDocName As String stDocName = "rptDateParameterReport" If Len(Me.txtdatefrom & vbNullString) = 0 Or Len(Me.txtDateTo & vbNullString) = 0 Then MsgBox "Please ensure that a report date range is entered into the form", _ vbInformation, "Required Data..." Exit Sub Else DoCmd.OpenReport stDocName, acPreview End If Exit_cmdReport_Click: Exit Sub Err_cmdReport_Click: MsgBox Err.Description Resume Exit_cmdReport_Click End Sub وكفى ... وصحتين وعافية ... جرب ..........

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

أزعجناك بهذه المسألة ، فجزيت خيرا نعم أخي الأزرار الثلاثة ............

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

أخي العزيز مبدئيا ،، افتح النموذج بوضع التصميم ، ومن شريط الادوات >> إدراج >> مخطط ............. Insert >> Chart تم اتبع المعالج ... وقرر ما تريد ........ .....................

بناء الجمل ومحددات الصيغ ......... The syntax & delimiters عند كتابة معايير لقيمة منطقية (صواب/خطأ)، أرقام، السلاسل، والتواريخ، يتطلب بناء الجملة محددات للسلاسل (الجمل) والتواريخ. ويكون بناء الجملة في حالاتها كما يلي : للقيم المنطقية والارقام لا نستخدم شيئا مميزا >> Boolean & numbers x = DLookUp("[MyField]", "MyTable", "[OtherField] = " & Me.txtTextbox سلاسل استخدام صيغ (أو "علامات الاقتباس المفردة"). >> Strings x = DLookUp("[MyField]", "MyTable", "[OtherField] = '" & Me.txtTextbox & "'" وللتاريخ تستخدم الصيغة الخاصة بها مع علامة المربع المشهورة. >> Dates x = DLookUp("[MyField]", "MyTable", "[OtherField] = #" & Me.txtTextbox & "#"

أخي Ksmn64 بانتظار دافقات الخير من مضاربكم وانا في العون ما قدر لي ذلك ..............