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

وعليكم السلام عملت برنامج بسيط يحول الحروف الى 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 بالتوفيق

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

‏الخميس‏ 2‏/11‏/1432هـ الموافق ‏29‏/9‏/2011م هذا ملف جاهز للإستخدام نظرا لما عانيته خلال سنوات من متابعة حركة السيارات وتنقلاتها ومتابعة مستنداتها للتجديد كان هذا الملف هو آخر ما استجد في الموضوع – بحيث يسهل علي هذه المهمة الصعبة قدر الإمكان المميزات:- حفظ كامل بيانات السيارات والفحص والتأمين والبيع. التعامل مع التاريخين الهجري والميلادي. إضافة وتعديل أي بيانات تعديل رقم اللوحة تلقائياً عند الإدخال بحيث لا يتكرر. - خاصة لوحات السيارات بالسعودية إمكانية البحث السريع بأي جزء من أي رقم أو أي كلمة . البحث عن أي تاريخ بحيث تظهر كل البيانات المطلوبة قبل التاريخ المدخل. مرفق ملف به شرح تفصيلي لطريقة الإستخدام بيانات_السياراتAYMZ077.rar وآخر دعوانا ان الحمد لله رب العالمين

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عودة إلى فيديوهات الشروح المبسطة والتي تحتوي على الكثير من التريكات tricks والحيل التي يرغبها المحترفون الجزء الثاني من خيارات إكسل 365 و إكسل 2016 جاري مونتاج الفيديو ورفعه وهذه بعض محتوياته إن شاء الله شرح خيارات إكسل 2016 وإكسل 365 بالتفصيل من الصفر إلى الاحتراف تبويب الصيغ Formulas تغيير طريقة حساب المصنف workbook calculation إضافة خيارات الإكسل لشريط الوصول السريع add excel options to QAT فهم الحساب التكراري وخطأ المرجع الدائري Iterative calculation and circular reference فهم نمط المراجع R1C1 reference style الإكمال التلقائي للمعادلات في شريط الصيغة formula auto complete تفعيل فحص الأخطاء ولون تأشير الخطأ error checking & error indicator colorr قواعد فحص الأخطاء error checking rules خيارات الإكمال التلقائي auto correct options صيغة الحفظ الافتراضية default file format حفظ معلومات الاسترداد التلقائي كل 1 دقيقة save auto recovery تحديد مكان الاسترداد التلقائي auto recover file location تحديد مكان الحفظ والفتح الافتراضي default save , open location إضافة وحذف لغات التحرير add & remove editing languages إضافة لغات العرض والمساعدة add display and help languages تغيير لغات العرض والمساعدة change display and help languages والكثير اترككم مع الفيديو وهذا هو الجزء الأول من شرح خيارات إكسل وهذا رابط لسلسلة الفيديوهات لتعليم أساسيات إكسل 2013 وما بعدها وفقنا الله وإياكم لكل خير يا ترى كام حبيب في الله سيجعنا من أجل الاستمرار

اخي سامي ارجو ان يفيدك هذا الموضوع 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 جعفر

شوف الفكرة انك تروح تسوي جمع الكمية dsum شرط رقم التوريد في جدول البيع ثم تسوي مقارنة او تظهرها برسالة تسويها بعد تحديث الكمية او بعد كتابة رقم التوريد في فاتورة البيع حاول تطبق الفكرة بالتوفيق

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

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

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

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

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

الف مبروك استاذي القدير وتستاهل والله واكثر

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

وفقهم الله نحسبهم على خير

ألف مبروك وإلى مزيد من النجاح دوما

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

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

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

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

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

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

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

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

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

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

من هنا بارك الله فيكم

من العلامات ان في مشاركة استاذنا جعفر هو ما يريد ابا جودي

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

السؤال الان ماذا عن المربعات الحمراء بمشاركة الاستاذ جعفر اعلاه مثلا لو 0fx0100axxxx الاكسات الاخيره ستحذف ولكن ماذا عن الاكس الاولى هل تحذف ؟

السلام عليكم ورحمة الله تفضل اخى الكريم Book1.rar

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

تفضل هذا ان شاء الله يكون طلبك صلاحيات مستخدم.rar

لايوجد اي مكاتب اضافية لكي يحدث معك مشكلة في الملف فالبرنامج مصمم بالعناصر الاساسية كما انه يوجد ملف 2003 تم رفعه من طرف الاستاد مجدي يونس جزاه الله خير في احد المشاركات السابقة التاريخ عندي مضبوط كما هو مبين في الصورة التالية Nouvelle image bitmap.bmp لاكن لاتقلق فقد تم تعديل الملف ليتناسب و جهازك المصنف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 ارجو حل هذه المشكلة فهو يعمل بدقة عالية عند فتحه على اكسيل 2010 نسخة من نموذج التخرج 3.rar