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

وتماما للفائدة أحب أن أقدم تفاصيل التجربة لتعم الفائدة وأشارك الأساتذة الكرام بالأجر أولا - استخدام نسخة الأكسس الانكليزية عند تصميم البرنامج سيحد من حدوث هذه المشكلة التى عانيت منها لذا أنصح باستخدامها اخوتى المبتدئين أمثالى - ومن أراد التحول الى النسخة الانجليزية فلا داعى لتسطيب النسخة من جديد بل كل ما عليك فعله تغير اعدادات اللغة بالأكسس من العربية <افتراضى> الى الانجليزية <افتراضى> ثانيا - وهو الخيار الصعب اذا كنت قد قمت بتصميم البرنامج ثم لم يعمل معك على جهاز آخر _ أو أنك تريد العمل على النسخة العربية من الأكسس فلا بد من أن لا يكون أحد عناصر التحكم اسمه بحروف عربية وأعنى بكلمة اسمه خاصية Name وليس Caption فلا يضر ان كانت خاصية Caption تحوى حروف عربية ........ وكذلك لا بد من تغير اسم عنصر التحكم سواء كان خلفه كود أو لم يكن وكذلك أسماء الجداول - الاستعلامات - النماذج - التقارير - الماكرو - الوحدات النمطية - .. لا بد أن تكون هى ومكوناتها مسماة بحروف غير عربية - للأسف - وقد صنعت أداة بدائية لتغير أسماء عناصر التحكم بالنماذج والتقارير بشكل سريع لتوفير العناء بهذه المرحلة وكذلك لا يجب أن يحوى محرر الفجوال بسك على حروف عربية كنصوص الرسائل وغيرها وقد استخدمت أداة لصناعة الرسائل الفضل يعود فى صناعتها لله ثم للأستاذ جعفر وبامكانك استخدامها ببرامجك المختلفة فهى سهلة الاستخدام كل ما عليك فعله هو تصدير الفورم و الجدول الى برنامجك وفقط وكل ما عليك فعله بعد حفظ الرسائل من خلال الفورم ومعرفة رقم الرسالة هو أن تستدعيها بهذا الأمر MakeMsg(1) ' 'أو If MakeMsg(1) = VbYes then ثالثا - وهذه المعضلة التى واجهتها فى النهاية وقد من الله على بهذا الحل وهو: أن تنشأ ملف أكسس جديد فارغ ثم تستورد اليه كل مكونات برنامجك القديم - فإن محرر الفجول يحتفظ بأسماء عناصر التحكم القيمة حتى بعد تغيرها ولا أدرى لماذا ولم تفلح معه عملية الضغط والاصلاح ولكن انتهت المشكلة بعد ععملية الاستيراد والحمد لله هذه تفاصيل التجربة لعل الله أن ينفع بها وآسف على الاطالة

أخي العزيز صلاح حاول أن تقوم بتوضيح طلبك بشكل أفضل .. لم أفهم وجهة نظرك أو طلبك في الموضوع بشكل كامل ولكن على حسب ما أعتقد - وإن كنت لا أحب تقديم الحلول إطلاقاً على حساب التخمين والاحتمالات - إليك الكود التالي عله يفي بالغرض .. يقوم الكود بعمل حلقة تكرارية في ورق العمل الثانية ويقوم بالبحث باستخدام دالة Vlookup ولكن باستخدام الكود .. Sub Test() Dim Ws As Worksheet, Sh As Worksheet, Rng As Range, I As Long Set Ws = ورقة1: Set Sh = ورقة2 Set Rng = Ws.Range("A2:B" & Ws.Cells(Rows.Count, 1).End(xlUp).Row) For I = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row On Error Resume Next Sh.Cells(I, 2).Value = Application.WorksheetFunction.VLookup(Sh.Cells(I, 1).Value, Rng, 2, 0) Next I End Sub أرجو أن يكون المطلوب إن شاء الله تقبل تحياتي

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أحمدي 30 " .. بعد إذن الأخ الفاضل " الجموعي " .. و إضافة لما تقدّم به .. جزاه الله خير الجزاء .. تفضل المرفق .. و بإمكانك التغيير في اسم الشيت و رقم العمود و الصف مثلما تشير الصورة و لمعاينة الصّورة .. فقط إضغط على رابطها بورقة العمل.. روابط الصور سيتم إدراجهم بورقة العمل الواحد بعد الآخر .. لم توضّح أنتَ هذا الأمر .. المهم إذا كنت تنوي إدراج الروابط بنفس الخلية .. فقط قم بمحو الرقم 1 الملوّن بالأصفر .. تحياتي أحمدي.rar

