ابوخليل

سلمت اناملك استاذ عبدالفتاح لايوجد ""لا يمكن"" في بيئة البرمجة ولكني لا حظت ان الوحدة النمطية ستفتح جميع التقارير في قاعدة البيانات ثم تغلقها عند فتح النموذج

جزاك الله خير على هذا العمل غالبا نحتاج لهذه الألوان وتقبل مني هذه الهدية ColourPicker.rar

ما دام سيتغير الاتجاه وتقرر الاستعانة بوسائط فأنا أرجح رأي آخر فاذا اردنا توظيف مربع التحرير فعلينا ان نكتب التقارير بحروف عربية .. واعتمد احدى الطريقتين الأوليين ,, واريح راسي

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

عملك يؤدي الغرض بامتياز ولكن الفكرة التي نريد الوصول اليها تختلف نحن لا نريد ان نستعين باستعلامات ولا جداول نريد توظيف مربع التحرير فقط

انا كاتبها في مثالي : عبدالفتاح ولكني لم استطع الوصول اليه تفضل تم التعديل كود أسماء كل التقارير4.rar

ابا جودي ليس هناك تصويت انا طرحت المثال لاثراء الموضوع ولحاجة في نفسي وهو هذا الاستفسار : كما في المرفق في مشاركتي السابقة أسماء التقارير مكتوبة بحروف انجليزية ، وهذا الذي اتبعه في اعمالي ثم اني في نموذج التقارير اكتب وصفا عربيا لما يحتويه التقرير أي تسمية عربية تدل على المحتوى . السؤال : هل يمكن اظهار تسمية عربية للتقرير في مربع التحرير بناء على التسمية التوضيحية المكتوبة في التقرير ؟ سواء بطريقة استاذنا عبد الفتاح او الطريقة الثانية او اي طريقة اخرى ؟ خطر في بالي ان استخدم IIF في الاستعلام ‘ ولكن في هذه الطريقة سنضطر الى كتابة التسميات داخل الكود

السلام عليكم استاذنا وحبيبنا عبد الفتاح شكرا لك ان تضع الكل في اهتمامك للاثراء : هذه طريقة اخرى باستخدام جدول النظام وعندي تساؤل ولكني سأطرحه لاحقا كود أسماء كل التقارير2.rar

ياسلام استاذ رمهان ، شكرا لك وتعقيباتك الذهبية في ردي كنت ابسط الحل للسائل فبدلا من فتح الاستعلام يفتح التقرير وما دامنا في التحسين يمكننا من خلال ما تفضلت به توظيف المعيار داخل التقرير ويعتبر الاستعلام contss زائد معيار3.rar

مثالك هذا من كنوز ابي هادي ، فكيف عثرت عليه ؟ Private Sub CmdRunQuery_Click() ' هذه الطريقة من صنع المبدع الكبير أبو هادي Dim QueryName As String On Error Resume Next QueryName = "Q_fahad" DoCmd.DeleteObject acQuery, QueryName With CurrentDb.CreateQueryDef(QueryName, "SELECT *, Sumمنduration FROM contss WHERE Sumمنduration " & [Forms]![Fahad]![ch3]) .Close End With DoCmd.OpenQuery QueryName End Sub مطلوبك يتحقق بتبديل السطر الاخير بهذا DoCmd.OpenReport "Q_fahad", acViewPreview وضع معيار 2.rar

الله ينور دربك بالايمان ، ويديم عليك نعمه ، واعتذر لتغيير الصورة

السلام عليكم

توكل على الله وامض فيما عزمت عليه بارك الله فيك

قيد النظر ... تم عمل الاستعلام يمكنك بناء التقرير عليه ولاحظ ان الكفلاء مختلفين ايضا yatem2.rar

عملك الموجود بالمثال ممتاز 100% ولماذا تعمل علاقة بين جدول الايتام وجدول التفاصيل .. ما يلزم لا حظ اني من الاساس لم اضع هذه العلاقة واذا احتجنا اليها نضعها في الاستعلام

لا يوجد في المثال جدول واذا فقط ام اليتيم او المسؤل عنه يتكون من : الاسم ورقم الاتصال فيمكن اضافة حقلين في جدول اليتيم ولاحظت انك لم تضف شيئا على المثال يجب ان تعمل عليه ، وتضيف النماذج والتقارير اللازمة ، وتوافينا بما يستجد

السلام عليكم حتى تعين اخوانك على مساعدتك ، حاول ان تضع طلبا واحد فقط في كل مرة

مطلوبك غير واضح حاول صياغة سؤالك بطريقة أخرى

السلام عليكم اخي الكريم يجب الاهتمام باختيار عنوان مناسب وايضا يجب الاقتصار على طلب واحد تم تعديل العنوان ، والطلب

هذا موضوع تجد فيه بغيتك

وعليكم السلام تفضل كما فهمتك من طلبك ويمكن ان يكون الحل بطريقة اخرى بحيث تستغني عن الرسالة مثلا اذا تم التأشير على الخانة يتم حماية حقل العنوان فلا يمكنه التحرير او الاضافة db11.rar

وعليكم السلام استبدله بهذا Private Sub Cus_Mob_BeforeUpdate(Cancel As Integer) Dim phone As Integer phone = DCount("Cus_Mob", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]") If phone > 0 Then If MsgBox(" هذا الموبايل مكرر لللاعب رقم" & DLookup("[Cus_Num_D]", "HA_Cus_D", "[Cus_Mob] = Forms![Cus_N_C]![HA_Cus]![Cus_Mob]"), vbInformation + vbMsgBoxRight, "رقم مكرر") = vbOK Then Cancel = -1 Undo End If End If End Sub

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

اهلا استاذ حلبي حقيقة الكود يوجد به اسطر زائدة عن الحاجة وكنت اخذته نسخ ولصق . فشكرا لك ،، قمت بتنسيق الكود وتحديث المرفق 'هذا الحدث سيعمل عند وجود خطأ في مصدر بيانات النموذج 'وحيث اننا جعلنا في المثال في جدول التفاصيل حقل الكفيل وحقل المكفول كلاهما مفاتيح 'أي لن نسمح بتكرارهما مجتمعين Private Sub Form_Error(DataErr As Integer, Response As Integer) 'اذا كان الخطأ مخالف لقواعد الفهرسة ومفاتيح الجدول أي تكرار ما لا يسمح بتكراره If DataErr = 3022 Then 'تجاهل الخطأ واستمر Response = acDataErrContinue 'تراجع عما تم كتابته Undo 'تنبيه صوتي Beep 'ورسالة MsgBox "ادخال خاطىء" 'نهاية الشرط End If 'نهاية الحدث End Sub

تفضل اخي الكريم المثال يبين الفكرة حاول ان يزيد مجموع الارقام في الفرعي عن الرقم الموجود في النموذج الرئيسي 2003UP.rar