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

وعليكم السلام عملت برنامج بسيط يحول الحروف الى ascii ، اي يعطينا رقمها حسب اعدادات Unicode ، والنتيجة وضعتها في جدول ، كل حرف (من جدول 1 و 2) وضعتهم جنب الاخر ، رجاء النظر الى الحقلين AscW_1 و AscW_2 ، والتي ارقامها تختلف ، فالبرنامج يعتبرها حرف يختلف ، لذلك لا تستطيع الربط بين الاسمين: . جعفر 617.Err_Data.mdb.zip

تهنئة من القلب لجميع اخواننا المحترفين الترقية الى مجموعة الخبراء الف مبروك

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

الف مبروووووك استاذ @Shivan Rekany انت انسان رائع وتستاهل كل خير

مبارك للجميع وهناك البعض منهم لم نره منذ فترة نرجو من الله أن يكونو بخير وأن نراهم بيننا قريبا كأخينا @alwazeer - و @كرار صبري _ أبو جنى - و @سعيد صواب - و @عبد الله قدور وكلهم ذو فضل وادى الورد - عشان منبقاش جينا بايد فاضية

أخى @ابو زاهر أرجو أن لا يغضبك كلامى فأنا أحب أن أتلطف بالكلام الذى يثير الضحك أحيانا فاعتقد أن هذا مما تقرب به المودة والألفة بين الأعضاء فالكلام العلمى الكثيف يثقل على النفس أحيانا فيكون بحاجة الى شىء - مهضم بالوسط - لتسهيل عملية الاستيعاب أسعدنى جدا التعرف بكم وتحية خاصة جدا لأهل اليمن - فمما أذكر حديثا لرسول الله (صلى الله عليه وسلم) : "أَجِد نَفَس ربكم من قِبَل اليَمن" وهنا رابط للشرح والتعليق على الحديث http://fatwa.islamweb.net/fatwa/index.php?page=showfatwa&Option=FatwaId&Id=178785 وهنا رابط آخر http://www.ahlalhdeeth.com/vb/showthread.php?t=36916

اعتقد انه يمكن كذلك Me.TextBox.setfocus DoCmd.RunCommand acCmdCopy بالتوفيق

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

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

السلام عليكم ورحمة الله وبركاته احبتي الكرام : عطفا على هذا الموضوع ومن اجل تنوع العناوين ولان الموضوع فريد من نوعه ولاني اخذت اياما في تصميمه وتجربته رأيت ان افرده في موضوع وعنوان يخصه . تم تجربة العمل بنجاح فالحمد لله اولا وآخرا تم التجاوز والتغاضي عن التالي : 1- (((فتح مربع حوار لاختيار القاعدة البعيدة))) ، لاني اريد التحديث بنقرة واحدة ، وغالبا المبرمج ينصب برامجه في مكان واحد والاختلاف سيكون في اسم قاعدة البيانات ومن المنطقي ان يغير يدويا داخل الاداة لانه في الاصل سيعد الجداول يدويا . وايضا هذه الاداة له وليست للمستخدم وانما المستخدم منفذ وكل ما عليه عمله هو النقر على الزر . 2- ايضا تجاوزت فيما لو تم تغيير خصائص بعض الحقول او تغيير مسمياتها ، وعلى المبرمج معالجة مثل هذه المشكلات لو ظهرت يدويا ، ومثل هذه التعديلات المشكلة وصعوبة وتكلفة التعديل مستقبلا تجعل المبرمج يأخذ احتياطاته عند التطوير فيتحاشاها وحتى يتضح تماما خطوات العمل داخل الاداة فمن يريد تجربة المثال فيجب عليه التالي : 1- ادخل على المجلد fresh للاطلاع قبل اجراء اي عمل 2- افتح القاعدة db1.mdb وتصفح الجداول لترى البيانات ، باعتبارها القاعدة القديمة 3- افتح القاعدة dbmain.mdb وتصفح الجداول وسترى انها خالية من البيانات ويوجد فيها جدول زائد ( الجداول الجديدة المحدثة ) 4- استخرج المجلد fresh وضعه على قرص الــ D ( مؤقتا كتجربة سريعة) 5 - افتح القاعدة dbmain.mdb ثم انقر الزر 6- ارجع وتصفح الجداول في القاعدتين لترى الفرق طريقة الاستفادة من الأداة : اجلب الى قاعدة جداولك المحدثة : النموذج والوحدة النمطية فقط عدل الامتدادات ومسارات الملفات داخل النموذج وداخل الوحدة النمطية حسب رغبتك انتبه فيجب أن تكون جداولك نظيفة من البيانات الا الجداول الجديدة التي لا يوجد مثلها في القاعدة القديمة فيمكن ان تشتمل على بيانات مثلا اضفت جدولا جديدا باسم الجنسيات ووضعت فيه جميع الجنسيات ... وهكذا يمكنك ارساله الى العميل بصورته الحالية او تحويله الى mde تحديث قاعدة بيانات بعيدة استخرج المجلد الداخلي وضعه على القرص D.rar

