rey360

Public Function sii(e As Date, s As Date) As Integer Dim rs As Recordset Dim ss As Integer Set rs = CurrentDb.OpenRecordset("select * from ts WHERE typ=1 and CDbl([datemou])>=" & Replace(CDbl(e), ",", ".") & " and CDbl([datemou])<" & Replace(CDbl(s), ",", ".") & "") rs.MoveLast: rs.MoveFirst Do While Not rs.EOF ss = ss + rs!summ rs.MoveNext Loop MsgBox ss End Function بفضل الله تم التخلص من مشكل الخطىء 3075 و سبب كان الفاصلة بحيث في النسخة الفرنسية تكون الفاصلة على هذا الشكل , و sql لا يفهمها بحيث يجب وضعها على شكل نقطة وهنا نستعين بالدالة replace شكرا لك أستاذ احمد الفلاحجي

If IsNull(date1)then MsgBox "من فضلك ادخل التاريخ" else If IsNull(nam2)then MsgBox "من فضلك ادخل اسم الفرع" end if end if أرجوا أن يكون المطلوب

شكرا لك أخ احمد الفلاحجي لكن بما أن datmou عبار عن تاريخ فستظهر رسالة الخطأ 3075 وهو عدم تطابق المعطيات حتى وان وضعت cdbl(datemou) تبق رسالة الخطأ

أرد تعديل على المنشورة ولكن الموقع لم يظهر لي خاصية التعديل لا أعلم ان كان له علاقة بأرشفة أم بوقت وضع المنشورة

تم بفضل حل المشكل شكرا لكل من حاولة في حله كما أريد أن أرى حلول أخرى Nouveau Microsoft Access Base de données.rar

السلام عليكم أريد طريقة لعمل تصفية في جدول عن طريق vba بشرط أن تكون بالتريخ والوقت مثلا في التاريخ الاول 28/12/2020 12:55:30 وفي التاريخ الثاني 02/01/2021 10:23:44 فيقوم بالتصفية عن طريق sql في ريكودست المشكلة تكمل في أنه لا يقوم بعمل فلترة Nouveau Microsoft Access Base de données.rar

نعم هذا ماكنت افكر فيه عمل طريقة لتصفية البيانات وتضيقها لجعل الدوران سريع شكرا جزيلا لك أستاذ jjafferr

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

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

السلام عليكم لا أظن أن هناك طريقة تمنع استراد الجداول بنسبة 100% الا ان حولته الى صيغة ACCDE ولكن هناك طرق برمجية لاخفاء الجدول مع ذلك يمكن كسر ومن بين الطرق هذا الملف للاخت زهرة. برنامج فتح الجداول المخفية.rar

المؤهلات الجامعية.rar

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

من اقونت الطباعة

مثلا في الفاتورة رقم 1 Base de données1352 - Copie - Copie.accdb

السلام عليكم أعضاء المنتدى أريد أن اسأل هل يمكن تقيد التقرير بطبع عدد من الاسطر في كل صفحة مثلا فاتورة تحتوي على 30 منتج أريد طبع 15 سطر في الصفحة الاول و15 في الصفحة الثانية وهل يمكن وضع اجمالي الصفحة الاولى في الاسفل ثم في الصفحة الثانية يرحل مجموع الصفحة الاولى الى أعلى الصفحة الثانية وشكرا لكم

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

بالاستعانة بملف الاخ سامي الحداد za-EmployyeUP (1).accdb

شكرا لك أخي ازهر عبد العزيز مع أنه يوجد بعض النقاط مابين منتج والذي يليه

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

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

السلام عليكم أعضاء المنتدي في الملف الذي في أسفل تقرير مبيعات أريد اضهارها على الشكل الموضح في الصورة وشكرا لكم. Base de données1352 - Copie - Copie.accdb

شكرا جزيلا لك أخي ازهر عبد العزيز

السلام عليكم أعضاء المنتدي أريد طريقة لتباعد الوقت بين اخفاء الزر الاول والزر الثاني مثالا عند ضغط على زر اظهار مؤقت يظهر الزر الاول والثاني ولكن أريد ان يختفي الزر الاول ثم بعدة مدة زمنية ولنقل ثانية يختفي الزر الثاني وشكرا لكم test.accdb

لقد قمت بتعديل ملف 7 فقط لضيق وقت اسف f4.rar

هذه مشكل بي اللغة اذهب region and language وقم بتغيرها الى الغة العربية مع أنها لم تنجح معي ولكن الطريقة التى نجت هي تغير اسم label أو etiquette فيصبع الزر شغال ملاحظة عليك تغير كل اسماء label في الفورم