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

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

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

السلام عليكم جميعا.. لا يخفى على شريف علمكم أهمية المكتبات المرجعة في تطوير وتحسين قواعد بيانات أكسس، ومن المستحيل جداً أن تجد قاعدة بيانات بدون مكتبة مرجعة ما؛ سواءً كانت افتراضية أو مضافة من قبل المطور. .. لكن ما أعتقد أن بعضنا يجهله هو ما هية تلك المكتبات وكيفية ربطها والاستفادة منها.. والمكتبات المرجعية هي عبارة عن وظائف عامة Public Functions قائمة بذاتها أو مدرجة ضمن أصناف Classes، تم برمجتها لتستخدم على نطاق واسع. يمكن الوصول إلى المكتبات المتوفرة في ويندوز عن طريق مربع الحوار الخاص بإضافة المكتبات، أو عن طريق الشفرة عبر الإعلان عن متغير من نوع References، وما يميز هذا الأخير هو أنه يمكنك من تحديد مسار المكتبة وفحصه برمجيا؛ وبالتالي تصيد الخطأ ومعالجة.. << من الخطأ الشائع اعتقاد البعض أن ملفات المكتبات المرجعية يجب أن تكون ضمن مجلد نظام ويندوز System32 Folder! وهذا غير صحيح.. لكن ويندوز يقوم بوضعها هناك أفتراضياً؛ لسهولة الوصول والمشاركة بين التطبيقات، ولتقليل تكرار الملفات وخفض مساحة التخزين >> >> أكسس مكتبة مرجعية.. > عند إضافة قاعدة بيانات أكسس كمكتبة مرجعية يقوم أكسس << بدمج >> قاعدة البيانات الرئيسية بقاعدة البيانات المرجع لتصبح قاعدة بيانات واحدة.. > يمكن إضافة قاعدة بيانات أكسس كمكتبة مرجعية بجميع إمتدادتها المعروفة (mda,mdb,mde;accda,accdb,accde). > يمكن أيضاً أن تحتوي قاعدة البيانات على نماذج، تقارير، وحدات نمطية.. > يمكن تشغيل النماذج والتقارير بعد تغليفها بوظائف عامة. ** تجربة المثال.. * قمت بإنشاء قاعدة بيانات خالية من كل شيء إلا من ميكرو الإقلاع Autoexec، ووظيفة معززة للإقلاع تحتوي هي أيضا على وظيفة تقوم بفتح نموذج يحتوي على قائمة سرد بها أسماء النماذج في قاعدة بيانات المرجع. * قاعدة بيانات المرجع هي NorthWind 2007 * أضفت في هذه القاعدة وحدة نمطية أنشأت بها بعض الوظائف ومنها وظيفة إقلاع النموذج الذي سبق الإشارة إليه.. إليكم المثال Adding DataBase As Reference.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عودة إلى فيديوهات الشروح المبسطة والتي تحتوي على الكثير من التريكات 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 وما بعدها وفقنا الله وإياكم لكل خير يا ترى كام حبيب في الله سيجعنا من أجل الاستمرار

السلام عليكم أصل هذا الموضوع هنا أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف فى حال حذف أحد السجلات و هذا هو الكود المستخدم Option Compare Database Private Sub Form_Current() If Me.NewRecord Then Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset Dim rst2 As DAO.Recordset MySQL = "Select [DashNum] From tblTest Order By DashNum;" Set MyDB = CurrentDb() Set rst1 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot) Set rst2 = rst1.Clone rst1.MoveFirst: rst2.Move 1 'move to the 2nd Record in rst2 Do While Not rst2.EOF 'If the difference between 2 consecutive Dash Numbers is not 1, since 'they are ordered, this would indicate a gap in sequence If rst2![dashnum] <> rst1![dashnum] + 1 Then Me.dashnum = rst1![dashnum] + 1 rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing Exit Sub End If rst1.MoveNext rst2.MoveNext Loop rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing End If End Sub المحافظة على الترتيب.rar

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

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

اخواني العاملين في المنتدي محتاج الي مساعدة من اهل الخبرة 1 - عندي نموذج اسمة طلب التوريد ويتم تسجيل فية كل ما يحتاجة العميل من مواد اتفق علي شرائها 2 - يتم اخراج البضاعة الي العميل باكثر من فاتورة عند تسجيل الفاتورة اذا كانت الكمية في الفاتورة اكبرمن الكمية في طلب التوريد يعطيني رسالة بالكمية المتبقية ولا يسمح بادخال سجل جديد الا بعد تعديل الكمية في الفاتورة وللجميع التوفيق والتقدم الملف الفاتورة مع طلب التوريد.rar

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

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

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

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

اخى الكريم السلام عليكم ورحمة الله كان هناك خلل بسيط فى الخلايا التى يوجد بها الهايبر لنك فى الورقلة1 فتم نسخ الهايبر من ورقة اخرى بدلا منها اليك الملف بعد التعديل نماذج.rar

هلا والله

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

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

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

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

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

الف مليون مبروك أستاذ شفان و تستحق الكتير و الكثير . تحياتى لحضرتك

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

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

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

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

ألف مبروك اخي شفان وتستحق ما هو اكثر من ذلك زادك الله رفعة وعلماً دمت لاخوانك

عفوا ابو عبدالله ، بس للأسف ما عندي فكرة عن الموضوع يمكن الرابط التالي يفيدك https://www.codeproject.com/Articles/53059/Parallel-Processing-MS-Access-VBA-Application جعفر

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

شكرا لكم جميعا ان شاء الله ان نقدر نقدم مابامكاننا للجميع و ان شاء الله ان نقدر ننطي حق هذه اللقب شكرا لك @ابو زاهر @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 اولا راح يبدل الارقام ثانيا راح يحذف الارقام في حقل الاغلاق

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

السلام عليكم استاذ رمهان ماذا لو اريد نسخ عدد من مربعات النص (مثلا 5 او 6 مربعات نص) من السجل الحالي.. ولصقها في السجل التالي؟؟

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

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

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

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

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

صورة من داخل البرنامج

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

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

السلام عليكم ورحمة الله أهلا بك أخي.. لو استعملت البحث عن طلبك في المنتدى لوجدت العديد من الأمثلة وبعد إذن أخونا الكريم محمد نجار تفضل هذا المثال تحياتي Find Name.rar

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