محمد أبوعبدالله

السلام عليكم جرب المرفق حذف جميع سجلات الذي اخترنا من قائمة ....rar تحياتي

السلام عليكم للاسف الملف لا يفتح على اوفيس 365 هل ممكن تحويله الى accdb ولك الشكر تحياتي

السلام عليكم ما رأيك في انشاء استعلام مصدره جدول = tabl1 نقوم بحساب الكمية = Qty الموجودة في جدول tabl2 T1: DSum("Qty";"tabl2";"barcode=" & [barcode]) ثم نقوم بطرح الموجود في المخزن من الكمية المصروفة Balance : Nz([SAVE])-Nz([T1]) جرب الاستعلام Query1 الموجود في المرفق واعلمني بالنتيجة Qty in table - Qty on form.rar تحياتي

وعليكم السلام ورحمة الله وبركاته ضع في الاستعلام احد المعياريين <>"," او not "," مرفق ملفك بعد التعديل تحياتي Nouveau Microsoft Access Base de données.rar

من بعد اذن استاذنا واخونا الفاضل @ابوخليل تفضل اخي الكريم كتابة الدورات بجانب بعضها لكل موظف2.rar تحياتي

تفضل اخي الكريم tempstr = ReplaceChar(tempstr, "ذز") ليكون هكذا Function changesearch(Mytxt) As String Dim tempstr As String tempstr = Nz(Mytxt, "") tempstr = ReplaceChar(tempstr, "أإآاء") tempstr = ReplaceChar(tempstr, "ةته") tempstr = ReplaceChar(tempstr, "ىي") tempstr = ReplaceChar(tempstr, "وؤ") tempstr = ReplaceChar(tempstr, "ذز") changesearch = tempstr End Function تحياتي

تفضل اخي الكريم مثال_2.rar وسؤال بعد اذنك لو تسمح لي اخي الكريم ما فائدة تصميم جميل كالذي صممته انت بالمرفق بدون جدول ليتم تخزين البيانات فيه ؟ هل ستضطر كلما اردت ان تطبع بيانات ان تكتبها كلها من جديد ؟!!! اقترح عليك تصميم جدول بنفس البيانات الموجود في النموذج ثم تجعل الجدول مصدر بيانات النموذج وذلك حتى يتم تخزين البيانات فيه والرجوع اليها في اي وقت مجرد اقتراج لان تصميم الشهادة حقيقة اعجبني واعذرني مرة اخرى فربما يكون دافع لها لم افهمه تحياتي

اخي الفاضل هل تم الرد على هذا السؤال هنا

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

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اولاً لتوسيط النموذج تقائيا في اي شاشة تابع كما بالصورة ثانياً ابسط كود يمكن استخدامه وهو عملي جداً ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub ثم في النموذج الرئيسي لبرنامجك ضع الكود التالي في حدث عند التحميل Call HideAccess تحياتي

جزاك الله خيراً اخي احمد راجياً من الله لك وللجميع الوفيق تحياتي

تفضل اخي الكريم مثال.rar تحياتي

وعليكم السلام ورحمة الله وبركاته سأشرح لك الطريقة اخي الكريم التي يمكن من خلاله تصميم برنامج لترجمة الاسماء 1 - انشاء جدول فيه الاسماء مفردة بمعني كل اسم في حقل خاص به ونسميه مثلاً = tblName وسنضع به الحقول التالية Name1 , Name2 , Name3 , Name4 , Name5 وللترجمة سنضع به الحقول التالية Name11 , Name12 , Name13 , Name14 , Name15 2 - انشاء جدول به حقلين ( الاسم مفرد بالعربي = XName1 + الاسم مفرد بالانجليزي = XName2 ) ونسميه مثلاً = tblTranslate الفكرة وخلاصة الموضوع انشاء استعلام تحديث يبحث عن قيمة حقل Name1 في جدول tblName عما يقابلها في جدول tblTranslate في حقل XName1 ويضع النتيجة في حقل Name11 وهكذا لبقية الحقول Name2 , Name3 , Name4 , Name5 ابدأ العمل واذا احتجت مساعدة سنكون معك باذن الله تحياتي

اللهم امين ولك بالمثل اخي الفاضل وجزاك الله خيراً وفقك الله لما يحب ويرضى تحياتي

بكل بساطة الدالة iif تقول اذا كانت القيمة = صغرى = 1 والا 0 ثم نقوم بجمع القيمة الخارة بدالة sum تحياتي

تفضل اخي =Sum(IIf([COPU1]="صغرى";1;0)) مرفق الملف بعد التعديل Dcount.rar تحياتي

جرب وضع المعيار تحت الحقل نفسه في الاستعلام >Format(Date();"mm/dd/yyyy") DATE().rar تحياتي

رائع جداً وجزاك الله خيرا دمت لاخيك تحياتي

جميل استاذنا الفاضل وجزاك الله خيراً وزادك رفعة وعلماً التطبيق للاسف لم يعمل معي Windows 10 64 Bit & Offece 365 تحياتي

بالتوفيق اخي الكريم وفقك الله لما فيه الخير تحياتي

تم انشاء جدول لتجميع العمليات وفي التقرير في حدث عند الفتح تم انشاء 3 اوامر استعلام الاستعلام الاول يحذف البيانات الموجودة في جدول العمليات الاستعلام الثاني يقوم بالحاق البيانات الموجودة في جدول المصروفات الاستعلام الثالث يقوم بالحاق البيانات الموجودة في جدول المشتريات الآن تم تجميع جميع البيانات ثم انشاءنا تقرير مبني على جدول العمليات وقمن بعمل تجميع حسب العميل ليتم عرض بيانات كل عميل في صصفحة مستقلة وفي حقل المحموع = Total قلنا له اجعله رصيد تراكمي ليحسب الرصيد تراكمي وليكتمل شكل كشف الحساب انظر التقرير من جديد UP-X1.rar تحياتي

انظر التقرير rep1 واعلمني بالنتيجة UP-X1.rar تحياتي

اذن انت لا تريد رصيد فقط ! انت تريد كشف حساب وفي النهاية الرصيد أليس كذلك ؟ انتظرني ان شاء الله تحياتي

عفواً اخي الكريم اعتذر بشدة انظر الاستعلام Query3 X1.rar تحياتي

انظر استعلام Query1 ارجو ان يكون هو المطلوب New Microsoft Access Database (2)(1).rar تحياتي