اخي سامي ارجو ان يفيدك هذا الموضوع https://www.officena.net/ib/topic/74957-مشكلة-بطء-عرض-التقرير/?do=findComment&comment=481182 تحياتي

اخي حسين قم بتغيير الامر الذي فيه المشكلة الى الامر التالي If UBound(strFileNames) = 0 Then Exit Sub End If وضع عبارة on error resume next في بداية الكود سوف ارفق لك البرنامج المعدل قريباً وفيه حاجة حلوة راح تعجبك ان شاء الله .. لكني انتظر استاذي الكبير جعفر ليقوم بتعديل بسيط على كود وان شاء الله تعالى سوف ارفقه لك تحياتي

عادي هناك برامج تستخرج الرقم السري

لو كان الرقم السري على محرر فيجوال ماذا يمكن فعله؟

وعليكم السلام تفضل ضع الكود التالي على حدث "النقر المزدوج" على اي حقل في النموذج الفرعي DoCmd.SearchForRecord acDataForm, "test1", acFirst, "[id]=" & Me.ID او Forms!test1!ID.SetFocus DoCmd.FindRecord Me.ID او Me.Parent.Recordset.FindFirst "[ID] = " & Me.ID Me.Parent.Bookmark = Me.Parent.Recordset.Bookmark او Forms!test1.Recordset.FindFirst "[ID] = " & Me.ID Forms!test1.Bookmark = Forms!test1.Recordset.Bookmark جعفر

أنت الأروع أستاذ حمادة رجاء حذف الموضوع الآخر بنفس الاسم تقريبا بسبب خلل في الانترنت وقت النشر

شكرا لك سيدي الله يجزيك كل خير اولا : شكرا لك استاذي ثانيا : وانا اشهد انك انسان محترم وتستاهل كل خير و انا اشهد ايضا انت شخص كبير في مجال البرمجة تحياتي سيدي

لا ليس هكذا استاذنا العزيز ولكني اقيس على نفسي فانا لا اذكر التغييرات التي اجريتها وبالعكس اتصالك مجانا ورصيدك عند الله ,, ونحن بحاجة الى فكرتك وليتك استاذنا تضعها في مثال منفصل الى ان تكتمل ثم نعمل على ضمها في اداة واحدة ولا تنسى يكون mdb

اتفضل استخدمت هذا الكود في نموذج فرعي في الحالي Private Sub Form_Current() If Forms!Form!FRAME7 = 1 Then Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]));" ElseIf Forms!Form!FRAME7 = 2 Then Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]) AND ((جدول_الدرجة.الدرجة)>39));" ElseIf Forms!Form!FRAME7 = 3 Then Me.RecordSource = "SELECT جدول_الطالب.[رقم الطالب], جدول_الطالب.[اسم الطالب], جدول_المواد.[اسم المادة], جدول_الدرجة.الدرجة FROM جدول_المواد INNER JOIN (جدول_الطالب INNER JOIN جدول_الدرجة ON جدول_الطالب.[رقم الطالب] = جدول_الدرجة.[رقم الطالب]) ON جدول_المواد.[رقم المادة] = جدول_الدرجة.[رقم المادة] WHERE (((جدول_الطالب.[رقم الطالب])=[Forms]![form]![com]) AND ((جدول_الدرجة.الدرجة)<40));" End If End Sub وهذا عند تختار اسم من كومبوبوكس البحث Private Sub com_AfterUpdate() Me.FRMSUB.Requery End Sub اضفت اطار مجموعة الاختيارات بدل الطريقتك لكي يسهل علينا اكثر وهذا عند اختيار الكل ام رسوب ام ناجح Private Sub FRAME7_AfterUpdate() Me.FRMSUB.Requery End Sub اتفضل قاعدة بياناتك بعد تعديل stu.rar

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

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

شكرا لك اخوي و استاذي @ابا جودى

الف الف مبروك استاذي

اعلم هذا ولكنى اريد ان افعل مثلها ولقد وجدت هذا المثال وضبط معى If Age = > 46 And age <= 50 Then وشكراً جزيلا لك اخى @sandanet

