عبد الفتاح كيرة

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

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

وفقك الله أخى

لغة البرمجة واحدة فيجوال بيسك أما ما نسميه vba أو فيجوال بيسك للتطبيقات فمعناه الأوامر داخل فيجوال بيسك التى تخص التعامل مع التطبيقات كالإكسل و أكسيس و وورد

جزيل الشكر لك أستاذ عبد الله يبدو أن التواريخ تختلف فى العمل تبعا للأجهزة للأسف أعطتنى نفس النتيجة جزاك الله خيرا

السلام عليكم هذه هى الوظيفة التى تحسب الفرق بين تاريخين Function CalcAgeD(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer, aa As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function و هى تعمل بشكل رائع لولا خطأ بسيط عندما تكون الأيام فى التاريخ الأقدم = 31 و الأيام فى التاريخ الأحدث = 1 تعطى فارق الأيام = 1 و الصواب = صفر ولو كانت الأيام فى التاريخ الأقدم = 30 و الأيام فى الأحدث = 1 تعطى فارق الأيام = 1 أيضا و هذا صحيح كيف يمكن تعديل ذلك مرفق الملف للتجربة و إبداء الرأى حساب السن فى أول أكتوبر.rar

جزاك الله خيرا أستاذ أحمد

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

يمكنك إعادة تحرير المشاركة و تعديل الخطأ

و هذا

شاهد الفديو و هذا

إبداعات أستاذ عادل بارك الله فيكم

استخدم "ld"0000000000 فى قناع الإخال

شكرا أستاذنا عبد الله جعلك الله عونا للآخرين

جزيت خيرا أخى بارك الله فيك

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

أخى ياسر الحقل أصلا نصى لكنه يعرض كقائمة وقد غيرت طوله لكن المشكلة قائمة الحل المؤقت استعضت بمربع نص و ربطه بمصدر البيانات فظهر كقيمة شكرا لمساعدتك

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

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

شكرا لأخى عبد الله

صدقت و يمكن عمل ذلك فى التقرير مباشرة

جزاك الله خيرا شىء جديد و هام أتعلمه منك الليلة بارك الله فيك --- فى أثناء انتظارى للرد توصلت لحل أنشأت نموذجا مرتبطا بالجدول وضعت فيه مربعات نصوص غير منضمة بعدد المواد استعملت dcount بكل مربع لعد السجلات بالشروط =DCount("num";"natega";"dra>=40*65/100") كمثال شاهد النموذج و قل رأيك أما استعلام الإحصاء فكما أخبرتك شىء هام أتعلمه منك الليلة جزاك الله خيرا test8-kemas.rar

السلام عليكم المرفق هو نتيجة إجمالية لدرجات الطلاب فى مواد مختلفة طلب منى حساب عدد الطلاب الحاصلين على 65 بالمائة من مجموع درجات فى كل مادة يعنى مثلا اللغة العربية الدرجة العظمى من 80 درجة أريد حساب عدد الحاصلين على 52 فأكثر فى حقل اللغة العربية تمكنت من حساب ذلك لعمود مادة واحدة لكن هل ممكن حساب ذلك فى كل الحقول الخاصة بكل مادة فى استعلام واحد؟ المرفق يبين test8.rar

المعادلة فى f7 =IF(A7="";"";IF(D7<$D$6;$B$2;IF(E7<$E$6;$B$2;"")))

ألف شكر أستاذ ياسر بارك الله فيك