نجوم المشاركات

روعه الله يبارك فيك@AlwaZeeR شكر كثير ما درينا كيف نشكرك شكر لاستاذنا القدير @ابوخليل دوما وهو سند لنا الله يعطيكم العافيه والعمر المديد يا عمالقه الاكسس كم انتم طيبين وكم تحملوننا كمبتدين مليون تحيه اليكم استاتذتي

زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm

حياك الله يا طيب تفضل هذه القاعدة waz9999.rar تسلم يا غالي

الحمد لله بعد عناء طويل تمكنت من الحصول على النتيجة ..تفضل المرفق.. دعني اشرح لك الاستعلامات التي تم انشاؤها لكي تتضح لك الصورة الاستعلام q1 لاظهار آخر تاريخ لكل عامل والاستعلام q11 يظهر المبلغ الذي استلمه العامل في آخر تاريخ الاستعلام q2 هو لاظهار آخر تاريخ عدا آخر تاريخ في الاستعلام q1 اي بمعنى (اخر تاريخ الا تاريخ) لكل عامل .. والاستعلام q22 هو لاظهار المبلغ الذي استلمه العامل في اخر تاريخ الا تاريخ واخيراً الاستعلام q3 هو لإظهار المبلغ المستلم للعامل بشرط ان يكون هذا المبلغ اقل من المبلغ الذي تسلمه العامل قبل آخر تاريخ اتمنى ان يكون هذا هو المطلوب تحياتي Database2.mdb

لا اعتقد انها ستحل ؛ والسبب انها ستكون ارقام من جدول وارقام من جدول آخر كشف الحساب السلس المتعارف عليه يستخلص من جدول واحد هو مصدر البيانات الاساس تصور انه عند تطبيق العمود الواحد في الجدول الواحد انه يمكن تمييز الوارد من الصادر بالألوان

جرب هذا الماكرو (يكفي ان تخرج من الصفحة ثم تعود اليها لتجد النتيبجة قد سبقتك الى مكانها الصحيح) اضافة الصفحات يجب ان يكون بعد صفحة "تجميع" و قبل صفحة "طباعة" وذلك كي يعمل الكود بشكل جيد Private Sub Worksheet_Activate() Cells(3, "b").Resize(Sheets.Count - 3, 1).Formula = _ "=SUM('1:" & Sheets.Count - 3 & "'!B4)" Cells(3, "b").Resize(Sheets.Count - 3, 1).Value = _ Cells(3, "b").Resize(Sheets.Count - 3, 1).Value End Sub الملف مرفق تجميع قيم salim.xlsm

اخى الكريم الحمد لله الذى بنعمته تتم الصالحات

تفضل db1.mdb

نحن نتعامل مع نقد تم رصده كل شي واضح الآن ما عدا حقل : نقداً يوجد في حقل المدين مبلغ 3000 لماذا حقل الدائن فارغ ؟ المفترض ان القيمة مرصودة في حقل الدائن على كل حال .. سأعالج المسألة ...

غير العلامة الفاصلة , الى ;

وعليكم السلام ورحمة الله وبركاته استبدل بهذا: Expr2: IIf([Alkmiah]=0,[safi],IIf([safi]/[Alkmiah]=صواب,[safi]/[Alkmiah])) تحياتي

ابو عبدالله انا حققت لك طلبك انظر الصورة والنتيجة سالب 1 اي انها للعميل لانه دفع 35 ويمكن ان تعكس عملية الطرح بحيث يظهر السالب حينما يكون العميل مدين يمكن اول سجل يجب ان يكون آجل وليس نقدا والخطأ منك موجود في مثالك حيث لم اعدل على بيانات الجداول المفروض البيانات التي تكتبها في وورد تكون في المرفق في اكسس حتى تحسن المقارنة

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

لا علاقة للنظام بتنصيب الاوفيس كيف لم يتم التنصيب؟؟ ماذا يحدث عند الضغط على امر التنصيب؟؟؟

