صالح حمادي

ماشاء الله عليك أخي كرار الله يباركلك في علمك إن شاء الله. بعد إذنك حبيبي أنا حليت المشكل بنفس الكود لكن بطريقة أخرى و هي: إدراج هذا الحقل في التقرير و تسميه مثلا "نص7" و نجعله مخفي. ثم تضيف مربع نص غير منظم و تكتب فيه الكود التالي: ([نص7];"لا يوجد";is null[نص7])IIf =

بارك الله لك و فيك يا بطل

السلام عليكم و رحمة الله و بركاته أخي كرار ألف ألف مبروك تستاهل كل الخير نحن دائما نتعلم الكثير أنا رغم أني جديد في المنتدى لكني تعلمت منك الكثير الله يحفظك يا غالي و يجزيك على كل اللي تعملوا. 13614909011.gif

أخي كرار يمكن حل مشكلة بطريفة أخرى و هي :إضافة هذا الكود في الحدث عند الفتح Application.SetOption " behavior entering field", 2 بحث.rar

ألف شكر أخي أبو خليل الفكرة نجحت جزاك الله عنا كل الخير تغيير سلوك الإدخال يعني لما أنتقل من حقل لآخر يكون المؤشر في نهاية الحقل ولا يقوم بتحديد الحقل كاملا. أنا كنت بعمل على هذا الكود من أجل مساعدتك أخي كرار على حل المشكلة التي كانت لديك في ملف البحث يعني إذا أردت كتابة 23 مثلا عندما تضغط على 2 يسخرج السجل رقم 2 و عندما تضيف 3 يصبح 23 لا يمسح 2 و يكتب فوقها 3. لكن فشلت في مساعدتك آسف أخي

هذا هو الملف بعد التعديل بحث.rar

إستعملت هذا الكود Application.SetOption " behavior entering field", 2 في الحدث عند الفتح للنموذج لكن البرنامج لا ينفذ بشكل صحيح لا أدري أين الخطأ.

ممتاز البرنامج يشتغل بطريقة رائعة جزاك الله كل الخير يا أستاذنا الكريم

الله يحفظك يا غالي منكم نتعلم. هل نجح لديك التنفيذ أخي رمهان.

أخي رمهان لو أننا نكتب هذا الكود DatePart("d";3) سوف يعطينا النتيجة 2 يعني أنه ينقص 1 يوم دائما من الدالة التي تحسب الفرق بالأيام Diff("d";;Date()) لذلك أضطررت لإضافة 1 لناتج الدالة كذا "1+Diff("d";;Date())". أما بالنسبة لــ-1 في عبارة الأشهر ذلك لأنه عندما تضع مثلا DatePart("m";5) يعطيك الناتج 1 شهر و أيض DatePart("m";35) يعطينا الناتج شهرين بينما هي أقل من ذلك. بالنسبة للسنوات إذا وضعنا هذا الكود مثلا DatePart("yyyy";2) فإن الناتج يكون 1900 يعني هو يبدأ الحساب من 1900. أنا إجتهدت و هذا الحل هو الذي أعطاني أكبر دقة.

يمكنك فعل ذلك بإدراج الحقل في التقرير و تسميه مثلا "نص7" و تجعله مخفي. ثم تضيف مربع نص غير منظم و تكتب فيه الدالة التالية: ([نص7];"لا يوجد";is null[نص7])IIf = القيم الافتراضية لحقل فارغ.rar

العفو أخي

يمكن إضافة ترقيم تسلسلي للقوائم في التقرير أي دائما يبدأ بالرقم 1 , 2 , 3 ...الخ على حسب عدد السجلات كما يلي: نضبف مربع نص و نكتب فيه "1=" ثم نذهب إلى خصائص و نختار قائمة بيانات و نغير قيمة مجموع تراكمي إلى "مجموعة إضافية". و إليكم المثال التالي للتوضيح أكثر. ترتيب تسلسلي.rar

DCount («expr»; «domain»; «criteria») هذه الدالة تسمح لك أخي بحساب عدد سجلات حقل حسب قيمة كل سجل. «expr» : تمثل الحقل المراد حساب عدد سجلاته. «domain» : الجدول الذي يتضمن هذا الحقل. «criteria» : الشرط الذي تريد حساب عدد السجلات من خلاله. نرجوا من الله أن نكون قد وفقنا في الشرح بالتوفيق أخي.

و فيك بارك أخي صبري

DateDiff("d";;Date()) هذا الكود يحسب الفرق بين التاريخ الذي أدخلته و التاريخ الحالي بالأيام و إذا غيرنا حرف "d" إلى "m" سوف يحسب الفرق بالأشهر و إذا غيرناه إلى "yyyy" سوف يحسب الفرق بالسنوات. DatePart("yyyy";5632) أما هذه الدالة فتحول عدد صحيح إلى تاريخ أي سنوات و إذا غيرنا "yyyy" إلى "m" سوف يحوله إلى أشهر يعني عندما يصل إلى 12 يبدأ العد من جديد و إذا غيرناه إلى "d" سوف يحوله إلى أيام بنفس الطريقة عندما تكتمل أيام الشهر يبدأ الحساب من جديد. أرجو من الله أن أكون قد وفقت في الشرح أخي رمهان.

السلام عليكم بعد إذنك أخي أبو خليل. يمكن إستعمال الدالة DLookup («expr»; «domain»; «criteria») في مربع نص للبحث عن السجلات بإدخال الرقم في الحقل الأساسي فتظهر جميع بيانات السجل تلقائيا. كما يوضح المثال التالي: البحث عن سجل.rar

الله يحفظك يا غالي هذا واجبنا

أخي عبد العزيز يجب عليك فتح نموذج و إضافة مربع نص غير منظم أكتب فيه الكود "DateDiff("yyyy";[Birth];Date())" لقد فعلت هذا التعديل على ملفك تفضل أخي. بلغ سلامي لأبناء بسكرة. data.rar

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

حساب العمر.rar إليك الحل أخي عبد العزيز لقد أضفت ذلك في مشاركة سابقة

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

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

احفظ الملف بصيغة أوفيس 2007 و إنشاء الله راح نلقى العديد من الحلول