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

لمنع الطباعة يمكنك استخدام هذا الكود مرفق مثال Dim WithEvents WordApp As Application Private Sub Document_New() Set WordApp = Application End Sub Private Sub Document_Open() Set WordApp = Application End Sub Private Sub WordApp_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean) 'Text displayed to the user if they try to print strMessage = "لا يمكن طباعة هذا المستند " MsgBox strMessage, vbOKOnly + vbExclamation, "Print" Cancel = True End Sub المصدر مرفق مثال noprint.zip

استعمل هذا السطر قبل سطر فتح الإستعلام DoCmd.SetWarnings False وهذا بعده DoCmd.SetWarnings True

و يمكن ايضاً تعديل التسميات لتناسب اسماء الحقول المعنية ... سيتغير الكود الى التالي : Select Case Forms!frm1.Form!Cmd.Tag Case 0 Me.aa = DLookup("aa", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("aaa", "tbl1", "id= " & Me.ID) Me.lbl1.Caption = "aa" Me.lbl2.Caption = "aaa" Case 1 Me.aa = DLookup("bb", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("bbb", "tbl1", "id= " & Me.ID) Me.lbl1.Caption = "bb" Me.lbl2.Caption = "bbb" Case 2 Me.aa = DLookup("cc", "tbl1", "id= " & Me.ID) Me.aaa = DLookup("ccc", "tbl1", "id= " & Me.ID) Me.lbl1.Caption = "cc" Me.lbl2.Caption = "ccc" End Select تفضل المرفق بعد التعديل بالتوفيق Tapages2.rar

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

جزاك الله خير استاذي@عبد الله قدور

السلام عليكم ممكن تضع مرفق للتعديل عليه

السلام عليكم وكل عام وانتم بخير اخي الكريم ان كنت تقصد القيود اليومية التي نثبت فيها الحركات المالية فاسشرح لك جزءا بسيطا منها 1- القيود المحاسبية هي علاقة قائمة على وجود طرفين على الاقل ولا يمكن ان يكون هناك قيد بطرف واحد 2- القيد المحاسبي يجب ان يكون متوازن بحيث قيمة الطرف الايمن مساوية لقيمة الطرف الايسر 3-يمكن ان يكون القيد المحاسبي مركب بحيث يكون في الطرف اليمين اكثر من طرف وفي اليسار اكثر من طرف 4- الحساب الذي يمثل المبلغ الموجود عندك اسمه الصندوق 5- الحسابات المستخدمة في القيود يجب ان تكون موجودة في شجرة الحسابات للطلاع على شجرة الحسابات راجع الرابط التالي من هنا مثال عما سبق أ - اشترى التاجر احمد بضاعة من التاجر خالد نقدا بقيمة 50000 يكون القيد على الشكل التالي 50000 من ح/ المشتريات 50000 إلى ح/ الصندوق الشرح : شراء بضاعة نقدا ب - اشترى التاجر احمد بضاعة من خالد بقيمة 20000 على ان يسدد قيمتها بعد اسبوع يكون القيد على الشكل التالي 20000 من ح/ مشتريات 20000 الى ح/ خالد الشرح : شراء بضاعة من خالد بالاجل وعند تسديد القيمة البضاعة يكون القيد على الشكل التالي 20000 من ح/ خالد 20000 الى ح/ الصندوق ج - باع التاجر احمد بضاعة نقدا بقيمة 25000 القيد 25000 من ح/ الصندوق 25000 الى ح/ المبيعات د- دفع التاجر احمد مصاريف نقل بضاعة 2000 و مصاريف تحميل 1000 (مثال عند القيد المركب) 2000 من ح/ مصاريف نقل بضاعة 1000 من ح/ مصاريف تحميل 3000 إلى ح/ الصندوق

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

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

السلام عليكم هذا كنز لمجموعة كتب ثمينة (ذهب - يقوت - مرجان .. أحمدك يارب ) اقتطف منها ما شئت متى شئت. ثانيا - ان كان لديك مشروع تعمل عليه وبحاجة الى مساعدة فاطرح مشكلتك هنا ولن يبخل أحد من أعضاء المنتدى بالمساعدة ان شاء الله. أرجو أن أكون قد أفدتك بشىء

في المرات القادمة احرص على اختيار عنوان مناسب يصف الموضوع بالنسبة لطلبك فالدالة Dlookup تحقق المطلوب pricesa = DLookup("[price_su]", "[ÊÍáíáì ÇáÔÑÇÁ]", "code='" & Me.co1 & "'") PROD2.rar

بالعدد والنوع الخطوات 1- ربط الجداول الفرعية بالقاعدة الام 2- انشاء استعلام التوحيد استعلام التوحيد : عبارة عن مجموعة استعلامات تحديد كيف ؟ - اعمل لكل جدول استعلام تحديد يخصه - ثم افتح كل استعلام على التصميم ثم بزرالفارة الايمن على الحد الازرق ادخل على SQL - انسخ العبارة - الصقها في استعلام التوحيد الجديد وهكذا ..... لجميع الاستعلامات - اجعل بين كل عبارة واخرى سطر فارغ والصق به هذه الكلمة : Union احفظ واخرج