هذا الكلام صحيح ، والطريقة الاصح هي استخدام Recordset لقراءة المعلومة ، وهناك كود لربط الواجهة FE بالجداول BE ، اعتقد يمكن استعماله بتغيير بسيط للتأكد من وجود الشبكة :) انا على سفر ولا املك برامجي لوضع مثال :) جعفر وهناك طريقة سهلة وهي عمل ping للكمبيوتر الذي به الجداول ، ومعرفة اذا كان متصل :-)

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

السلام علكم كمشروع جماعي كان الافضل الا تعرض جميع هذه الكائنات كبداية تعرض الجداول الرئيسية ويتم النقاش حولها ثم يلحقها الجداول الفرعية ويتم القاش حولها ثم الجداول الخدمية ويتم النقاش حولها وهكذا خطوة خطوة وكائن كائن بنظرة خاطفة على الجداول بصورة عامة : الاعداد الفني جيد جدا ، العلاقات مبالغ فيها ، تصور انه يمكن اعداد البرنامج بدون اي علاقة بين الجداول العلاقة بين الجداول توضع غالبا لضبط والتحكم في الادخال وبصورة خاصة : ناخذ جدول tbl_emp 1- وجود اكثير من التكرار في الحقول كود الادارة .. اسم الادارة ، كود المهنة .. اسم المهنة ......... الخ يكفي في الجدول الكود فقط اما الاسماء فتجلب من الجداول الخدمية والا ما فائدة وجودها في قاعدة البيانات هذا مرور خاطف اتمنى ان يتسع صدرك لاراء اخوتك

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

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

جزاك الله كل خير يا ابو البراء على المعلومات البسيطه والقيمه ربنا يرضيك ياغالى

بالنسبة لكود جلب الصورة اليك الكود التالي Private Sub CommandButton2_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) End If End Sub

شوف كدة الاستمارة الالكترونية.rar

http://www.officena.net/team/khboor/kh_image/p22.gif المواضيع الحديثة دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

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

