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

وعليكم السلام-يمكنك دراسة الأكواد جيدا بالملف ومعرفة كل شيء لمعرفة الأخطاء التى قمت بها اولا : لم تقم بوضع الأكواد فى حدث الفورم , بل وضعتها فى حدث صفحة الإكسيل ثانيا :لم تقم بربط مسميات وادوات الفورم جيدا مع اكوادها وتشمل تيكست بوكس والليبل والكوماند . مثال ذلك فلابد من كتابة الكود ب TextBox1 وليس Text1 .كما قمت انت لأنك قمت بتصميم الكود وتسمية هذا Textbox1 وليس Text1 تم تعديل كل شيء , من فضلك اطلع على الملف مع ضبط وربط الأكواد بالفورم example.xls

تفضل يمكنك استخدام احدى المعادلتين حسب رغبتك =SUMPRODUCT(1/COUNTIF($C$5:$C$16,$C$5:$C$16)) أو هذه المعادلة =SUMPRODUCT(($C$5:$C$160<>"")/COUNTIF(C5:C160,C5:C160&""))

هل مللت من رسائل الآكسس الافتراضية !! سيتم عرض الرسائل بهذه الطريقة 😃 جرب المرفق و ادعو لي ... رسالة من الويندوز.accdb

جرب المرفق IIf(IsNull([Worker01]) or [Worker01]="0";0;1)+IIf(IsNull([Worker02])or [Worker02]="0";0;1)+IIf(IsNull([Worker03])or [Worker03]="0";0;1)+IIf(IsNull([Worker04])or [Worker04]="0";0;1) Daily Report V07.accdb

اتفضل غياب_الطلاب.mdb

الأستاذ @خالد عبد الغفار تحية عطرة اتفضل جرب هذه الفكرة المتواضعة Function MyRound(NUM As Double, Near As Integer) As Integer MyRound = IIf(NUM - (NUM \ Near) * Near >= 2.5, (NUM \ Near) * Near + Near, (NUM \ Near) * Near) End Function يتم استدعاء الكود كالاتى MyRound([X],Z) حيث [X] هو اسم الحقل للأرقام التي تريد معالجتها اما Z هو الرقم الصحيح الذى تريد التقريب اليه قد يكون 5 او 10 حسب رغبتك لا تقول اوفيسنا ما دللتك

السلام عليكم في المرفق ستجد نموذجاً ابدأ بزر التصدير بعد التعديل على البيانات في جدول الأكسس ثم عد و استورد بعد التعديل على البيانات في ملف الإكسل الطريقة هي: بتصدير الجدول بصيغة إكسل و سيكون موقع الحفظ في جوار قاعدة البيانات. ثم وضع ملف الإكسل إلى جانب قاعدة البيانات في الحاسوب الثاني. ثم استيرادها بنقر مفتاح استيراد. أرجو أن يكون هذا ما تبحث عنه. ImpoertExport.accdb

بعد اذن اخي علي هذا الملف (عسى ان ينال الإعجاب) list_uniques.xlsx

اعتقد اخى / @أكرم جلال ان د/ محمد ناجح سحب معظم (وليس الكل) شرح تصميم اى مشروع معمول باكسس وجعلها كورسات مدفوعة الثمن على العموم سوف ابحث لك وان وجدته سوف ارسله لحضرتك وايضا حاول ان تبحث معى بدقة فى كلمات البحث فى اليوتيوب وادخل على القناة بتاعته ستجد جمع المشاريع الاخ / @أكرم جلال وجدته لك يارب يكون المطلوب https://www.youtube.com/watch?v=5aFjhVy40jQ&list=PLSvt7QjVwPBdXUM7Um8oXtH98_MFe8PzT

سؤال عابر: هل من الضرورة أن تكون العمليات في حقل محسوب في جدول أو استعلام؟ الجدول مقيد بالـ built-in functions / الدوال الافتراضية في البرنامج الاستعلام يحتاج إلى إضافة حقول، مع القدرة على التوسع بدوال جديدة عن طريق VBA. حاول ألا تستخدم الحقول المحسوبة في الجداول وحتى في كثير من الحالات مع استعلامات التحديد، وضمن العمليات في الفورم عن طريق Vba أو استعلامات إجرائية.

