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

انتظر وابشر بالخير ان شاء الله تعالى لك عندى مفاجأه لن تتوقعها ولكن تحضيرها سيتطلب منى وقت فقط انتظر واصبر وابشر بالخير

شكرا لكم احبابي عمل جميل ورائع واكواد نادرة ولكن ايضا العمل ضمن نموذج كما تفضل به ايضا استاذنا ابو احمد أما لو تم عمل دالة خاصة مثل : inputbox تشتمل على قيمتين ، فهو بيت القصيد

اخ اسلام سيد غالبا عند ما افهم بالضبط ما هو يريد صاحب السؤال انا عم اترك الموضوع وما اعمل التعليق لذا خلي وضح المطلوب اكثر لكي نكدر نساعدك اكثر تحياتي

بعد اذن استاذي ابا جودي هذا المرفق بعد التعديل المشكلة التي لم اتوصل لحلها الى الان هي عملية تجاوز خصائص المسح بالسكانر .. لذلك مبدئياً عليك الضغط على الغاء الامر لكي يستمر الكود في متابعة المسح من السكانر جاري رفع الملف ... تحياتي الارشيف.zip

السلام عليكم تفضل اخي الكريم If MsgBox("هل تريد حذف العنصر المحدد") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True Else Me.Undo End If تحياتي

اعتذر عن تأخري في الرد وذلك لان الانترنت ضعيف جداً في المنزل ويادوبك اقدر افتح صفحة .. طبعا الكود في مثالك يا اخي حسين استعملته في مثال اخي ابا جودي لان برنامجيكما متقاربان في الفكرة من حيث اجراء عملية سكان لاكثر من مرة .. انا حصلي شوية تشويش بسبب تقارب الاكواد في برنامجيكما ولاني كنت اعمل معكما في نفس الفترة تقريباً لذلك اعتقد انه لو استطعنا الوصول الى حل في مثال الاخ حسين فسوف يتم تطبيقه على مثال الاخ ابا جودي ويكون الوضع اسهل بالنسبة لكود ال TWAIN فرسالة الخطأ التي تظهر فيه شائعة لو بحثت عنها في الانترنت اعتقد ان هنالك مشكلة في احد الباراميترات الخاصة بها فصبراً جميلاً وبالله المستعان من الصعب جداً عمل تعديلات على كود متعلق بجهاز لاتملكه وتتوقع ان ينجح التعديل بسهولة >> لكني سأحاول جاهداً الوصول الى نتيجة .. ادعوا لي ^_^

السلام عليكم ورحمة الله أولا- أتقدم بالشكر لكل من شارك بالموضوع أو حتى مر به وجزاكم الله خيرا وأخص بالشكر ذلك الجندى الخفى الذى منحنى مفتاح الحل برسالة على الخاص أ/ محمد عصام @ابا جودى وقد أرسل الى هذا الرابط وقال لعله يفيدك http://www.databasejournal.com/features/msaccess/article.php/3848121/Extending-the-InputBox-function-for-MS-Access-Forms.htm وقد وجدت به مرفق جيد جدا حاولت تطويعه الى ما اريد وقد أثمرت محاولاتى عن هذه النتيجة وهى حتى الآن مرضية تماما والحمد لله وان كنت وددت لو كان هنالك حلا أكثر احترافية باستخدام api لمزيد من الفائدة ولكن ما تيسر تم به المراد والحمد لله وقد اسعدنى جدا مرور أستاذنا @يوسف أحمد MultiInputBox.rar

بسم الله الرحمن الرحيم لكل الأعضاء الجدد والقدامي أقدم هديتي المتواضعة قائمة فيديوهات لأساسيات الإكسل ومازالت السلسلة لم تنته بعد بإذن الله تعالى نكملها إلى الاحتراف هذا الجزء الأول منها وأنصح بمشاهدتهم جميعا وبهدووووء ولا ننتقل للحلقة التالية إلا بعد التطبيق والمراجعة تشجيعكم يدفعنا للاستمرار كيف يشجع العضو صاحب القناة أو المنشور؟ بعمل لايك للحلقة والتعليق ولو بكلمة ومشاركة المحتوى على صفحات التواصل الاجتماعي #اللهم_علمنا_ما_ينفعنا_وانفعنا_بما_علمتنا وفقنا الله جميعا لكل ما يحبه ويرضاه

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

الأستاذ : شفان ريكاني تسلم يدك و بارك الله فيك يا كبير اوي . تحياتى

للعلم انا اخدت اسكان عندي في البيت للتجربه عليه يعني في اي وقت/ لو في تعديل انا جاهز للتجربه

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

