biskra

فعلا الأمر غير واضح. أريد القول التقارير المفروزة على أساس حقل معين و ليكن التاريخ مثلا.

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

مشكور أخي مهند, هذا الشرح يساعد على تعلم التعامل مع الأكواد و فهم أوامرها.

و هذا آخر و لك الاٍختيار kwitown5.zip

لا تنسى أستاذنا ابن مسقط بدعاء جميل. Staff-ibnMuscat.rar

لا تنسى الدعاء للأستاذ اٍبن مسقط Staff-ibnMuscat.rar

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

هذه الدالة تتعلق بطباعة التقارير أريد من من له معرفة أن يشرحها لنا و يدلنا على كيفية اٍستعمالها. Public Function PrintOrPreview(ReportName As String, Optional strFilter As String, _ Optional strFile As String, Optional AlternateReportName As String, Optional W…

يمكن ذلك عن طريق وضع شرط و نتيجة تترتب عن هذا الشرط, ينتج عنها عدم تكرار نفس الأمر. هذا مثال عن ذلك DoCmd.OpenReport "reportname", acViewPreview, WhereCondition:=" PrintYesNo = False " هذا الأمر هو لطباعة التقرير reportname بشرط أن يكون حقل PrintYesNo = false …

دائما في مجال دوال التاريخ, هذه دالة متطورة لحساب التاريخ Function AgeCount(varDOB As Variant, Optional varDate As Variant) As String '******************************************* ' PURPOSE: Determines the difference between two dates. ' ' ARGUMENTS: (will acce…

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

فعلا أزرار جميلة, بارك الله فيك.

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

أقصد بذلك الأزرار الجميلة التي لم أشاهدها اٍلا عندك.

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

أطلع على المشاركة بعنوان برنامج صندوق تعاوني (صفحات 1 2 ) سوف تجد فيها أكثر مما تبحث عنه.

أخي مهند لو رجعنا لقواعد المنتدى التي كانت ترشح العضو المميز للشهر, لن ينافسك أحدا على هذا اللقب, قمة العطاء, تطوع كلي في مساعدة الأعضاء للحصول على حلول, وووووووو و أحلى ما قدمته لنا هذا الملف الذي يعبر عن ذوق رفيع و اٍستغلال رائع لما اٍبتكرته من OCX , المنتدى…

بكل تأكيد هناك خطأ في كتابة الكود , لو تتكرم بوضع هذا الكود لتتم معاينته من طر الاٍخوة لمساعدتك على الحل.

المقصود من الملاحظة أنه في المثال الذي أرفقه اٍعتمادا على الكود الذي ذكرته أعلاه,أنه مثلا عند اٍدخال تاريخ الميلاد 21/10/1980 و تاريخ بداية الخدمة 21/10/1998 فاٍن رسالة التنبيه سوف تظهر مما يعني أن السن هو أقل من 18 سنة, لكن عندما نقوم بعملية حسابية بالقلم بطر…

بحمده تعالى تم الوصول الى الحل بواسطة الكود التالي CODE Private Sub date2_AfterUpdate() If (Int((DateDiff("s", [date1], date2) / 31556952))) < 18 Then MsgBox "لا يمكن توظيف شخص عمره أقل من 18 عاماً" End If حسب الشرح ال\ي تحصلت من أحد المنتديات, العملية تعتمد ع…