ابو عبد الله العراقي

تم تعديل كود الاضافة بعد السؤال عن الاضافة وحبيت ارفعها على الموقع للاستفادة من هذا الموضوع .تحياتي للجميع ، ولكل من يحب العلم والتعلم sptialtest.rar

ممتاز عاشت اخوي العزيز لكن حاولت اطبق الكود على نفس المثال لكن ظهر لي خطأ ! تعبتك معاي لكن الغرض التعلم والافادة لي وللجميع😟 sptialtest.rar

السلام عليكم عاشت ايدك استاذ وهو المطلوب ممنون منك بس ياريت توضيح السطر البرمجي Response = acDataErrContinue ماهو المقصود منه ؟ وكيف نعرف هذه الاوامر البرمجية ؟؟

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

الاخ الكريم ابو جودي شكراً جزيلاً على التوضيح عاشت الايادي

عاشت ايدك استاذنا الفاضل وهو المطلوب لكن اذا امكن توضيح لماذا استخدمت .colum ولم تسخدم .value يعني لماذا Me.Combo2.Column(1) ولم تكن Me.Combo2.Value وماهو الفرق بينهما علماً اني طبقت في المثال عندي حسب ما حضرتك عملت ولكن لم يعمل الكود ولما عدت إلى .value اشتغل الكود وما في اي مشكل ، ارجو التوضح لتعم الفائدة ولغرض التعلم من الامثلة مع فائق شكر وامتناني لك ولكل يساهم في العلم التعلم في هذا المنتدى .

السلام عليكم ورحمة الله وبركاته الاستاذة الافاضل الاخوة الاعضاء في منتدى اوفيسنا اذا امكن طريقة كتابة كود لا يساوي نص معين في الـــ في بي اي وقد ارفقت قاعدة بيانات مضغوطة فعند اختيار اي سورة نختار البسملة في الكومبوبكس إلا في سورة التوبة الصحيح انه لا يوافق على كتابة واظهار البسلمة في هذه السورة ؟؟؟ Database1.rar

🌹 عاشت ايدك استاذ 🌹 ممنون منك

السلام عليكم ورحمة الله وبركاته الاستاذة الافاضل في منتدى اوفيسنا الاخوة الاعزاء اريد انشاء وحدة نمطية فيها دالة عامة تحتوي على مسار فتح فولدة في بارتشن معين ، بحيث يمكنني فتح هذا الفولدر وذلك عن طريق استدعاء هذه الدالة في اي نموذج في قاعدة البيانات حاولت انشاء الوحدة النمطية والدالة العامة لكن لم اتمكن من فتح هذا الفولدة علماً إنني جربت فتح الفولدر عن طريق انشاء مربع نص ووضع المسار داخله واستدعائه بزر وحسب الكود . فهل من الممكن استدعاء الدالة لفتح هذا الفولدر ؟ ارجو الفائدة . PathData.rar

عاشت ايدك اخوي العزيز تمام تسلم

السلام عليكم ورحمة الله وبركاته الاستاذة الاعزاء والاخوة اعضاء في منتدى اوفيسنا في قاعدة البيانات المرفقة وهي ملف تنفيذي يوجد زر طباعة ، هذا الزر يعمل بشكل صحيح عندما تكون قاعدة البيانات في وضع التصميم لكن عند تشغيل قاعدة البيانات بصورة برنامج ( ملف تنفيذي ) عند الضغط على هذا الزر لا يظهر التقرير المجهز للطباعة كذلك تصبح قاعدة البيانات غير مفعلة ولا يمكن اغلاقها إلا عن طريق الضغط على alt+shift+delete بصراحة عجزت عن ايجاد حل ارجو المساعدة في هذا الموضوع ولكم جزيل الشكر والامتنان تحياتي StudentsName.rar

وعليكم السلام جزالكم الله خير

السلام عليكم شكراً اخي الكريم سامي بصراحة اخي العزيز هو عند اختيار اسم بلد من الكومبوبكس لا تظهر النتائج إلا بعد عمل ريفريش للنموذج ، كما انه يقوم بتكرار السجلات بنفس الاسم لنفس البلد يعني لازم يظهر اسم واحد حتى وان كان مكرر في السجلات لنفس البلد ؟ ؟؟؟؟؟؟

