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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته أخي الكريم ... يبدو أن خيار 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));

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

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

وعليكم السلام حسب علمي ، وانا لست بخبير في SQL Server الواجهة ممكن ان تكون: - اكسس - وبرنامج Visual Studio به عدة برامج يمكن استخدامها كواجهة ايضا ، مثل جميع عائلة Net. ومنها Asp و #C و VB ... ، جميعها مكمّله لـ HTML ، اي يجب عليك معرفة HTML عند استخدام البرامج اعلاه، هذا والله العالم ، وفي انتظار رد محترفي هذا المجال جعفر

مساء الخير على جروبنا العزيزفيديو جميل وجديد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

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

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

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

الف شكر على تعبكم وبالاخص الاخ عمرو

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

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

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

السلام عليكم جرب اخي المرفق ارقام الجلوس2.rar