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

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

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

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

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

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

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

مرحبا لا يمكن جمع الحقول النصية وللتغلب على ذلك يمكن عملها بعدة طرق ومن اسهل الطرق ان نقوم بعمل اربع مربعات نص غير منظمة مخفية في المربع الاول نضع التعبير التالي =IIf(IsNull([Worker01]);0;1) اي اننا نقول اذا كان الحقل Worker01 فارغ يكون قيمة المربع المخفي يساوي 0 وان كان Worker01 غير فارغ المربع المخفي يساوي 1 وهكذا لباقي الحقول ثم في خانة المربع الخاص بالمجموع نجمع المربعات المخفية [t29]+[t40]+[t41]+[t42] جرب المرفق Database510.accdb

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

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

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

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

صمم الاستغلامات اولا ومن محرر الاكواد انظر اين تريد وضع الحدث الاتى ومتى DoCmd.SetWarnings False DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الاول" DoCmd.OpenQuery "اكتب هنا اسم الاستعلام الثانى" DoCmd.SetWarnings False

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

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

السلام عليكم جرب التالي (هذا سيحمي المستند من التعديل) من Developper Tab Restrict Editing Editing restrictions Read only ثم اختار Start Enforcement و اختار كلمة السر

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

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

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

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

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

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