في هذا الموضوع سوف تتعرف على جميع طرق تصوير الشاشة صور و فيديو للكمبيوتر و هواتف الاندرويد و كذلك تحميل افضل برامج تصوير الشاشه برابط مباشر من الموقع الرسمي لتكون قادر على عمل سكرين شوت و كذلك تصوير الشاشة فيديو لعمل الشروحات و شرح شىء معين في الكمبيوتر و رفع الفيديو على اليوت يوب. طريقة تصوير الشاشة للاندرويد هناك طريقتان لتصوير الشاشة لهواتف الاندرويد مثل ساسمونج جلاكسي او هواتف سوني و هي تعتمد على الضغط على ازرار الهاتف سوياً مثل: 1- الضغط على زر قفل الشاشة معه زر الرئيسية الموجود اسفل الهاتف في نفس الوقت و بسرعة و سيقوم بالتقاط صورة للشاشة سكرين شوت 2- الضغط على زر القفل بجانب الجوال و بعده مباشرة زر خفض مستوى الصوت او رفع الصوت على حسب نوع هاتفك يمكنك التجربة بنفسك طريقة تصوير الشاشة للكمبيوتر يوجد طريقة قديمة جداً من ايام ويندوز XP و هي الضغط على زر PRT SC الموجود في لوحة المفاتيح أعلى الاسهم ثم الذهاب الى برنامج الرسام و الضغط على Ctrl + v للصق صورة الشاشة التى تم التقاطها بواسطة الزر و من هنا يمكنك حفظ الصورة اما في ويندوز 7 او 8 او 10 يوجد برنامج يتم تنصيبه تلقائيا مع نسخة الويندوز فقط قم بالبحث عنه في قائمة إبدأ و هو يسمى Snipping Tool سهل و سريع في تحديد جزء معين من الشاشة لالتقاطها اما اذا كنت تريد برامج لتصوير الشاشة فيديو او صور فأرشح لك البرامج التالية 1- برنامج كامتزيا Camtasia يعتبر اشهر برنامج لتصوير الشاشة فيديو و صور و عمل الشروحات و الدروس على شاشة الكمبيوتر و رفعها مباشرة على اليوتيوب جودة عالية و مساحة صغيرة يمكنك الاعتماد على برنامج كامتزيا بشكل كلي لتصوير الشاشة صور و فيديو و ايضاً استخدامه كبرنامج مونتاج و تحرير الفيديو بعد التقاطه فيمكنك تقطيع و قص الفيديو و دمج المقاطع و اضافة النصوص و الصور بكل سهولة، يعتبر برنامج متكامل لـ التعديل على الفيديو شرح تثبيت البرنامج .. قم بالضغط على Next في الصور التالية و عند التسجيل تظهر هذه النافذة لضبط الاعدادات و تحديد الجزء المراد تسجيله فيديو او صورة في الشاشة و هذا هو محرر الفيديو او الصور الخاص بالبرنامج لمونتاج الفيديو بسهولة 2- برنامج سناج ات Snagit هذا البرنامج من نفس انتاج شركة برنامج كامتزيا و هي شركة Techsmith و يعتبر مثله تماماً في الفكرة و لكنه يخدم المستخدم و يريحه بصورة اكبر في عملية الالتقاط و التعديل على الصور و الفيديو بعد التقاطها شرح التثبيت بعد تحميل البرنامج قم بفتحه و الضغط على Install و بعد الانتهاء سيطلب منك الدخول يمكنك انشاء حساب جديد بكل سهولة و هذه هي واجهة البرنامج و محرر الفيديو و الصور و الآن مع تحميل برامج و تطبيقات تصوير الشاشة للكمبيوتر و الاندرويد المصدر: تصوير الشاشة فيديو برنامج سناج ات برنامج كامتزيا برنامج اسكرين شوت للاندرويد

قم بتصوير خلية أو عدة خلايا واعرض الصورة في الفورم cells camera in form.rar

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

تمام اخى عبد العزيز فعلا هتكون فى اللغه لاننى استخدم اللغه الانجليزيه يونايتد والعربيه مصر جزاك الله كل خير معلهش بقا تعبتك ياغالى

ببساطة ممكن نضغ عمود مسلسل1 2 3 4 5 6 وهكذا امام كل اسم رقم ثم من DATA نرتب المسلسل من Z TO A ياتي المطلوب ارجو الرد على الفكرة

