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

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

تفضل اخي لعله المطلوب وتم وضع زر لضبط التواريخ القديمة لعله يفي بالغرض 88.rar

تسلية بسيطة للتفقيط باستخدام المعادلات ولكم مني جزيل الشكر تجربة تفقيط.rar

شريط تحميل - Progress Bar بشكل جديد ☺ علم مصر - كل واحد يفنن بمزاجه ☺ علم مصر.rar 2علم مصر.rar

السلام عليكم أستاذى / ابو البراء .. فعلاً بدون مجاملة .. دائماً موضوعات حضرتك تمثل لى إضافه . جزاك الله عنا خيراً واسمح لى ان اضيف :- بدلاً من الخيار Printout ومن ثم الطباعة دون معاينه .. او الخيار Print Preview ومن ثم ظهور قائمه خيارات الطباعه فى كل مرة يتم الضغط على Print الكود التالى يجمع بينهما ... .PrintOut , , , True تقبلوا خالص احترامى وتقديرى

تمام

السّلام عليكم و رحمة الله و بركاته الأخوان " الياسران " الفاضلان و القديران : ياسر خليل أبو البراء ياسر العربي بارك الله فيكما و لكما للإثراء .. أخي الكريم " صلاح المصري " هذا رابط أوفيس 2013 نسخة عربية .. إحتراماتي http://www.4shared.com/rar/ZmXWIq5Xce/OFFICE_2013_arabe.html

بعد اذن حبيبي الغالي جرب الطريقة دي وبلغني

جرب هذا الشيء تكرار salim.rar

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

وعليكم السلام ورحمة الله الله لا يحرمنا من حلولك الرائعة أخونا الكريم جعفر أتمنى أن تطلع أيضا على هذه الفكرة وتقيمها Test Combo.rar

السلام عليكم اخى الكريم اليك المعادلة التالية كأحد الطرق .. لا يشترط ترتيب الرقم الاكبر والاصغر فى الخلايا E15:F15 .. =AND(MAX($E$15:$F$15)-C5>=0;C5-MIN($E$15:$F$15)>=0)*1 حراثي 1.rar

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

..... شاهدوا المرفق أخوكم عماد الحسامي

اسطوانة تحفيظ القران الكريم لكم ولاولادكم واحفادكم الجذء الثلاثون بصوت الشيخ محمد صديق المنشاوى وبصوت طفل يردد وراءه ويمكن تكرار الاية للحفظ وفيديو دعاء ختم القران من الحرم على الرابط التالىhttp://yonis.arab.st/t26-topic#29ملحوظة : سجل بالمنتدى لتحميل الاسطوانة وهى على 4 روابط مضغوطة يتم تحميلها فى فولدر ثم فك الضغط بعد اكتمال تحميل 4 أجزاء الاسطوانة هدية للمنتدى نتمنى الدعاء لنا بالخير الجزء 29 تبارك فى تكملة الموضوع الجزء 28 قد سمع الجزء 27 قال فما خطبكم هدية اخرى للسادة الزملاء اسطوانة برامج بها اوفيس 2003 و 2010 عربى لحين رفع باقى اجزاء تحفيظ القران الكريم الجزء 26 الجزء 25 مسابقة دينية

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

السلام عليكم استاذى واخى الحبيب / عبد العزيز البسكرى يعجز الكلام عن التعبير عن مدى امتنانى لحضرتك ..كلام طيب ..دعاء لوالدتى رحمها الله لا يسعنى سوى شكر الظروف التى جمعتنى بكم اخى الكريم .. جزاك الله خيراً ..وأسال الله ان يوفقنا جميعاً لما فيه الخير بالنسبه للكود .. هو يتخطى وفقط ظهور نافذه خيارات الطباعه عند الضغط على Print اثناء المعاينه Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintOut Preview:=True Next I End Sub خالص حبى وتقديرى لك اخى واستاذى الحبيب عبد العزيز ولاستاذى ابو البراء ولكل اعضاء المنتدى الماس

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

نسيت أخي الكريم إذا كنتُ قد وضعت مع الأوفيس أداة التّفعيل أم لا .. على كل حال إذا لم تجدها بعد التّحميل إستعمل هذه الأداة إحتراماتي KMS PICO 9.0.5.20131112.rar

بارك الله فيكما و جزاكما الله خير الجزاء فعلاً إفتقدنا لأبي يوسف كثيرًا أدعو الله أن يعود بأقرب الآجال إن شاء الله

بارك الله فيك اخى الفاضل عبدالعزيز .. شكرا لاهتمامك .. جارى التحميل

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

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