السلام عليكم ورحمة الله ضع الكود الاول فى موديول عادى Sub test() Dim sp As Shape Dim SN As String, SR As String SR = Sheet2.Range("B2").Text For Each sp In Sheet2.Shapes If sp.AutoShapeType = msoShapeHeart Then SN = sp.TextFrame.Characters.Text sp.Visible = False If SN Like "*" & SR & "*" Then sp.Visible = True Else sp.Visible = False End If End If 'Exit For Next End Sub وضع الكود الاخر فى حدث الورقة 2 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub Call test End Sub

كيف يمكن تعبئة جدول مرتيب ابجديا فقط من خلال الكتابة في الصف رقم 2 للمزيد انظر الى هذا الملف WRITE_JUST IN ROW_2.xlsm

السلام عليكم و رحمة الله و بركاته المرفق مثال يحتوي على أكواد مهمة / منقول من موقع أجنبي / قد يحتاجها أحد الزملاء أو الاساتذة لتصميم برامجهم أسأل الله لي و لكم التوفيق و السداد MoveForm&Control_v7.3.accdb

طيب جرب هذا المرفق وأخبرنى بالنتيجة خالد.accdb

بعد اذن استاذى واخي خالد سيسكو Database8 (3).accdb

ليس اعجاب واحد ولا اثنين ولا ثلاث بل ............. مليون اعجاااااااااااااااااااااااااااب

السلام عليكم و رحمه الله و بركاته اخي جرب العبارة Fix((32*2/10))*10 غير 2 و 32 الى اسماء حقول

السلام عليكم و رحمة الله احبتى فى الله اخجلتم تواضعى بردودكم ودعاؤكم لى جعلنى الله دائما عند حسن ظنكم

بارك الله فيك وزادك الله من فضله

السلام عليكم ستجد المرفق في أسفل المشاركة البيانات تجمع في جدول واحد. برنامج القرض مجاميع.accdb

الاخ الفاضل / @waheidi محاولة منى راجع المرفق بعد التعديل وان كان هو المطلوب اشرح لك اي استفسار غياب_الطلاب.mdb

صراحه لم اجد حلا غير هذا المثال وقمت بالتعديل عليه ليناسبك ولعل احد اخواننا واساتذتنا يشاركونا بحلول اخرى وهو كان حل مقدم لسؤال الاستاذ محمود فؤاد تركى عالرابط التالى http://arabteam2000-forum.com/index.php?/topic/228816-كيف-يتم-التقريب-لاقرب-5/&do=findComment&comment=1136389 وان شاء الله تجد حلول اخرى بالنسب للتقريب لادنى 10 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Round.rar

السلام عليكم عند الضغط على تم الانجاز يختفي (الوميض) ويرفع الاسم من تقرير المعاملات غير المنجزة يوجد تقرير + استعلام اتمنى يكون المطلوب تحياتي رسالة تنبيه.rar

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

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

اعتذر منك استا1نا خلف لتواجدى خارج المنزل عند التقريب لأقرب 10 فى العدد الصحيح وبصفتى اساسا معلم رياضيات بنستبل رقم الأحاد ب صفر اذا كان رقم الاحاد اكبر من او يساوى 5 يتم زيادة الرقم التالى 1 اللى هو رقم العشرات اما اذا كان الآحاد اقل من 5 لا يتم زيادة الرقم التالى وانما ينزل كما هو مثلا العدد 31 يقرب الى 30 وكذلك 32 و33 و34 اما 35 تقرب الى 40 وهكذا ان شاء الله اجرب التعديل الأخير لحضرتك واوافيك بالنتيجه ويارب يضبط يبقى اسهل فى قاعدة الكتترول الاصليه دمت بخير حبيبى اللى انا تاعبك معايا فرج الله همك ورزقك الفردوس الاعلى اللهم آمين

على الرحب و السعة أخي الكريم .. تحياتي لك

شكراً لكم وبارك الله بجهودكم

و اياك أستاذي الفاضل

جزاك الله خيرا اخى محمد

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

و اياكم أستاذي الفاضل @ابا جودى تحياتي لك شكرآ جزيلآ أستاذي @Ali Mohamed Ali و أسأل الله لك التوفيق و النجاح

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

