ابوخليل

اذا 50 تصير 5 يعني واحد عن كل عشرة تعتبر خيال ما رأيك نختزل الــ 27 تقرير في تقرير واحد طبعا حل الاستاذ صالح سيكون ضمن الخلطة المطلوب مثال mdb يحتوي على التقارير الثلاث لاحدى الفئات ولا تنسى ادراج بيانات اكثر من فئة في الجدول

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

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

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

شكرا استاذنا شيفان وهذه الاكواد حسب طلبك الغاء من الخيارات Application.SetOption "Confirm Action Queries", 0 Application.SetOption "Confirm Document Deletions", 0 Application.SetOption "Confirm Record Changes", 0 اجعلها في حدث تحميل نموذج البداية وهذه لارجاع التحذير Application.SetOption "Confirm Action Queries", 1 Application.SetOption "Confirm Document Deletions", 1 Application.SetOption "Confirm Record Changes", 1 يمكنك جعلها في حدث اغلاق النموذج ان شئت

السلام عليكم تم اصلاح البحث البحث بالتاريخين اجباري والحقلين الآخرين اختياري ايضا يمكنك فتح التقرير على نتائج البحث وحيث يوجد في جهازي الاصدار 2003 فاضطررت الى تحويل الصيغة الى mdb تفضل مثالك بعد التعديل vcb.rar

اخونا وحبيبنا هي ليست فكرة وليست نجاح وفشل هي حقيقة الكود يلغي رسائل التحذير على مستوى قاعدة البيانات مالم تعكس الكود ويبدو ان هذا ما يحدث عندك من خلال النماذج الاخرى تتبع هذه العبارة DoCmd.SetWarnings بالبحث في برنامجك وعطلها

وعليكم السلام الامر يسير فقط اكتب سطر التعطيل في حدث فتح نموذج البداية DoCmd.SetWarnings False سيتم تعميم الاجراء على كافة قاعدة البيانات حتى يتم اغلاقها

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

اخوي طارق نحن ننظر للسؤال ونحاول تطبيق المطلوب بالضبط الدالة Round تعطي نتيجة 12 وليس 11 هذا هو اللبس الذي وقع بينك وبين اخوتك وهو ان السؤال الذي طرحته غير مطابق لما تريد

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

تم مع الشكر والتقدير

في المرات القادمة اعمل مثال بسيط ، يوضح الفكرة تفضل تم التعديل على مصنف اكسل ، والدالة لا يختلف عملها هنا او هناك Xl00.rar

نعم كلامك صحيح ، الصور خارج قاعدة البيانات فليس لها تأثير

السلام عليكم جرب استخدام int هكذا Int([text1])

في بالي لوكان المرفق mdb لاشارككم استاذنا تمون واكثر .. وأشكرك على تواضعك ولطفك وبالعكس مثل هذه تحمل بين طياتها التقدير والمحبة ، اكرر شكري وتقديري .. ترشيح محل اعتبار

مشاركة مع الاستاذ محمد جزاه الله خيرا هنا يلغي رسالة أكسس Private Sub المهنة_NotInList(NewData As String, Response As Integer) Undo Response = 0 MsgBox "(لاتوجد هذه المهنه ضمن الاختيارات)" End Sub

جرب اضف مع الكود المذكور الجملة التالية : Or Is Null

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

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

If MsgBox("هل تريد حذف هذا السجل ؟", _ vbCritical + vbYesNo, _ "تحذير") = vbYes Then DoCmd.RunCommand acCmdDeleteRecord Else Exit Sub @Shivan Rekany

احتمال يكون الخلل من تفعيل بعض خصائص قاعدة البيانات الصورة في المرفقات هي لخيارات قاعدة بيانات mdb ابحث عن الخاصية المحاطة بالمربع الاحمر في الخيارات الخاصة بالاصدار الذي تعمل عليه ثم ازل العلامات من مربع الخيار ان وجدت ثم اغلق قاعدة البيانات وافتحها من جديد

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

السلام عليكم يتصور حدوث هذا في كود تحديث update يمر على الحقل ويقارن ويطبق التعديل ويمكن تضع هذا الكود في عنصر تحكم حقل غير منضم داخل النموذج =IIf([a]=[b];0;[a]) وكذلك يمكن تطبيقه عند ادخال القيمة في النموذج وفي حدث بعد التحديث لحقل a If a = b Then a = 0 اي لما ادخل قيمة في a تساوي قيمة b تتحول لصفر بمجرد خروجي من الحقل

شكرا استاذنا العلامة محمد صالح شرح ولا اروع درر ونفائس وعمل احترافي نادر جعله الله في موازين اعمالك