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

وتماما للفائدة أحب أن أقدم تفاصيل التجربة لتعم الفائدة وأشارك الأساتذة الكرام بالأجر أولا - استخدام نسخة الأكسس الانكليزية عند تصميم البرنامج سيحد من حدوث هذه المشكلة التى عانيت منها لذا أنصح باستخدامها اخوتى المبتدئين أمثالى - ومن أراد التحول الى النسخة الانجليزية فلا داعى لتسطيب النسخة من جديد بل كل ما عليك فعله تغير اعدادات اللغة بالأكسس من العربية <افتراضى> الى الانجليزية <افتراضى> ثانيا - وهو الخيار الصعب اذا كنت قد قمت بتصميم البرنامج ثم لم يعمل معك على جهاز آخر _ أو أنك تريد العمل على النسخة العربية من الأكسس فلا بد من أن لا يكون أحد عناصر التحكم اسمه بحروف عربية وأعنى بكلمة اسمه خاصية 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 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

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

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

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

حبيبي يابو العربي انت اللي بتقول كدا هو في حاجه صعبه عليك برضو

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

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

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

وجرب أيضا أن تضع هذا الكود في حدث بعد التحديث للحقل Itemid في النموذج الفرعي fsub Dim x x = DLookup("[itemid]", "tab_item", "[itemid]=[itemid]") If Not IsNull(x) = True Then MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه" Undo Else: Exit Sub: End If

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

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

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

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

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

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

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

أخى عبد العزيز بارك الله فيك وجزاك الله كل خير على ماتقدمه بعد إذنك أنا ضغط على رقم 4 من لوحة المفاتيح سواء من أعلى الصفوف او من الارقام الجانبيه ولكن لا يتم فعل شىء إلا كتابة رقم 4 ببداية الكود ممكن توضحلى ماذا تقصد بـ 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 لانه لن نكون على اتصال بالقاعدة بالأصل حتى نتحقق من وجود القيمة او عدمها . الا اذا استخدمنا رقم الخطاء ... بالتوفيق

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

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

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

- بشكل عام هذا البرنامج خاص باي نوع من المؤسسات ( أعمال ) - نحن بصدد عمل برنامج كامل و جاهز للعمل عليه من قبل اي احد وفى نفس الوقت افكار لمن يريد عمل برنامج مشابه يستعين بهذا البرنامج ...

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

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

بعد اذن اخي الغالي عبد العزيز تفضل اخي الغالي هذا التحديد يشير الى رقم الاداة في الانتقال وفي المثال هنا التكست المشار لها رقمها 1 والليست بوكس رقمها 2 عند الوقوف داخل التكست والضغط على زر TAB يتم الانتقال لرقم 2 وهي الليست للأنتقال من التيكست بوكس ل الليست بوكس مباشرة.rar

السلام عليكم :) تفضل :) الاستعلام: . الوحدة النمطية: 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 لما مايكروسوفت عملت لسان لكل كائن يتم فتحه: نموذج/جدول/استعلام/تقرير ، وهذه الطريقة غير محبذه للمبرمجين ، فذهبوا لحل المشكلة عن طريق النماذج/التقترير المنبثقة ولكن هنا ك طريقة سهلة لعمل النماذج/التقارير خارج اللسان ، وبدون "منبثقة" : لاحظ لسان اسم النموذج ، وهذا ما سنلغيه: . وعلشان يتم حل الموضوع ، الكثير يستعمل نموذج منبثق لحله: . بينما نسنتطيع ان نأتي الى اعدادات الاكسس: . والنتيجة تصبح حسب المطلوب ، ونموذج غير منبثق: . أحد العيوب الكبيرة في النماذج المنبثقة انه يجب فتح نموذج/تقرير واحد ، فالنموذج/التقرير الجديد الذي يتم فتحه يكون خلف النموذج المفتوح من قبل ، بينما في الطريقة العادية ، لا نعاني من هذه المشكلة ، فكل نموذج/تقرير تفتحه ، فيكون تلقائيا امام النموذج السابق جعفر

اخى الكريم يجب حفظ الملف بصيغه 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 بدون أقواس حيث تستعمل الأقواس مع اليومين فأكثر وهذه صورة للمعادلة ........................ ولا تنسوني من صالح دعائكم

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