عيـــــد الأم.. الأمهات ثكالى.. وأبناؤهن على قيد الحياة..!؟ ومن منا لم يسمع بابناء نسوا حق أمهم عليهم وازدادت مشاغلهم إلى درجة لم يتذكروها حتى في الأعياد والمناسبات؟ وجميع هؤلاء الأمهات صامتات يتألمن لحالهن بصمت مطبق شكواهن دموع تنهمر فقط. ولكن للأسف لقد نسي هؤلاء الأبناء «أن الجنة تحت أقدام الأمهات» ولم يتذكروا قصة الرجل الذي جاء إلى النبي صل الله عليه وسلم يسأله من أحق النّاس بصحبتي قال أمك قال ثم من؟ قال أمك قال ثم من قال أمك قال ثم من؟ قال أباك. ونسوا أيضاً قوله سبحانه وتعالى في كتابه العزيز {وقضى ربك ان لا تعبدوا إلا اياه وبالوالدين إحساناً}. وإذا ابتدع للأم يوم في السنة يحتفل بتكريمها فالحقيقة ان الدين الإسلامي حض على تكريم الأم في كل يوم وفي كل دقيقة والتاريخ لا يعرف ديناً ولا نظاماً كرم المرأة باعتبارها أماً وأعلى من مكانتها مثلما جاء به الإسلام الذي رفع من مكانتها وجعل برها من أصول الفضائل حتى أن رب العزة سبحانه وتعالى قرن برهما والإحسان اليهما بعبادته. وبرها يعني إحسان عشرتها وتوقيرها وخفض الجناح لها وطاعتها في غير معصية والتماس رضاها في كل أمر حتى الجهاد. هذه الأم.. تلك الإنسانة العظيمة التي تنطوي على أكبر معاني الحب والعطاء والحنان والتضحية... هي الصدر الحنون الذي نلقي عليه رأسنا ونشكو إليه همومنا ومتاعبنا... هي عوننا في الدنيا.. تعطينا من دمها وصحتها لنكبر وننشأ أصحاء.. فهل تستحق منا أن نهينها أو نذلها في حياتها... هل تستحق منا أن يكون عيدها يوم محدد فى العام نحسن اليها فيه ونتناسها باقى العام ولكن طغت على مجتمعاتنا سلوكيات سلبية مورست في حقها وأهانتها فوالله الذى لا اله الا هو ان تخصيص يوم واحد فى العام لتكريم الام والتقرب والتودد اليها هو عقوق لها فإنني انصح الأولاد أن كل ثانية تدرك أمك فيها هى عيد ومهما كان هناك من سيئات أو أخطاء وقعت بها الأم سواء قصداً أو عن الخطأ تجاه العائلة فلا يكون هناك مبرر للأولاد ان يكونوا عاقين تجاهها بل عليهم احترامها وتصويب التخاطب معها واقله نصيحتها وعدم الإساءة إليها عملاً بقول الله تعالى {ووصينا الإنسان بوالديه حملته أمه وهناً على وهن وفصاله في عامين* ان اشكر لي ولوالديك إلي المصير}. فهل ننتظر عاماً لنحتفل بهذا اليوم وليوم واحد إذا كان هذا هو الواقع فيا أسفي على باقي أيام السنة. كم وكم من الأقوال التي نرددها في هذه المناسبة وننساها في خارجها ومنها: في الحديث النبوي الشريف: عندما سئل رسول الله صل الله عليه وسلم عن الصحبة: أي الناس أحق بحسن صحبتي؟ فقال عليه السلام: أمك أمك أمك ثم أباك. «أفضل الكسب كسب الوالدين، وأفضل الخدمة خدمتهما، وأفضل الصدقة عليهما، وأفضل النوم بجنبهما» عن النبي صل الله عليه وسلم قال: (رغم أنف ثم رغم أنف ثم رغم أنف قيل: من يا رسول الله؟ قال: من أدرك أبويه عند الكبر أحدهما أو كليهما فلم يدخل الجنة). أتقدم من جميع الأمهات بالتحية والإكبار والتقدير مع تحياتي لهن جميعاً ودعائي بدوام الصحة والعافية وطول العمر متمنياً أن يكنّ في عائلات متماسكة مترابطة متعاونة ومقدرة للعلاقات الإنسانية السليمة ومتفهمة للمشاكل والمسائل الصعبة التي قد تواجه العائلة في ظرف من الظروف وفي لحظة من اللحظات. ماذا تريد الأم من أولادها؟ تتمنى لهم النجاح والفلاح في حياتهم وهي على إستعداد للتضحية دون مقابل حتى الرمق الأخير من حياتها دون إنتظار لرد للجميل، علماً أن الأخلاق والشرائع السماوية حثتنا جميعاً على تقدير فضل والدينا علينا بالعمل وليس بالقول فقط، الكلام وحده لا يجدي كل لحظة وكل ثانية وكل دقيقة وكل ساعة وكل يوم وكل اسبوع وكل شهر وكل عام وكل أمهات العالم بألف خير.

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

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

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

