محمد احمد لطفى

تأتى رسالة تم الغاء الاجراء

فى هذا التقرير عند معاينة الطباعة يكون تحديد شهر معاينة الطباعة من التقرير عن طريق InputBox أريد تغييره الى خليه فى النموذج Vl = InputBox("ادخل التاريخ") Dim Rcount As Integer Rcount = Nz(DCount("*", RecordSource, "[date1]like '*" & Vl & "*'"), 0) RecordSource = "select * from " & RecordSource & " where " & RecordSource & ".[date1]like'*" & Vl & "*'" If Rcount = 0 Then DoCmd.CancelEvent Exit Sub End If وجزاكم الله حيراً test print.rar

الف مبروك الترقية

دالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ صيغتها كما يلي : A = NZ(B,0) أو A = NZ(B) S = NZ (V,"") ومن هذا يتضح أن لهذه الدالة ممران 1- القيمة المطلوب فحصها 2- القيمة المعادة في حال كون القيمة الأولى Null وفي حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر في حال كون القيمة الأولى Null منقول

شاهد هذا الموضوع

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

جزاك الله خيرا أستاذى @أبو إبراهيم الغامدي

أستاذى العزيز @أبو إبراهيم الغامدي ظهرت فى الشريحة الثالثة ارقام بالسالب حاولت تكرار ما سبق فى الشرائح الاخرى بائت بالفشل

شكرً لمشاركتك أخى @AbuuAhmed جزاك الله خيراً و لكنى مستمر مع أستاذى @أبو إبراهيم الغامدي لأنها أبسط و يمكننى التعديل عليها أستاذى @أبو إبراهيم الغامدي أسف و لكن عند حساب الشريحة الثالثة لوحدها تظهر و لكن عند حسابها من الشريحة الأولى أو الثانية لا تظهر مرفق المثال finish (5).mdb

أستاذى @أبو إبراهيم الغامدي الشريحة الثالثة لم تظهر

أستاذى @أبو إبراهيم الغامدي عندتجربة حساب من 1-1-1990 حتى 1-1-1991 ظهر فى الشريحة الثانية -308 شهر عند تجربة حساب من 1-1-2021 حتى 1-1-2022 ظهر فى الشريحة الثانية - 4 شهر

أستاذى @أبو إبراهيم الغامدي الشريحة الثالثة لم تظهر كذلك

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

شكراً أستاذى @ابوخليل ملف finish يعمل و لكن به تداخل فى الفترات مثل الصورة المرفقة كنت أأمل أن تكون الوحدة النمطيه مثل مثال ملف الكهرباء المرفق ليسهل التعامل معها و المطلوب نريد حساب عدد الاسابيع و الشهور بينهما ولكن بشروط . أولا من تاريخ 1-1-1990 حتى مثلا 1-1-2050 تنقسم الى ثلاث شرايح 1 - الشريحة الاولى الفترة ما بين تاريخ 1-1-1990 حتى 6-9-2016 يتم الحساب بينها بالاسبوع 2 - الشريحة الثانية ما بين تاريخ 7-9-2016 حتى 30-9-2020 يتم الحساب بينها بالشهر 3 - الشريحة الثالثة مابين 1-10-2020 حتى 1-1-2050 يتم الحساب بينها بالشهر كالتالى 1 - من 1-1-1990 حتى 1-1-2050 على التقسيم التالى أولا من 1-1-1990 حتى 6-9-2016 يكون الحساب بالاسبوع ( الفترة الاولى ) ثانيا من 1-1-1990 حتى 30-9-2020 يكون الحساب ( الفترة الثانية ) حيث date1 حتى 6-9-2016 يكون الحساب بالاسبوع و من 1-7-2016 حتى Date2 يكون الحساب بالشهر ثالثا من 1-1-1990 حتى 1-1-2050 ( الفترة الثالثة ) حيث date1 حتى 6-9-2016 يكون الحساب بالاسبوع و من 1-7-2016 حتى 30-9-2020 يكون الحساب بالشهر و من 1-10-2020 حتى Date2 يكون الحساب بالشهر وجزاكم الله كل خير finish .mdb كهرباء 2019.rar

للرفع

بعد اذن حضراتكم هل يمكن عمل اذا كان التقرير افقى = 16000 اذا كان التقرير عمودى = 11000

جزاك الله خيراً أستاذى @أبو إبراهيم الغامدي

السلام عليكم ورحمة الله و بركاته فى هذا النموذج يتم ملئ آلي فى التقرير لكى يمتلئ التقرير بالسجلات حتى لا يكون به فراغ ولكن تختلف التقارير بين العمودى و الافقى و تختلف نفسها بين كل تقرير أقوم بعمله يجب تغيير الارقام فى كل تقرير Allrecords = 16000 فهل هناك طريقة ليعمل على كل التقارير وجزاكم الله خيراً طريقة النموذج (1).mdb

أستاذى @Amr Ashraf هيا شبكة داخلية و يكفى أخذ وقت الجهاز مرة واحدة و الجدول مرتبط بين جهازين يعنى الجهاز الاول مضطر يحفظ الوقت و التاريخ قبل الجهاز التانى ما ينفذ تشغيل برنامج ضبط الوقت و التاريخ يعنى الاسهل أن المستخدمه يكتب الوقت و التاريخ بنفسه و يحدث صح كده أستاذى @rockjone33 شكراً لحضرتك هيا شبكة داخليه و مفيش انترنت وسؤال للنقاش هل ينفع أخذ الوقت من النموذج فى خلية به الساعة تعمل ؟

الموضوع ان عاوز أخد الوقت و التاريخ من ( جهاز تانى يعنى من الجهاز أو ملف أكسيس )

هل هذا ما تريد New Microsoft Access Database.rar

السلام عليكم ورحمة الله و بركاته كيف أنقل الوقت و التاريخ من الجدول الى النموذج عند فتح النموذج وجزاكم الله خيراً datex.rar

شكرأ أستاذى @Amr Ashraf إشتغل تمام جزاك الله كل خير

جزاك الله خيرا أستاذى جهد مشكور ما زال يحسب الشهر يو و اليوم شهر و عند كتابة مثلا لاتاريخ 28-8-2022 أتت هذه الرسالة اعدادت الجهاز

تفضل Year(Now()) DatePart("yyyy";[التاريخ])=DatePart("yyyy";Now())