اخي حسين موضوع السحب من السكان ان شاء الله يعمل بكفاءة لاني جربته على نوعين من السكانرات المدمجة مع الطابعة والمنفصلة من نوع اوتوفيدر بعد معاناة للحصول على واحدة للتجربة على العموم في النموذج عند ادخالك لعدد الصور المراد سحبها فان البرنامج سيعتبر ان السكانر المربوطة هي من النوع المدمج مع الطابعة واذا تركت الخانة فارغة فسيعتبر ان السكانر من النوع المنفصل ومن ثم كما هو موضح في الصور السابقة 1 و 2 تقوم بتحديد خصائص السكانر ومكان حفظ الصور وان شاء الله امورك تمام اما بخصوص الزر البديل زر سحب عدة صور من الكومبيوتر فهو في الحقيقة ليس بديل من وجهة نظري بل هو مكمل لعملية السكان من السكانر نوع اوتوفيدر لانك في السكانر اوتوفيدر هذه بعد تحديد مسار حفظ الصور في المجلد scanner ستخزن الصور باسماء افتراضية وبعد الانتهاء يجب عليك الضغط على زر سحب عدة صور من الكومبيوتر لتفتح لك نافذة على مجلد ال scanner لتختار مجموعة الصور التي تريدها ومن ثم سيتم نقلها لمجلد الصور الخاص بالبرنامج المحدد مساره في النموذج طبعاً وسيتم اعطاء الصور التاريخ والوقت بالاضافة الى اسمائها الاصلية اما لو تم استخدام السكانر المدمج فلاحاجة لاستخدام زر سحب عدة صور من الكومبيوتر لان الكود سيقوم بحفظ الصور في مجلد البرنامج المحدد مساره في النموذج وسيقوم ايضا باعطائها الوقت والتاريخ بالاضافة الى اسمائها الاصلية (طبعا لايمكن عمل هذه الطريقة مع السكانر اوتوفيدر لانك تختار مسار الحفظ من داخل خصائص السكانر نفسها ) لكن يمكنك اختيار مسار حفظ الصور في مجلد البرنامج من خلال خصائص السكانر التي تظهر لك كما هو موضح في الصورة رقم 2 في المشاركة السابقة ومن خيار "اسم الملف" تسمي الصورة بالتاريخ والاسم ...الخ كما تشاء وبالتالي تستغني عن زر سحب عدة صور من الكومبيوتر تحياتي يفضل ان تضع هذه المشكلة في موضوع منفصل حتى لايختلط الموضوع على المتابعين ... على العموم استخدم الامر DoCmd.CancelEvent بدلا عن undo لان undo يقوم بالتراجع عن البيانات المدرجة جميعها بينما DoCmd.CancelEvent يلغي عملية المتابعة الى ان تكمل ادراج بقية البيانات المطلوبة

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

تستاهلن كل خير ان شاء الله تفيدو كما استفدتو لا حرمنا ولا حرمتو من العطاء

الف شکر لک استاذي محمد نجار اه منك اخي وضاح شو عملت انت هههه شكرا لك شكرا لك اخوي واستاذي الحلواني واليكم نفس الخير شكرا لك يا عبقري المنتدى ... ان شاء الله راح نستفيد منك اكثر بخبرتك شكرا لك لكونك معنا شكرا لك سيدي ابو عبدالله شو اقولك استاذي اباخليل شكرا لك وشكرا على ما تقدم لكل اعضاء ... حقكم عظيم علينا شكرا لك استاذي الفاضل ... ادعوا من الله ان نتحمل ذلك تحياتي لك يا ابو ف ب ا شكرا لك اخوي محمد والف الف شكر لك سيدي

مبروك اللقب أخي شيفان ، ونعرف انك ستتحمل اعباء وزنه وشكرا أخي ابو زاهر على الملاحظة جعفر

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

مبروك لكل الاخوة بالترقية .... اتمنى لهم الخير والسعادة

الف الف مبروك لهم جميعا وجزاكم الله خير الجزاء

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

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

لفته طيبة منك أخى الكريم - ولا أخى الصعيدى - جزاك الله خيرا أستاذنا @Shivan Rekany ما أعتقد أن لقبا ما أيا كان يوافكم حقكم علينا نسأل الله لكم الخير الوفير والجزاء العميم على ما قدمتم وما زلتم تقدمون أحسن الله اليك

الف مبرووووك لمنتدانا بحصوله على تلك الأوسمه العظيمة من الخبراء وان شاء الله في اعلى المراتب دائماً

شكرا لكم جميعا ان شاء الله ان نقدر نقدم مابامكاننا للجميع و ان شاء الله ان نقدر ننطي حق هذه اللقب شكرا لك @ابو زاهر @wael_rafat @sandanet @شامل2

الف مبارك ويستاهل كل خير

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

تقدر يستخدم هذا DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE الطمبات SET الطمبات.[VLC E] = [Forms]![الوردية]![Carburant].[Form]![VLC S] ;" DoCmd.RunSQL "UPDATE الطمبات SET الطمبات.[VLC S] = Null ;" DoCmd.SetWarnings True End Sub اولا راح يبدل الارقام ثانيا راح يحذف الارقام في حقل الاغلاق