و عليكم السلام و رحمة الله و بركاته ... تفضل ... Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[itemid]", "tab_item", "[itemid]=" & Me!itemid) > 0 Then MsgBox " duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

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

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

طيب ابعت لنا ملف بس اضغطه الأول قبل ما ترفعه .. عشان نشوف الملف شغال عندنا أو لا .. لو كان الملف شغال يبقا المشكلة في الويندوز وبس

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

السّلام عليكم و رحمة الله و بركاته قد جرّبت فتح الملف الآن فقط أخي الكريم .. ولم ألاحظ أي مشكلة ..

جزاك الله الف خير صراحة شي جميل ويعطيك الف عافية ابداع وتسلم يداك

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

السلام عليكم اخي العزيز بارك الله فيك وعلى جهودك معي وفقك الله

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

وعليكم السلام :) 1. انا جربت الكود قبل ان اضعه ، وجربته مرة اخرى الان ، وهو يعمل كما يجب ، فما قصدك انه "لا يقوم بتعديل القيمة في الجدول ويعطي احياناً اشارات -" 2. حتى ولو اخفيت السجل الجديد "والذي يظهر فيه New" ، فالمستخم يستطيع ان ينتقل الى الحقل الجديد وبدون ان يملئ بيانات الحقل الذي هو عليه ، فالطريقة الصحيحة لإجبارة ، هي كما اقترحت عليك. جعفر

السلام عليكم :) تفضل :) الاستعلام: . الوحدة النمطية: Option Compare Database Dim rst As DAO.Recordset Function Get_Dates(ID) mySQL = "Select * From tbl_Loans" mySQL = mySQL & " Where [EmployeeID]=" & ID mySQL = mySQL & " And Year([Payment_Month])= " & [Forms]![FrmOtherDiscountReport]![txtYear] mySQL = mySQL & " Order by Payment_Month" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If RC = 1 Then Get_Dates = "Discount for the month " & Format(rst!Payment_Month, "m/yyyy") Else For I = 1 To RC If I <> RC Then Get_Dates = Get_Dates & " and " & Month(rst!Payment_Month) Else Get_Dates = Get_Dates & " AND " & Format(rst!Payment_Month, "m/yyyy") End If rst.MoveNext Next I Get_Dates = "Discount for the months " & Mid(Get_Dates, 5) End If End Function . النتيجة: . والتقرير: . جعفر Discount.zip

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

جزاكم الله خيرا عمل جميل

جزاك الله خيراً أخونا الحبيب

حياك الله

السّلام عليكم و رحمة الله و بركاته أخي الكريم " عاطف عبد العليم محمد " هذا هو الكود المسؤول على جعل اليوزرفورم ملء الشّاشة : و هذه هي الخاصيّة التي تتيح لكَ إستعمال ورقة العمل و اليوزرفورم شغّال : و هذه التّجربة بالملف المرفق إحتراماتي فورم ادخال و تعديل مرن مع الطباعة.xlsb.rar

حل اخر (حيث ان الوقت يتعير كل ثانية) Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Range("xfd1") <> Date + Time Then Cancel = True End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$XFD$1" Then Range("a1").Select If ActiveSheet.Name = ("Sheet1") Then ActiveSheet.Range("$XFD$1") = Date + Time End If End Sub

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على هذه المساهمة الطيبة

كدا أنا أزعل يلا فلاحجي ..جرب التعديل الأول وبعدين شوف هل سيكون التركيز على العموين بالكامل أم لا ...........!!! التركيز في العمودين سببه إنك استخدمت الكلمة Select .. جرب الكود مرة تانية بعد التخلص من كلمة Select وعمل اللازم وشوف التركيز هيوصلك لفين يا نور العين