السلام عليكم أخي الحبيب إليك المعادلة جربها إن أردت تطبيق الحقل المحسوب في جدول. شكراً لكم المعادلة بصيغها النهائية IIf(Right([bg1]*2;1)<>0 And Right([bg1]*2;1)>5;10+((2*[bg1])-Right([bg1]*2;1));IIf(Right([bg1]*2;1)<>0 And Right([bg1]*2;1)<=5;((2*[bg1])-Right([bg1]*2;1));[bg1]*2)) ForKhaled.accdb

السلام عليكم هذا رابط يخص الموضوع تحياتي http://arabteam2000-forum.com/index.php?/topic/96583-كيفية-قفل-النموذج-بحيث-لايمكن-التلاعب-به/

هل تريد أقرب أعلى عشرة أم أقرب العشرتين؟ لقد ضبطت المعادلة على الأساس السابق، فإذا كان المقصد العشرة الوسطى فانتظر حتى أعدل المعادلة على هذا الأساس. على أي حال بما أن الأستاذ أبا جودي قد سبقني و بما أن انقطاع الكهرباء قد حان عندنا بعد انقطاع الإنترنت. فلعلي أعدل المعادلة على نحو مرضٍ كونها الوسيلة الوحيدة و ليست المعادلة الوحيدة للعمل في جدول - حقل محسوب. بالتوفيق و الشكر للأساتذة

استاذنا الفاضل خلف انا تعبتك معايا اليومين دول والله ربنا يبارك فى عمرك انت وال بيتك الحقيقة النموذج بعد التطبيق نتايجه مش تمام يعنى لو جمعت 4 + 2 =6 نضربها فى 2 =12 اقرب لعشره وليس 20 عكس المرفق السابق بعد اضافة استاذنا الفاضل ابا جودى ضبط تمام انا جربته على المستجد وباحاول اجرطبق على النصف الثانى الى هو القرار وجزاك الله كل خير حبيبى ربنا يجازيكم اجمعين خير الجزاء اللهم امين تحياتى لكم جميعا

اشكركم جميعا اخواني الافاضل

اتفضل اخى ان شاء الله يكون كما تريد اطفال.rar

https://youtu.be/5bfbH6F3ZIM رابط الفيديو بعد اعادة الدرس

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

بالتوفيق ان شاء الله

وعليكم السلام-يمكنك الإستعانة بهذا Trasted Location .. إنشاء موقع أمان لملفات الأكسيس توماتيكى

السلام عليكم هذه الصيغة النهائية لما تطلب ولكن شبه النهائية لما ستحتاج، لابد من لحظ الحاجة إلى تعديل القيود في البرنامج. جدول المجاميع الجزئية والكلية. أتمنى لك التوفيق. برنامج_القرض_مجاميع.accdb

يمكنك هذا من خلال متابعتك لهذا الفيديو الجزء الأول عمل فورم الادخال في اكسل بتفاصيل رائعة مع الاستاذ الرائع اسلام رجب

جزاك الله خيرا اخى mohamad dahleek على المثال الرائع

تفضل أخي تم تعديل حتى على زرين Back و مسح، حيث زر Back يمسح آخر رقم المدخل و زر مسح يمسح مربع نص بالكامل number form to form.accdb

اين المرفق ليتم التعدبل عليه

السلام عليكم kokersy اخي العزيز الملف المرفق فيه تنبيه لللفترة من 1-10 من كل شهر (وميض احمر) يمكن تغيير الفترة ؟؟ حسب متطلبات عملك والسجل الذي فيه علامة صح يعتبر سجل صالح والعكس صحيح يمكن ان يتم التعديل على الملف بسهوله كيفما تريد تحياتي رسالة تنبيه.rar

أختنا الكريمة تم عمل كشف الأوائل بالأكواد من خلال القوائم المنسدلة تمكنك القوائم المنسدلة من إختيارات متعدده ( الأوائل حسب المجموع الكلي أو المواد والصف و الفصل الدراسي ) وأسأل الله عز وجل أن يكرم أساتذتى بهذا المنتدى والذين لهم فضل بعد الله سبحانه وتعالى في كل ما تعلمته بخير الخير أخى الحبيب الأستاذ الكبير // الشهابي بوركتم وجزيتم عنى خير الخير THE FIRST ST.rar