استادنا العزيز / jjafferr اسف جدا جدا لتأخري في الرد فأنا كنت مشغول لك كل تحية وتقدير واحترام فأني اعتبرك احد اعمدة هدا المنتدي العظيم الان اخي الفاضل انا في المنزل (اجازة) وليس لدي جهاز سكنر سوف اجرب ان شاء غدا واوفيك بالنتيجة كده او كده يكفيني اهتمامك وصدق مشاعرك تجاه المحتاجين المساعدة وادعو لك بصدق ومن قلبي الدي لا يعلمه الا الله ان يجعل لك الله من كل كرب فرج وان يزديك الله من علمه ويجزاك كل الخير لما تقدمه لنا.

الحمد لله وجدت الكود المطلوب With Me.TextBox .SelStart = 0 .SelLength = Len(.Text) DoCmd.RunCommand acCmdCopy End With برجاء من المشرفين غلق الموضوع

لايوجد اي مكاتب اضافية لكي يحدث معك مشكلة في الملف فالبرنامج مصمم بالعناصر الاساسية كما انه يوجد ملف 2003 تم رفعه من طرف الاستاد مجدي يونس جزاه الله خير في احد المشاركات السابقة التاريخ عندي مضبوط كما هو مبين في الصورة التالية Nouvelle image bitmap.bmp لاكن لاتقلق فقد تم تعديل الملف ليتناسب و جهازك المصنف1.rar

استاذ حماده جزاك الله كل خيراً

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

السلام عليكم قمت بعمل نموذج لصرف خامات معينة من المخزن بناء على طلب صرف واضفت كومبوبوكس لاختيار رقم طلب الصرف الذى بموجبه يتم صرف الخامات المطلوب اساتذتى كالتالى : فى حالة عدم اختيار طلب صرف من الكومبوبوكس تظهر رسالة " يجب اختيار رقم طلب الصرف" وتمنع البرنامج من استكمال صرف الخامات وكأن شيئا لم يكن "Orders"فى حالة اختيار رقم طلب الصرف وصرف الخامات بناء عليه وعند الضغط على اذن جديد يتم نقل سجل طلب الصرف السابق من جدول الى جدول اخر new orders مع العلم حاولت اعمل اول خطوة بالكود التالى ولكن لم ينفع ويتم خصم الخامات عادى ولكنه لا ينتقل الى اذن جديد فقط لكن الخامات تخصم من الرصيد Private Sub Command10_Click() If Me.Combo51 > 0 Then DoCmd.GoToRecord , , acNewRec Else MsgBox "عفوا اختر رقم طلب الصرف" End If End Sub مرفق مثال للتوضيح اسف على الاطالة اخوتى الكرام تفضلو بقبول مودتى Orders.rar

أخي محسن الرابط التالي يعطيك طريقة اخرى لعمل اللي تريده: http://www.officena.net/ib/index.php?showtopic=59784&p=383494 جعفر

وعليكم السلام أخي محسن في عدة طرق لعمل اللي تريده ، وانا بكتب لك الابسط: 1. اذا فيك شدة تدخل في البحر واهواله ، فعليك بالقراءة عن Ascii Arabic Charset ، 2. اما اذا اردت البساطة مثلي ، فاليك التالي: نفترض ان الحقل اسمه text1 ، ففي الحدث قبل الحفظ ، اعمل له الكود مثل التالي ، اللي بنعمله وببساطة ، اننا سنطلب من البرنامج بتغيير الحرف الغير مرغوب فيه ، الى حرف مرغوب فيه ، عن طريق الامر Replace ، وطريقة الامر: 'a=Replace(a,"Old value","New value") a=Me.Text1 a=Replace(a,"أ","ا") a=Replace(a,"إ","ا") a=Replace(a,"ة","ه") a=Replace(a,"ي","ى") Me.Text1=a طبعا العربي في الكود يلخبط الكود ويقلبه ، لذلك تركت لك السطر الاول الصح بالانجليزي ، وانت اكمل الباقي جعفر

اخي الكريم رسول هادي اطلب كيف مــا تشاء ولا تخجل لاننا كلنا بنتعلم في تلك الجامعة التي جمعتنا من اطياف الارض علي الحب والاحترام وتبادل الخبرات والذي أعتز بتواجدي بينهم بارك الله فيهم جمعيا ارسل لي ماذا تريد بالضبط بالتسيق وانا انفذه لك ان شاء الله تعالي قم بالشرح علي الملف بالتفصيل مرفق الملف وان شاء الله يعمل بشكل صحيح علي اوفيس 2007 لانني لم اقم بالتجربة علي 2007 جرب واعلمني بالنتيجة بالتوفيق ان شاء الله نسخة من نموذج التخرج 41.rar