ملحوظة صغيرة : اذا لم تكن تعرف عدد مرات المسح فعند تطبيق اللوب السابق Do While يجب عليك ازالة اللوب For i = 1 To Nz(Me.Text1, 1) من المرفق السابق وذلك لأن لوب Do While Err.Number <> -2145320957 يتوقف فقط عندما يكون رقم الخطأ المستلم من الفيدر يساوي -2145320957 اي لم يعد هنالك ورق في السكانر لتصويره بينما اللوب For i = 1 To Nz(Me.Text1, 1) يتوقف عن العد فقط عندما يعد تصاعدياً الى قيمة مربع النص Text1

الله يبعدنا عن الهاكرز .. دحنا ناس غلابة اوي

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

تقدر تعمل لوب لعند مايصدر رقم الخطأ التالي -2145320957 للبرنامج حينها يتوقف اللوب عن اصدار امر السكان Do While Err.Number <> -2145320957 'عمل سكان Loop

استاذي القدير محمد سلامة يشرفني ان تجرب الملف كما ارجو منك ابلاغي بالنتيجة وذكر نوع السكانر الذي جربت عليه ^_^ بالنسبة للأسم فافضل ان يظل مجهول قدر الامكان

@حسين العربى أخي حسين وجدتها اخيراً ههه كانت المشكلة امام عيني طول الوقت لكني لم انتبه لها .. المشكلة كانت في الأمر : Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) عندما لغيته لم تعد تظهر لي مسألة الخصائص تلك إليك المرفق التالي .. جربه ووافيني أو الغي كود Ret من المرفق السابق وهذا الامر نفسه لأخي @ابا جودى ارجو تطبيقه على مثالك ايضاً تحياتي الارشيف2.zip

جرب هذه المعادلة قي الخلية E2 (تنسيق الخلية يجب ان يكون General) =DATEDIF(A2,B2,"y")+IF(C2+D2>0,1,0)

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

أبشر اخي حسين؟

على اد علمل المتواضع استخدم استخدم ناقص التاريخين ثم اقسمهم على عدد الايام بالسنة وهم 365 يوم ثم الناتج استخدم عليه دالة roundup مع جعل الخانات العشرية صفر ومرفق طية ملف توضيح او انتظر راي الخبراء بالمنتدى ووفقق الله لك الخير New Microsoft Excel Worksheet.rar

السلام عليكم الحل بسيط باذن الله.. اجعل الجدول الخاص بتسجيل الارقام ( ارقام النسخة وارقام تفعيل البرنامج) مضمن وليس مرتبط.. وسوف تحل المشكلة وضح كده؟

مشاركة مع السيد @محمد ابو عبدالله من الافضل ان لا تستخدم ME.Undo لان اذا تريد ان لا يحذف السجل وكان من قبل كنت عمل عليه تعديل راح يرجعه الى مثل القبل هذا والله يعلم تحياتي

مشاركتا مع السيد @محمد ابو عبدالله فرضنا اسم المربع النصي اللي تدخل التاريخ هو MyDateTascil استخدم هذا الكود قبل التحديث if Me.MyDateTascil > Date Then msgbox "لا يجوز تاريخ التسجيل الطلاب بيكون اكبر من التاريخ اليوم" Cancel = -1 endif

اخي co2002co الفكرة في هذا النوع من الحماية هي ان البرنامج (القاعدة الامامية) يتم تثبيته على جهاز واحد ولا يمكن تشغيله من جهاز اخر لانه محمي بقوة الموضوع ليس له علاقة بقاعدة البيانات الخلفية (الجداول) لانك اذا كنت تعمل داخل شبكة فاكيد ستكون الجداول التي فيها البيانات على السيرفر ومعمول لها مشاركة لباقي الاجهزة حتى يتم الربط معها باستعمال القاعدة الامامية هل وضحت الفكرة؟

ليس لدي فكرة في الواقع .. ربما لو أرفقت ملف نقوم ببعض المحاولات بحيث يكون الملف معبر عن الملف الأصلي وما هي تلك العمليات الحسابية التي تتم في أكثر من 16 ألف عمود ..أول مرة تقابلني حالة بهذا الشكل

هذا ما رجونا أن تتحفنا به ان لم نثقل عليكم أستاذنا ومعلمنا الغالى وجزاكم الله خيرا على جهدكم ووقتكم

السلام عليكم الاخ الكريم / شعبان فليفل بارك الله فيك تفضل اخي الكريم المطلوب بالملف المرفق .. وبالنسبة للشرح ان ما زلت تحتاج اليه فقط اخبرني مشاريع التنفيذ12.rar

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

نعم هناك عدة حلول استخدم if مع or او تكدر تسجل ارقام اكثر من جهاز لكن هناك يجب يكون تنطي شرط لكي يسجله اولا يجب يشوف الرقم اذا الموجود سيكمل وراح يشوف الرقم العملية اذا رقم العملية صحيح سيفتح القاعدة واذا الارقام ماكان موجود في الجدول سيفتح سجل جديد و يأخذ الارقام المطلوبة وبعدين يطلب منك التسجيل بعد التسجيل سيفتح القاعدة واذا فتحت القاعدة هناك يجب يدور على غلرقم اذا وجد سيشوف العملية اذا العملية صحيحة سيفتح والا يطلب التسجيل اتمنى ان يوصل لك المفهوم

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم مع تحياتي اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.rar

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

