essam rabea

انا مش فاهم قصدك ايه ؟

الأخ ابوصلاح هل هذا المطلوب؟ شئون العاملين.zip

أ/ jo_2010 فى خصائص الحقل بالجدول Field Size .. Double Format .. Standard بس هيا بتبفى فاصلة بين كل 3 أرقام والنقطة بتبقى قبل آخر رقمين عشريين مبتبقاش كلها نقط

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

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

الأخ الفاضل حلبي .. هل هذا ما تقصده؟ حضور المهندسين.zip

افتح التقرير فى ال Design View إضغط Page setup إضغط Page setup مرة اخرى إضغط Page حدد Landscape ثم Ok بس خلاص

او ممكن تستخدم Or For Each tdf In CurrentDb.TableDefs If (tdf.Name = "اسم الجدول الاول") Or (tdf.Name = "اسم الجدول الثانى") Then tdf.Attributes = dbHiddenObject End If Next tdf

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

أستاذنا ازهر عبد العزيز اولا يجب أن تكون الجداول بادئة بـ _tbl حتى لا تضطر الى كتابة أسم كل جدول ضع فى حدث الفورم الرئيسى on Load Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If tdf.Name Like "tbl*" Then tdf.Attributes = dbHiddenObject End If Next tdf هذا للإخفاء وهذا الكود للإظهار Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If tdf.Name Like "tbl*" Then tdf.Attributes = 0 End If Next tdf والله الموفق

الأخ الفاضل ازهر عبد العزيز فى المرفق .. هل يمكنك استيراد الجداول المخفية ؟ إن كانت الإجابه نعم فأنا لن أفيدك بشيئ وأطمع فى معرفة الطريقة .. وإن كانت لا فحلها بسيط إن شاء الله Tables to hide Unhide.rar

أعتقد أن ابسط طريقة هى إخفاء كائنات قاعدة البيانات التى تريد أن لا يتم إستيرادها

الأخ العزيز مسفر خالص دعائى لك بالتفوق وأنت أهلٌ له.

يمكنك تنصيب اوفيس 2016 سيفى بالغرض Office 2007 Microsoft office 12.o object library Office 2010 Microsoft office 14.o object library Office 2013 Microsoft office 15.o object library Office 2016 Microsoft office 16.o object library

بصراحة انا مش فاهم بس شوف كده هل هذا المطلوب ام لا .. قمت بإضافة حقل غير منضم على نموذج FormM لإضافة مبالغ للسداد .. فإن كان المطلوب فقم بتطبيقة على النموذج الآخر. بالتوفيق التسديد.zip

يلزمك تحديث نسخة الاوفيس الى اوفيس 2019 على حد علمى

عسى أن يكون المطلوب FormM و FormO التسديد.zip

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

الق نظرة على هذا ربما يفيدك

وكيف نساعد فيما ليس لنا به علم!! اخى الفاضل عندما يطلب احد الأخوة الأفاضل مثال للعمل عليه فليس معناه ان ترفق قاعدة بياناتك كاملة .. بل يمكنك إنشاء تصور بسيط لما تريده فأنت ادرى به منا .. وعندها نستطيع فهم سؤالك بصورة أوضح.

إذا كنت تعمل نموذج فرعى داخل النموذج الأساسى فإن المعالج لا يعمل .. افتح النموذج الفرعى منفردا بدون النموذج الأساسى فى وضع التصميم وضف له ما تريد فسيعمل معك المعالج إن شاء الله. بالتوفيق

أخى الكريم تسهيلا على من سيقومون بالرد على إسنفساراتكم برجاء إرفاق مثال يتم العمل عليه .. وسأقوم بالرد نظريا كما تفضلت بسؤالك بدون مثال : قم بإنشاء حقل نصى فى الجدول الذى يستند إليه التقرير ولنسمه PrintOK أنشئ التقرير المراد طباعتة ولنسمه Report1 فى النموذج الذى سيتم طباعة التقرير من خلاله أنشئ زر أمر ولنسمه Command3 فى حدث عند النقر لزر الأمر السابق ضع هذا الكود If PrintOK.Value = "تم" Then MsgBox "تم طباعة التقرير من قبل" Else DoCmd.OpenReport "Report1", acViewPreview DoCmd.PrintOut , , , , , True DoCmd.Close acReport, "Report1" PrintOK.Value = "تم" End If Me.Recalc بالتوفيق

كل عام وأنت بصحة وعافية