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

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم 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 اولا راح يبدل الارقام ثانيا راح يحذف الارقام في حقل الاغلاق

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

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

برنامج_مخازن_جديد.xlsm

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

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

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

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

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

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

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

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

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

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

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

السلام عليكم تفضل أخى شرط.rar

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

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

السلام عليكم ورحمة الله وبركاته أخي الكريم ... يبدو أن خيار Row and column headings مفعل يمكن أن تلغي علامة الصح ... مرفق صورة

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

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

هذه هى الجملة الصحيحة لاستخدام الشرط تحت الحقل مباشرة وفيها يذكر اسم الحقل مباشرة SELECT t1.exmid, t1.exmtotal FROM t1 WHERE ((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true"))=True));

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

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

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

حفظكم ربنا ورعاكم الاستاذ ياسر خليل والاستاذ محمد صالح

مساء الخير على جروبنا العزيزفيديو جميل وجديدhttps://youtu.be/m7YoScf7boo يارب المعلومة تكون مفيدة اخوكم ماجد

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

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

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

السلام عليكم أخي حلبي الرابط فيه طلبك: وهذا جعفر

جرب هذا الملف UserForm Flexibles.rar

اتفضل استخدمت هذا الكود Private Sub أمر9_Click() On Error Resume Next Dim sql As String DoCmd.SetWarnings (warningsoff) sql = "UPDATE جدول_المواد SET جدول_المواد.[حد الرسوب] = [Forms]![نموذج_الطالب]![جدول_الدرجة نموذج فرعي].[Form]![حد الرسوب]" & _ "WHERE (((جدول_المواد.[رقم المادة])=[Forms]![نموذج_الطالب]![جدول_الدرجة نموذج فرعي].[Form]![رقم المادة]));" Dim r As Integer r = DCount("[رقم المادة]", "q1", "[رقم الطالب]=" & Me.رقم_الطالب) Forms![نموذج_الطالب]![جدول_الدرجة نموذج فرعي].SetFocus DoCmd.GoToRecord , , acFirst For i = 0 To r DoCmd.RunSQL (sql) DoCmd.GoToRecord , , acNext Next i DoCmd.SetWarnings (warningson) End Sub واليك الملف بعد تعديل stu (1).rar

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

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

تم تحميل البرنامج برنامج ممتاز

كل عام وانت طيب يا ابا البراء ولإثراء الموضوع وهذه صورة مجمعة للخطوات كل عام أنتم جميعا بخير

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

لا شكر على واجب اخى العزيز وخالص التحية للاخ العزيز ابو حنين

العفو أخي الحسين و الشكر موصول للأحباء : ـ عمرو رحيل ـ ياسر خليل

بعد اذن استاذى ابو حنين حل اخر بالمعادلات ارقام الجلوس3.rar