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

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

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

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

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

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

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

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

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

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

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

السلام عليكم ١- هناك أمر ترحيل وضعته بين خطين من إشارة يساوي بصورة تعليق تحت زر الحفظ في نموذج تسديد ونموذج تعزيز. ٢- هناك جدول باسم MAAJAMEE3 ترحل إليه إدخالات النموذجين مع مجموع الإدخالات في كل سجل، في العمود MAJAMEE3 الطريقة ٢ باستخدام استعلام توحيد لجدولي التسديد التعزيز مع إضافة مجموع في نهاية الاستعلام. لكي تجرب الطريقتين: قم بإدخال تعزيز جديد وتسديد جديد ثم افتح الجدول MJAMEE3 وانظر إلى النتيجة .

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

تفضل أخي تم تعديل حتى على زرين 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

أستاذ bandar123 أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!1 💙

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

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

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

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

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

يمكنك حفظ مشاركتك بحفظها كما تحفظ اى موقع تفتحه اى عمل bOOKMARK THIS pAGE بالضغط على هذه الأيقونة أو الضغط على Ctrl+D يمكنك ملاحظة الصورة 2 وعند استدعاء هذه المشاركة مرة اخرى يمكنك مشاهدة الصورة رقم 3 & 4 بارك الله فيك

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

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