السلام عليكم ورحمة الله وبركاته الأستاذة الأعزاء في منتدى اوفيسنا قاعدة البيانات المرفقة فيها بيانات المدن والبلدان وأيضا أسماء وقد قمت بعمل text box يحتوي على دالة dcount تقوم باحصاء عدد السجلات الكلي ، المطلوب هو إحصاء عدد المدن وعدد البلدان وعدد الأسماء في نموذج فرعي معتمد على اختيار من combo box . يرجى المساعدة ؟؟؟؟ Dcount.rar

السلام عليكم ورحمة الله وبركاته عاشت الايادي ممنون جداً منكم جميعاً على الحل والملاحظات وصلت الفكرة جزاكم الله عني خير الجزاء 🌹 تحياتي للجميع 🌹

استاذنا الفاضل موسى ممكن البيانات نص او رقم وهذا مرفق مثال بسيط لعملية حساب عدد السجلات المنفردة وغير المكررة Uni.rar

السلام عليكم الاستاذة الافاضل الاخوة الاعزاء هل توجد دالة تجميع القيم المنفردة في الاكسس ؟؟؟ انا استخرجت القيم المنفردة في الاستعلام عن طريق لكن المشكلة هي حساب عدد السجلات المنفردة الغير مكررة في البيانات واستدعائها في استعلام اخر او نموذج اخر ؟؟؟ Unique Records

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

السلام عليكم ورحمة الله وبركاته استاذ جعفر استاذ موسى مشكلتي ما انحلت ؟؟؟

والنعم منكم اساتذتنا الاعزاء بس مشكلة التاريخ ما انحلت وما عندي صبر

شكراً جزيلاً استاذي العزيز 🌹 ان شاء الله راح اشوف الفيديو التعليمي 🌹جزاك الله عنا خير الجزاء jjafferr كما اشكرك استاذنا العزيز jjafferr

السلام عليكم ورحمة الله وبركاته الاخوة الأعزاء في منتدى اوفيسنا ، ارجو توضيح طريقة كتابة دالة DLookup لكل من التاريخ والنص والأرقام . حيث ارفقت قاعدة بيانات فيها مثال لكل من التاريخ والنص والأرقام بصراحة المشكلة الرئيسية مع التاريخ ؟ ارجو تصحيح الصيغة والتوضيح مع الشكر والتقدير Database7.rar

🌹 عاشت ايدك يا استاذ 🌹 ممنون منك وجزاك الله كل خير

الاخوة الاعزاء في منتدى اوفيسنا pdf اريد تعديل كود فتح ملفات الـــــ يعني اذا كانت الملفات خارج ملف الاكسس بدون فولدر يكون الكود الاتي Dim pdfPath As String pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf" If IsFile(pdfPath) Then Dim OpnPdf As Variant OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus) Else MsgBox "File Not found " End If كيف يكون الكود ؟؟ reseacher في ملف مستقل مثلاً اسم الفولدر pdfأما اذا كانت ملفات الــــ

SubformEdite.rarالسلام عليكم ورحمة الله وبركاته اخي الكريم اكرم الاخوة في منتدى اوفيسنا الأعزاء الحمد لله بفضل من الله ونعمته تم التوصل إلى حل مشكلة عدم التعديل في النموذج الفرعي داخل النموذج الرئيسي المشكلة كانت في عدم التوصل إلى syntax كتابة اسم الفورم الفرعي في لوحة بناء الكود الفكرة انه من مصدر بيانات النموذج نختار Allow edit=NO بعدها نختار من قائمة الاحداث on current ونكتب الكود التالي Me.OrderDetailssubform.Form.AllowEdits = False لعدم تحرير النموذج الفرعي وعند التحميل نكتب الكود التالي Me.OrderDetailssubform.Form.AllowAdditions = True وهذا الكود لكي يسمح بالأضافة عند التحميل .