وعليكم السلام اعتقد أنك ما قرأت هذه القواعد قبل بث المشاركة قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة وعلى كل اود الترحيب بك كأخ جديد فى هذا الصرح - وأريد أخبارك بسر أن كل من هاهنا لن يبخل عليك بكل ما لديه من معلومة ولن يتأخر عنك بمساعدة مالم يكن ذلك مخالفا فان كنت تريد بناء مشروعك بنفسك دون التعدى على حقوق الآخرين فابدأ بطرح فكرتك وكما أخبرتك لن يتأخر عنك أحد على قدر الاستطاعة والوقت المتاح.

يعمل على الاسكان المنفرد الله يرضى عليك تمااااااااااااااااااااااااام وتحت امرك حنقل لحضرتك الاكواد اللى موجوده فى المرفق عندى لعندك من غير ما نثقل على استاذنا الجميل @sandanet على الاقل انا مش حتعب قوى زيه فى النقل لان انا اخدت وقت كتير على مافهمت الاكواد وعدلتها لاصل بها الى تلك النتيجه المشكله بقه لو حضرتك عاوز تعمل اسكااااااااان لاكثــــــــــر من ورقه فى وقت واحد ؟! لا يعمل واحاول الى الان فى ذلك

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

كان عندي لكن للاسف بعد عملت تجربة على جهازي و عملت فورمات بعد ما اشوفه في جهازي ما اعرف وين خزنته لكن سابحث عنه لك

نعم بالضبط استاذ @عبد الفتاح كيرة If len(Text01) > 10 Then

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

مين فات قديمه تاه

اتفضل ان شاء الله يكون ده المطلوب MoreSale_up.rar

السلام عليكم اخواني الاعزاء هذا مثال قمت بعمله يفي بالغرض ان شاء الله بالتوفيق للجميع Input Box.rar

لو حضرتك عملت المرفق بالطريقه دى ممكن تضع المرفق هنا وننتظر راى اساتذتا الكرام بارك الله فيهم فى طريقة لاختصار الاكواد وده المثال كامل بكل الاكواد التى تخص كل مستويات الدرجة - عشر مستويات طبعا تم افتراض الناتج الذى يساوى المرتب افتراضيا فقط للتوضيح والتأكد من عمل المثال بشكل جيد مثال-جديد (4).rar

الان جربه اذا حد الرسوب بيكون ما بها اي رقم لا يبدله stu.rar

جرب اخي المرفق التالي وفي انتظار ردك تقبل خالص تحياتي نسخ شيتات معينة لملف آخر بدون المعادلات وتسميته بتاريخ اليوم.rar

عجيب جدا ,, كل ما اضفت كلما تغير !! ولكني جربت كودا تفضل به اخونا شيفان هنا ويبدوا انه يأخذ رقم الهارد الحقيقي وليس القسم واضفته الى مرفقنا جرب ووافني بالنتيجة

تفضلوا تم التعديل 1- استبدال الدالة بأخرى تستخرج الارقام بدلا من تحويل النص الى رقم 2- الاقتطاع اصبح اربعة ارقام بدلا من 3 3- تغييرات وتصحيح لبعض المتغيرات الآن هذه صورة لرقم الاجهزة عندي انظروا ان كانت تتوافق مع اجهزتكم الهارد والمعالج واللوحة الأم2.rar جزاك الله خير وخيرا فعلت كنت اتصور نموذج المعادلة سيكون عند العميل

السلام عليكم ورحمة الله أخي الكريم علي، أبدلت الدالة AGGREGATE بالدالتين INDEX و SMALL في معادلة صفيف تجدها في الملف المرفق... بن علية Ex1.rar

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

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل بالطبع هناك اكواد كثيرة لعمل شاشة الادخال وكذلك الاستعلام ولكني قصدت اختيار اسهل هذه الاكواد لعمل ذلك لتكون اسهل في توصيل المعلومة وكذلك اسهل عند التطبيق وارجو من الله ان اكون قد وفقت في عمل ذلك (((( الدرس الثالث )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء في هذا الدرس سنتعرف علي طريقة عمل استعلام في نفس الفورم الذي قمنا بتصميمه عن البيانات السابق تسجيلها في صفحة البيانات وذلك عن طريق استخدام كومبوبكس لعمل ذلك ... مع وضع اكواده ... وشرح الكود سطر سطر كما تعودنا واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري في الدرس القادم سنتعرف الطريقة لعمل التعديل في البيانات السابق تسجيلها وذلك عن طريق نفس الفورم ( ان شاء الله ) واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 1 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال واستعلام 3.rar طريقة عمل استعلام في الشاشة عن طريق كومبوبكس3.rar