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

وعليكم السلام-يمكنك دراسة الأكواد جيدا بالملف ومعرفة كل شيء لمعرفة الأخطاء التى قمت بها اولا : لم تقم بوضع الأكواد فى حدث الفورم , بل وضعتها فى حدث صفحة الإكسيل ثانيا :لم تقم بربط مسميات وادوات الفورم جيدا مع اكوادها وتشمل تيكست بوكس والليبل والكوماند . مثال ذلك فلابد من كتابة الكود ب 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

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

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

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

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

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

بارك الله بك، سرورك أسعدني.

السلام عليكم في المرفق المعادلة المطلوبة لتطبيقها في حقل محسوب في الجدول. ويمكن تطبيقها في الاستعلام> انظر الحقلين الأخيرين في الجدول Counters ForKhaled.accdb

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

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

الطريقة الاخرى بدون الحاجة الى مربعات النص المخفية في الحقل الخاص بالجمع نضع التعبير التالي IIf(IsNull([Worker01]);0;1)+IIf(IsNull([Worker02]);0;1)+IIf(IsNull([Worker03]);0;1)+IIf(IsNull([Worker04]);0;1) ويمكن عملها ايضا في الاستعلام مصدر التقرير الملف مرفق Database511.accdb

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

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

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

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

وعليكم السلام-اهلا بك بالمنتدى تفضل لك ما طلبت بارك الله فيك اخى الكريم بالنسبة لكيفية وضع التاريخ والوقت , تم عمل كود لذلك حتى لا يتغير .... كل ما عليك هو تقوم بعمل كليك يمين على اسم الصفحة VisitDetails ثم بعد ذلك تختار View Code وبعد كده تقوم بلصق هذا الكود فى النافذة التى ظهرت لك Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 1 Then If Target = "" Then Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 2) = Now End If End If End Sub أما بالنسبة للعمود الثانى B الخاص بالترقيم فتم فقط استعمال ووضع هذه المعادلة بداية من الخلية B11 والسحب للأسفل =IF(A11="","",SUBTOTAL(3,$A$11:A11)) وشكرا لك Date & Timing.xlsm

يمكنك استخدام معادلة الصفيف هذه ولابد من الضغط على ctrol+Shift+Enter =IFERROR(INDEX($B:$B,SMALL(IF($A:$A=$K$5,ROW(A$3:A$5000)-ROW(A$3)+1),ROWS($L$5:L5))),"") البحث لاكثر من شرط1.xlsx

My_formula.xlsx

تم ارسال الكود الجديد فى المشاركة الأخرى

لأ طبعا هى ايضا مخفية فى الملف المرسل منى ممكن لو هناك اختلاف فى نسخة الإكسيل فأنا اعمل على أوفيس 2010 ؟

تفضل إيصال قبض.xlsm

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

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

تفضل اخى الكريم انظر الى الصور من 1 :3 دليل على الترحيلات القديمة الموجودة أما الصورتان 4 و 5 فهما للصفين الجديدان المرحلان فهذا دليل على عمل الكود بكل دقة وهذا هو نفس الملف مرة اخرى أجندة محامى أخر وضع2.xlsm

تفضل تم التعديل أجندة محامى أخر وضع2.xlsm

تفضل لك ما طلبت أجندة محامى أخر وضع.xlsm

اهلا بك اخ كريم فى المنتدى تفضل Association.xlsm

تفضل اخى الكريم بعد اذن استاذنا أحمد تزايد الرقم بدلاله الزر.xlsm