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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

جزيت خيرا اولا وابشر ان شاء الله

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

لم استطع ايجاد من اين ارسل رسالة خاصة هذا تقريبا مستخدم نفس فكرتك http://arabteam2000-forum.com/index.php?/topic/125583-كيف-تبني-برنامج-مخازن-ومبيعات-بطريقة-صحيحة-؟؟/&page=21#comment-1371601 وهذا الثاني https://lookaside.fbsbx.com/file/برنامج إدارة المنشآت التجارية مفتوح المصدر مع شرح طريقة الإستخدام.rar?token=AWzZ-m2AzSevl95iMljFXDVxZxbv2ovVgQAsT1weFovAbQQLmF7X5qhkFX032ge25FNXcYM4k6HDTT9jY16dfDbZX5Gt9bL8eLSpKvxJblMeFNhKh5IAY1gUzLwf1_vVfpQrf3hy7h69pKPDIouZIL0wJxVgEERkrHMUsLW7uNaLlXicNF1qELQiM2pOYHNx3Pc وهذا الثالث وهو تقريبا شبه كامل https://doc-08-14-docs.googleusercontent.com/docs/securesc/bdtdh24g9nrafv435goqkno63c1sed8a/ioj4a1q8hkah7hearsqqh4mde7q4tb1q/1493107200000/02894677883946874337/01533133158331986005/0BzL9wmE2qeJoUnM2UXhobXNwcHM?e=download&nonce=p1mfnq95ooobq&user=01533133158331986005&hash=qkmlo9jalcm69cndoei1rr7mhdgfnei2

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

السلام عليكم الله يعطيك الصحة و العافية عندي سؤال خارج الأكسس, لو تكرمتم أنا عم علّم حالي السيكوال سيرفر ولكن شوي مرتبك, بموضوع : واجهة السيكوال بمعنى : مثلا الأكسس فيه الجداول و الإستعلام و النماذج و التقارير واجهة المستخدم في الأكسس هو النموذج أما في السيكوال ..... فهو يفتقر إلى هذه النقطة لذلك نلجأ إلى ال Visual Studio او ASP.NET سؤالي : أي من هذه البرامج تفضل أن تكون واجهة للمستخدم بالنسبة لي : في شخص خبرني أنو ال HTML أفضل شي , ليكون واجهة للمستخدم بالنسبة للسيكوال جزاكم الله كل خير

مشوار الألف ميل يبدأ بخطوة ونسأل الله التوفيق والسداد.

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

باذن الله اشوف الموضوع واعتقد هو كيفية استخدام ال eval بشكل اصح والشكر موصول لك استاذ عبدالفتاح تحياتي

السلام عليكم ورحمة الله وبركاته قمت بحل المشكلة بالشكل التالي جدول التقديرات = Appreciation قمت بوضع التقديرات بشكل رأسي كما بالصورة رقم 1 وتم انشاء استعلام = QAppreciation وباستخدام دالة IIF تم وضع الكود التالي N1: IIf([MarkStudent]>=[Mark4];[Appreciation4];IIf([MarkStudent]>=[Mark3];[Appreciation3];IIf([MarkStudent]>=[Mark2];[Appreciation2];IIf([MarkStudent]>=[Mark1];[Appreciation1];[Appreciation1])))) والنتيجة كما بالصورة رقم 2 والنتيجة كما بالصورة رقم 2 مرفق قاعدة البيانات للفائدة تحياتي db101_2.rar

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

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

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

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

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

بارك الله لك أخي الكريم أبا البراء كود رائع ولا يوجد مكرر في النص من الأساس أخي صاحب الاستفسار وربما يتوجب عليك أن تعرف ما مضمون الكود الرائع للحبيب ياسر وهو تقسيم النص الموجود بالخلية بناء على وجود الفاصلة ( ، ) ومقارنة الكلمات بين الفصلات وحذف الكلمة التي سبق وجودها

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

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

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

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

اتفضل استخدمت هذا الكود 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

الاخ الحبيب أبو حنين