إذا أردت DVD نادر لأوفيس 2007 به كل ما تتمناه محتويات الاسطوانة Ar Microsoft Office Enterprise En Microsoft Office Enterprise Ar Microsoft Office Professional En Microsoft Office Professional Plus Ar Microsoft Office Standard Ar Microsoft Office system Ar Microsoft Office Home and Student Ar Microsoft Office Small Business En Microsoft Office Project Professional En Microsoft Office Visio Professional Ar Microsoft Office SharePoint Designer En Microsoft Office SharePoint Designer En Microsoft Expression Web Interface Arabic for: Office, Project, Visio ملحقات الإسطوانة إضافة قوائـم منسـدلة لمجموعة تطبيقات أوفيس 2007 لمن تعود على نظام أوفيس 2003 إضافة أداتين لكل من العربية والإنجليزية لحفظ ملفات أوفيس بتنسيق برنامج أدوب أكروبات إضافة عرض دليل تفاعلي بالفلاش - لمراجعة الأوامر من أوفيس 2003 إلى أوفيس 2007 برنامـج دمج قائـمة للقرآن الكريـــم فى التطبيق وورد ببرنامج متوافق مع أوفيس 2007 إحتياطياً وضعت العديد من برامج التفعيل المختلفة فى المجلد Make Office Genuine للتغلب على بعض مشكلات مستقبلية وضعت ملفات خدمية فى المجلد Run after install رابط التحميل تم تجزئة الأيزو إلى 8 ملفات مضغوطة بالوينرار كل ملف 500 ميجا ما عدا الأخير 46 ميجا استغرق رفع تلك الملفات خمسة أيام بسبب السرعة المتاحة لى بـ 95 جنيها (25ك/ث) التحميل داخل مجلد على موقع cloud.mail.ru التحميل من الموقع سهل وسريع ودائم تابع الصور

هذا يحث بالنموذج الاساسي Test41 (1).accdb

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

الخطأ الاول أن الاكسس لديك لا يعتمد الصور بما انك تستخدم اكسس 2003 لذلك حذفت صورة الصح والخطأ تفضل جرب ووافني بالنتيجة BridSalen004.rar

تفضل اخي الكريم ‫ترحيل الأسماء غير مكررة بناء على شرط1.rar

اخي عند فتح التقرير بعد الامر DoCmd.Close acForm, "اكت هنا اسم النموذج"

السلام عليكم ورحمة الله استخدم هذا الكود Sub AddSheets() Dim List As Range, C As Range Dim Sh As Worksheet Set List = Sheet1.Range("B4:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row) On Error Resume Next For Each C In List If Len(Trim(C.Value)) > 0 Then If Len(Worksheets(C.Value).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = C.Value End If End If Next End Sub

وعليكم السلام أخى الكريم من الأفضل أن ترسل ملف

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

اتفضل work3.rar

استخدم هذا الاسلوب فهو يشتمل على معايير اكثر : DoCmd.TransferSpreadsheet acExport, 8, "Tbl1", strPath & "\Tbl1.xls", True, "" رقم 8 تعني نوع التنسيق جرب اعد كتابة acExport ثم الفاصلة ستظهر لك قائمة بالمتاح من التنسيقات

بعد اذن الاستاذ القدير حسب مافهمت هذا هو طلبك client4.mdb في التنسيق #,###;#,###[أحمر];0

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

صباح الخير ....... فيديو جديد https://youtu.be/pteO5hkvTfg

http://www.mediafire.com/file/46tic8vgbr1ka98/off2007fullfile.exe

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

ما هي معادلة حساب ثمن الخبيز؟ والكمية المستحقة؟ والمدفوع: عندما يكون نقداً: هل يقوم الزبون بدفع دفعة تحت الحساب تسمى الدفعة الاولى؟ أم تخصم من ثمن الخبيز الكلي؟ بمعنى: ثمن الخبيز: 200 دفع دفعة 20 بقي 180 هل الـ20 تعد ضمن الدفع أم يتم توزيع 180 على دفعات؟ وما هي الية المقايضة؟ كم يتم المقايضة على الكيلو؟؟

السلام عليكم تم الرد سابقا من ألأستاذ علي في مشاركة اخرى

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

وصلت الفكرة ... بارك الله فيك

جزاكم الله خيرا

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

حرب هذا الملف الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim lr As Long If Target.Column = 1 And Target.Cells.Count = 1 Then lr = Cells(Rows.Count, 1).End(3).Row Range("a1:a" & lr).SortSpecial End If Application.EnableEvents = True End Sub الملف مرفق autu_sort.xlsm

تفضل أخى ترتيب الأسماء والنوع.xls

اخي الكريم في الملف الذي ارفقته . الخلية مدموجة فعلاً لكن لم افهم هل ناسبك الحل أم لا؟ طبعا الحل كان عن طريق جعل الخلية المدموجة ( التفاف النص) ثم جعل الكلمات ( اثر الاهتمام - تحفيز - فلم ) نفس عدد الاحرف لكي تظهر مرتبة في الخلية المدموجة

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم عله يفي بالغرض مصنف1.xlsx

أخي الحبيب جرب الملف التالي قد يفيدك كثيرا Excel Contacts To VCF.rar

تفضل أخى الفاضل كود لاخفاء الصفوف الفارغة فى بدلالةخلايا العمود A اخفاء واظهار الصفوف الفارغة.rar اخفاء واظهار الصفوف الفارغة.rar

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