ashraf

بارك الله فيكما . فعلا عمل رائع جدا . وأكثر الله من أمثالكما .

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

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

كلام الأخ طيف سليم ميه % ولكن فى حالة أكسيس 2000 ماذا نفعل ؟

forms ! [ menu].visible = false بعد إذن الجميع . يمكن وضع هذا الكود عند حدث عند الفتح للتقرير فسوف يقوم بإخفاء النموذج خلف التقرير . مع تغيير اسم menu إلى اسم النموذج لديك . ملحوظة : أنا لا أفضل أن نقوم بإغلاق النموذج حيث أحيانا يكون التقريريعتمد على معايير بالنموذج وفى تلك الحالة لن يفتح التقرير . مثال ذلك قد يكون فى النموذج من تاريخ إلى تاريخ وفى تلك الحالة لن تقدر تغلق النموذج . أشرف خليل

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

اتبع ما يلي : 1- قم بإنشاء وحدة نمطية وضع فيها الكود التالى : CODEFunction DeleteAll() Dim dbs As DAO.Database Dim i As Integer Set dbs = CurrentDb ' Loop backwards through relations For i = dbs.Relations.Count - 1 To 0 Step -1 dbs.Relations.Delete dbs.Relations(i).Name Next i ' Loop backwards through tabledefs For i = dbs.TableDefs.Count - 1 To 0 Step -1 If Left(dbs.TableDefs(i).Name, 4) <> "MSys" Then dbs.TableDefs.Delete dbs.TableDefs(i).Name End If Next i Set dbs = Nothing End Function 2- ضع زر فى نموذج جديد وفى حدث عند النقر ضع ما يلي : CODE=DeleteAll() وهي من منشء التعبيرللدالة المذكوره أعلاه . جرب وشوف النتيجة . ستجد إن شاء الله الجداول كلها تم حذفها .

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

إضافة لكلام مشرفنا رضوان between[ضع الرقم الأول]and[ضع الرقم الثاني] حتى لا يتم التقيد بمجموعة أرقام محددة .

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

طالما النموذج مبنى على الاستعلام والنتيجة تظهر كمي تريدين بعد التصفية فمن الأفضل عمل التقرير مبنى على نفس الاستعلام وبنفس معايير التصفية وعند تنفيذ التقرير سيظهر به البيانات التي تمت تصفيتها عن طريق الاستعلام . ولكن قد يكون سؤالك عن شيء آخر وهو ربط هذه المعايير ( أو عوامل التصفية ) فى نموذج ثم إخراج البيانات فى تقرير عن طريق هذا النموذج . أو أنا لم أفهم السؤال جيداً .

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

1- نفرض أنه لديك زر طباعة أو عرض للفواتير على نموذج الفواتير نفسه . ويحتوى على الكود التالى : Dim stDocName As String stDocName = "R_inv_edit" DoCmd.OpenReport stDocName, acNormal على اعتبار أن اسم التقرير هو R_inv_edit 2- هذا التقرير مبنى على استعلام أو على جملة Sql وأسفل معيار رقم الفاتورة تضع المعيار التالى مع تغيير ما يليزم بالنسبة لمسميات النموذج لديك . [forms]![fsales_edit]![inv_id] حيث fsales_edit اسم النموذج الذي يحتوى على الفواتير . حيث inv_id اسم حقل رقم الفاتورة . وعند تنفيذ الزر السابق فإنه سوف يظهر تقرير الفاتورة حسب الرقم الظاهر أمامك . أشرف خليل

مثال لأخونا الصراف . اسمد المستخدم الصراف - كلمة المرور 12 ALSARRAF1.ZIP

دائما الجديد تجده لدى أبو هادي . وعيد سعيد عليكم جميعا إن شاء الله