لم يكتمل التعديل بعد .. يا فرحة ما تمت خدها أبو البراء وطااااااااار Columns("D:F").Select Selection.EntireColumn.Hidden = False ما هذا ألم تتعلم الدرس الفائت؟ وهذا السطر ما الفائدة منه ؟ Range("F9").Select ركز يا فلاحجي

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

استادنا الغالي / يوسف فين من زمان ابداعاتك الجميلة والمفيدة بارك الله فيك وجعله في ميزان حسناتك حلبي

السّلام عليكم و رحمة الله و بركاته أخي الكريم "عمر سليمان " ..محاولة حسب ما فهمته ربّما تفي بالغرض .. بالنسبة للتّفعيل .. استعمل الأداة المميّزة للتّفعيل " KMS PICO "

اخى الكريم يجب حفظ الملف بصيغه Xlsm أو Xlsb تقبل تحياتى

وإذا سمح لي أخي سليم سلمه الله من كل سوء بإثراء الموضوع (رغم ثرائه) لهواة الإكسل ومحترفيه: لحساب عدد (أيام العمل) بين تاريخين: * باستثناء العطلات الأسبوعية (الجمعة والسبت) * وباستثناء قائمة من الأجازات نستخدم هذه المعادلة: =SUM(INT((WEEKDAY(A2-{1,2,3,4,5})+B2-A2)/7))-SUMPRODUCT(--(C2:C10>=A2),--(C2:C10<=B2)) * ويمكن تغيير أيام العمل في الأرقام {1,2,3,4,5} حيث 1 يشير للأحد و 2 يشير للاثنين ..... وهكذا * ويمكن حساب عدد مرات يوم واحد السبت مثلا بين تاريخين باستبدال {1,2,3,4,5} إلى 7 بدون أقواس حيث تستعمل الأقواس مع اليومين فأكثر وهذه صورة للمعادلة ........................ ولا تنسوني من صالح دعائكم

اخى الكريم وجدتها وكان الكود me.t.value= numper حيث t هو اسم علامة الجدولة numper هو رقم فهرس الصفحة او التبوبي شكرا لك اخى الكريم لمساعدتك

الحمد لله رب العالمين ، الذي أحسن خلق الإنسان و عدله ، و ألهمه نور الإيمان ، فزينه به وجمله وعلمه البيان فقدمه به و فضله ، و أفاض عليه خزائن العلوم فأكمله ثم أرسل ستراً من رحمته وأسبله ، ثم أمده بلسان يترجم عما حواه القلب و عقله ويكشف عنه ستره الذي أرسله ، و أطلق بالحق مقوله و أفصح بالشكر ما أولاه و خوله من علم حصله ، و نطق سهله اخواني الأعزاء ومعلميني الأجلاء وجميع أعضاء وزائري صرحنا التعليمي اوفيسنا في طلب عزيز جدا علي نفسي لاخي العزيز والحبيب أبو سلمي استاذنا // سعيد بيرم صاحب الروح الجميلة وخفة الظل المعهودة في تعديل مقاسات قالب الفورم (هدية 2014 ) الذي تم طرحه علي الرابط http://www.officena.net/ib/index.php?showtopic=50131 واضافة تقويم هجري وميلادي ومن بعد اذنه قمت بطرح الموضوع لتعميم الفائدة للجميع اهداء لشخصه المحبب علي قلوبنا ولا تنسونا من دعوة صالحة بصلاح الحال في ظهر الغيب اللهم إني أسألك خير هذه السنه ومابعدها,، واعوذ بك من شر هذه السنه وشر مابعدها..,, اللهم إني أسألك هذه السنه فتحــها ونصرها.. ونورهــــــا وبركتـــها وهداهــــا,, وأعوذ بك من شر مافيها باطنها وظاهرها ويصلح حال أمتنا العربية والأسلامية وحال اهلنا في مصر وسوريا ويولي فيهم من يصلح اللهم أمين تقبلوا جمعيا تحياتي واحترامي وتقديري User Form Templates.rar