أخي الكريم حراثي لابد أن تتعلم الأساسيات .. قم بالإطلاع على الموضوع التالي لتعرف كيفية التعامل مع محرر الأكواد بداية الطريق لإنقاذ الغريق بالنسبة للكود لن يقوم بالطباعة إنما معاينة فقط .. إذا أردت الطباعة عليك استبدال كلمة PrintPreview الموجودة في الكود بكلمة PrintOut

شكرا اخي على الرد هل ممكن تطبيق على الملف المرفق .. لم تفلح معي

أخي الكريم جرب الكود التالي Sub PrintAll() Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Feuil1.Range("J7").Value iEnd = Feuil1.Range("L7").Value For I = iStart To iEnd Feuil1.Range("I3").Value = I Feuil1.PrintPreview Next I End Sub

منور يا ابواسيل وجزاك الله كل خير

هلا والله بأخوي رمهان ، سواء كنت مشغول او فاضي حبتين انا اعمل على اوفيس 2010 وشغال عندي البرنامج ، فما عندي فكرة ليش ما اشتغل على 2013 ، وبما ان البرنامج قديم من 2009 ، فما اردت ان احوله الى صيغة الاكسس الجديدة ، وتركته بصيغة mdb لتعم الفائدة ، ولك نسخة مرفقة بصيغة accdb 1. هي مجموعة اسباب جعلتني اقوم بهذه الطريقة انا ارفقت زبدة البرنامج ، ولم ارفق صلاحيات المستخدمين ، فلا يملك صلاحية الوصول الى نموذج ادخال Blob إلا اشخاص معينين ، لذا فلا يوجد تخوف من حذف السجل ، وبما ان البرنامج سيكون على شبكة ، ولا يرى المستخدم الجداول ، فلا تخوف من هذه الناحية كذلك ، اما اذا البرنامج ، والشبكة كانوا في يد المستخدمين/المخربين ، فعلى كل البرنامج وبرامج الكمبيوتر السلام 2. حجم حقل OLE هو 1 جيجا ، ولا ادري عن حجم اكبر حجم لـ Blob 3. اذا تمعنت في قاعدة البيانات ، ستجد ان هناك وحدات نمطية لمجلدات الكمبيوتر الاساسية ، ومنها المجلد المؤقت ، وقد كنت استعمل هذا المجلد للعمل ، ولم يكن هناك مشكلة ، ولم يخبرني برنامج المضاد للفيروسات KasperSky بشئ 4. لا وانت الصادق ، هذا كان جزء من احد برنامجي لأحد الجهات الحكومية ، وللعلم وبسبب عدم دراستي/تخصصي للكمبيوتر ، فكل اللي تعلمته كان عملي ، وكل اللي اطرحه في المنتدى هي ممارسات عملية في برامجي ، والمواضيع اللي لست لم اعمل فيها ، فلن ترى لي رد لها 5. الـ Blob ليس كأي عنصر OLE ، لهذا السبب ، تستورده للجدول بكود ، وتصدره للكمبيوتر بكود لا تنسى اني عملت البرنامج هذا في 2009 ، وعملته داخل صيغة mdb ، والسبب اني عملته بهذه الطريقة ، هو بحثي في الانترنت ، وقرأتي عن ميزات وعيوب الطرق المختلفة ، فنعم ، قد يكون كلامك صحيحا عن كائن stream ، ولكن لا علم لي به وشكرا على هذه الاستفسارات ، حتى تعم الفائدة جعفر Blob_accdb.zip

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

السلام عليكم هذه محاولة حدد عمود الفرز ثم حددبداية السطر ثم حدد نهاية السطر اضغط زر الفرز الفرز حسب اللون1.rar

السلام عليكم حياك الله - وفقك الله - سلمك الله - زادتك الله من فضله اشكرك جزيت خيرا

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

بارك الله لك في الموهوب لك، وشكرت الواهب، وبلغ أشده، ورزقت بره.

بارك الله فيك

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

اللي انا شايفه ان المشاكل بدات تزيد من بعد الاكسس 2003 ولكن من تجربة وجدت اكسس 2007 قليل المشاكل وخاصة بعد تحويله الى accde فهو يعمل على 2007 وما بعد بدون مشاكل كثرت المشاكل مع اكسس 2010 احد التجارب انعطب ملف 2010 وحاولت ضغطه واصلاح ب 2010 لم يقبل وفتحته عن طريق 2013 فقام بضغطه واصلاحه ولكن السؤال المهم : هل نحن نستخدم نسخ اوفيس اصليه ! سواء مصدر البرنامج او العملاء ! وحصلت المشاكل ؟؟؟؟؟ تقبلو مروري

