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

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية

الف مبروووووووووووك لاستاذنا شفان ريكاني علي الترقيه ويستاهل اكثر

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

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

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

نعم اخي @محمد سلامة ان شاء الله مع هذا النوع وكل الانواع الاخرى تحياتي

السلام عليكم هذا هو الفديو الثانى فى شروح أكسيس و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى و كل إنسان له بداية ضعيفة ثم بالبحث و المران اكتسب المعلومات و الخبرة و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح أرفق لكم ملف الأكسيس قيد الشرح و نتعرض للموضوعات التالية فى هذا الفديو خاصية القيمة الافتراضية و فوائدها استخدام الخاصية فى إدراج معرف الموظف تلقائيا استخدام خاصية وقف علامات الجدولة دالة iff dcount dmax و أشكر الأخ المراقب أبا خليل لتشجيعه وفقكم الله

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

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

1000 مبروك أستاذنا المحترم // شيفان // تستاهل كل خير ...

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

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

السلام عليكم الان هل المشكلة قد تم حلها ؟

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

الف مبروك وتستاهل اكثر

ألف مبروك اخي شفان من اعلى لاعلى

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

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

العفو اخي@Shivan Rekany ماشاء الله عيك ربنا يبارك فيك نتمنا لك اكثر من هيك تستاهل الترقيه

الف مبروك اخ شفان ... انطلاقة قوية متوازنة

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

استاذ شفان للأسف تظهر لي هذه الرسالة بعد تغيير اسم الحقل cntryNm الى cntyNm1111 في القاعدة dbmain !!

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

الاستاذ / عبدللرحيم شكرا علي الاهتمام مرفق الملف ولا يوجد به الا زر واحد وعند الضعط عليه تظهر رساله كما مرفق بالصوره UserForm Flexibles 2003 .rar

اي مثلا احنا نريد ان نغير اسم حقل cntryNm باسم cntryNmeeee في جدول tblCountry راح نستخدم هذا الكود If rs!Name <> "tblCountry" Then DoCmd.RunSQL "Insert Into [" & rs!Name & "] Select * from [" & rs!Name & "] IN 'D:\fresh\db1.mdb' " Else DoCmd.RunSQL "Insert Into [" & rs!Name & "] Select * from [" & rs!Name & "] IN 'D:\fresh\db1.mdb' " DoCmd.RunSQL "ALTER TABLE tblCountry ADD COLUMN cntryNmeeee Text(100)" DoCmd.RunSQL "UPDATE tblCountry SET cntryNmeeee = cntryNm" DoCmd.RunSQL "ALTER TABLE tblCountry DROP COLUMN cntryNm" End If وبدل هذا الكود الاعلاه نقدر ان نعمل فانكشن لجميع متغيراتنا و نستدعيه بعد عملية التحديث اتفضل اليك قاعدة بيانات بها مثال استاذنا ابو خليل مع اضافة الكود الاعلاه fresh.rar

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

سؤال كيف نعرف ان هذا الطالب ناجح ام لا

مخالفتين في آن واحد بل ثلاث : الاولى لم تختر عنوانا مناسبا يصف موضوعك ، و لم تكتف بسؤال واحد والثالثة ان الموضوع مكرر يكتفى بالاجابة ، ويعدل العنوان ويغلق

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

اخي العزيز هل المرفق المذكور يعمل عندك علي نوع الاسكنر الموضح بالصورة hp scan5590 لانه نفس الاسكنر لدي

@حسين العربى أخي حسين بعد المحاولات العديدة توصلت الى المرفق التالي .. https://www.sendspace.com/file/7la1i1 لكن بخصوص اختيار جميع الملفات داخل المجلد بضغطة زر بدون فتح نافذة لم افلح في عملها ..ارجو من الاساتذة الكرام ايجاد حل لذلك @ابوخليل انت صاحب الكود فانت ادرى منا بذلك أما بخصوص عملية المسح من السكانر سواء العادية او من نوع اوتوفيدر ارجو التجربة وموافاتي بالنتيجة بالنسبة للسكانر من نوع اوتوفيدر يجب عليك اختيار مكان حفظ الصور في مجلد اسمه scanner الذي يجب عليك انشاؤه بجانب البرنامج ومن ثم بعد اكتمال عملية المسح اذهب الى زر اضافة مرفقات من جهاز الكومبيوتر واختار جميع الصور اعدادات السكانر من نوع اوتوفيدر موضحة بالصور المرفقة ملاحظة: لاتنسى عمل مجلد جديد وتحديد مساره من البرنامج لنقل الصور اليه ماشاء الله اول مرة ارى موضوع يصل عدد القراءات فيه الى هذا العدد 2,127 قراءات هذا يدل على اهمية البرنامج تحياتي

جرب المرفق هل هذا هو ما تريده ؟ دا تم تنفيذه فى ورقة العمل ويمكن تنفيذه ايضا فى الفورم Date form.rar

جزاكم الله خيرا

جزاكم الله خيرا ووفقكم الى ما يحب ويرضى

ولإثراء الموضوع وبعد اذن الأستاذ الكبير // سليم حاصبيا اليكم طريقة أخري بالكود مع تغيير طفيف شكل الشيت الكود بحدث Sheet2 يعمل تلقائيا بمجرد ادخال التاريخين جلب بيانات بين تاريخين _ 1.rar

لك ما تريد اخي محمد انظر الى الصفحة salim من هذا الملف جلب بيانات بين تاريخين sALIM.rar

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

بعد اذن اخي و حبيب القلب ياسر انظر الى هذا الملف صفحة Salim dup_Remover_from cel.rar

بارك الله فيكم إخواني الكرام وجزيت خيرا الجزاء

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

وعليكم السلام قد تجد المطلوب في موضوع أخونا شيفان جعفر

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

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

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

الأستاذ/Sam_bh السلام عليكم ورحمة الله وبركاته إليك الملف به جميع ايام السنةإن كان يوجد أجازة حددها في الورقة1 مقابل التاريخ اكتب إجازة أو مناسبة الأجازة فقط لا غير. وبالنسبة للحارس الذي يأخذ أجازة يكون عدد الحراس فقط 19 أم يقوم حارس آخر بعمله .أرجو التوضيح. المناوبة1.rar