حياك الله اخوي جعفر اليومين هذي فضيت حبتين فاللله يعينك على مداخلاتي البرنامج لم يعمل واعتقد ويتم الاغلاق حيث اعمل على 2013 وبعيد عن البرنامج راح اعلق على الفكرة او بالادق الميجانيزم 1. الفكرة تولدت لخطورة حذف الملف المرفق وهنا الفكرة جعلت الملف المرفق اهم من ملف القاعدة وهذا غير منطقي ! باختصار لو تم حذف ملف القاعدة لذهبت وذهب البرنامج المحمل بل بحذف السجل الحامل للبرنامج >>> كذا حذف البرنامج !!! 2. اعتقد ان هناك حجم محدد لنوع البيانات ole ممايجعل هناك حدود لحجم البرامج المحمله 3. مستحيل ان يكون هذا مسموح في بيئات الاي تي عالية الحماية فهذا بمثابة طريقة لعمل الفيروسات بطرية بدائية 4. لا اعتقد ان الملف قابل للتطبيق العملي بقدر ماهو فكرة مبرمج هاوي قام بتنفذها حاولت دبل كليك على الملف من الجدول مباشرة ولم تفتح معي ! هل هنا به مشكلة ام المفروض طبيعي تفتح زيها زي اي ملف ole ؟ هناك فائدة من المرفق وهي طريقة قراءة الباينري داتا وتخزينها في الجدول من خلال الكود ولكن اصبحت قديمة نوعا ما فاصبح هناك نوع مرفق وهناك كائن stream لمكتبات ال ado اخيرا موضوع تشكر عليه وبالتوفيق

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

ماشاء الله العظيم ذوق عالي جدا يا ابا جودي ... وعمل رائع .. رائع .. الله يحفظ مصر واهلها وكل بلادالمسلمين ..

اذا كان هكذا فهذا اصلا هو التتنسيق standard وكذلك التنسيق currency اذا حب اضافة شكل العملة تحياتي

وعليكم السلام حياك الله 1. احفظ النموذج الفرعي كتقرير ، . 2. اجعل استعلام النموذج هو نفس استعلام التقرير ، 3. اعمل زر في النموذج الرئيسي لطباعة ما تراه في النموذج الفرعي جعفر

جرب هذا الملف اظهار الاسماء عند كتابة الاحرف الاولى وعند الضغط على الاسم المراد تأتي البيانات الموجودة في الشيتات salim.rar

هلا اخوي جعفر الموضوع بسيط ان شاء الله بس ممكن لم يمر عليك في برامجك لما يكون عندك حقل به مثلا سجلين 0.166 0.331 اجماليهم قبل التنسيق = 0.497 مع انه لو تم النظر لهم بعد التنسيق وبتطبيق المشاركة رقم 6 0.17 0.33 وهذا يوحي للمطلع على الرقمين ان اجماليهم 0.50 وهو ما يختلف عن الاجمالي الحقيقي السابق بالتوفيق

أخي الكريم جمال الدين يرجى تغيير اسم الظهور للغة العربية فضلاً لا أمراً جرب الكود التالي لحذف كل أوراق العمل ما عدا الورقة الأولى (حركة الحسابات) والورقة الثانية (Statement) Sub DeleteAllSheetsExceptTwo() Dim Sh As Worksheet Application.DisplayAlerts = False For Each Sh In ThisWorkbook.Sheets If Sh.Name <> Sheet1.Name And Sh.Name <> Sheet2.Name Then Sh.Delete End If Next Sh Application.DisplayAlerts = True End Sub تقبل تحياتي

هلا بأخوي رمهان ، عسى ما شر ، نوّرنا بدل هل الوجوه الغاضبة جعفر

بسم الله ما شاء الله عليك أخي الغالي رمهان متمكن ... ورائع ما تسيبك من الأكسس وخليك معانا في الإكسيل ..!!

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

جرب المرفق التالي في ورقة العمل Sheet2 جمع نطاق متحرك.rar

السلام عليكم اولا هذا الكود يعمل على خليه واحده كيف اجعله يمتد من الخليه F1 حتى الخليه F 300 ,ومن G1 الى G300 ثانيا كيف اجعل الخليه تحسب بدون الظغط على انتر يعني تلقائي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F1").Address Then Range("G1").Value = Val(Range("G1")) + Val(Target) End If End Sub

السلام عليكم ضع هذا الكود في موديل الورقة المعنية بالعملية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F7").Address Then Range("G7").Value = Val(Range("G7")) + Val(Target) End If End Sub تحياتي