شوقي ربيع

السلام عليكم بحث.xlsm

السلام عليكم تم عمل الجزء المتعلق بالكمبوبكس اما البقية تحتاج توضيح اكثر طرقة البحث غير واضحة اولا لاضهار ادات التاريخ تحتاج الى تحميل هذا الملف MSCOMCT2.rar ثم تفك الضغط عنه و تنسخه في المسار C:\Windows\System32 ثم تشغل cmd كمسؤل ثم تنسخ احد الروابط التالية حسب نسخة الةندوز لديك 32 او 64 regsvr32.exe C:\Windows\SysWOW64\MSCOMCT2.OCX regsvr32.exe C:\Windows\System32\MSCOMCT2.OCX Nouveau1.xlsm

شكرا لك اخي essam rabea تقريبا هو المطلوب انت طبقت على كل ID انما اريد تحديد عميل معين اريد تطبيق نفس الفكرة على الجدول السابق لاكن بدلالت ID_FORNCEUR ان امكن يعني استعلام كن كشف حساب كل ID_FORNCEUR على حدى شكرا مرة اخرى و تحياتي لك

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

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

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

السلام عليم اخوتي لدي طلب بسيط من خبراء الاكسيس ان امكن و امتمثل في ما يلي لدي جدول رئيسي اسمة tbData خاص بالموردين وجدول اخر اسمه tbBone وهو الجدول الذي ندخل فيه الدفعات الخاصة بكل مورد علما ان العمو anne هو عمود سنة الادخال و عمود mois هو شهر ادخال الدفعة اريد انشاء استعلام يعطيني مجموع كل شهر الخاص بكل مورد بالفعل نجحت في ذلك لاكن كمثال مجموه شهر 1 الخاص بالعميل 5 يكون حاص جمع كل السطور المرتبطة ب الشهر واحد وليس هذا ما اريده اريد ان يجمع لي كل سنة على حدى اي مجموع شهر 1 الخاص بسنة 2017 و شهر 2 ......الى 12 ثم يضهر مجموع شهر 1 الخاص بسنة 2018 و الشهر 2 .....الى 12 كما ارجو اضهار عمود السنوات في الاستعلام شكرا مقدما db.accdb

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

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

انا جعلتها برمجيا بامكانك تعديل الكود كالاتي Private Sub UserForm_Initialize() Me.RightToLeft = True VarTab() = ThisWorkbook.Sheets("اسم الورقة التي بها جدول البيانات").Range("a2:d10").Value Dim i As Byte: For i = 1 To 4 Me.Controls("Label" & i).Caption = ThisWorkbook.Sheets("اسم الورقة التي بها جدول البيانات").Cells(1, i).Text Next End Sub او لغاء الكود من اساسه و تكتبهم على اليبل يدويا

بسيطة اخي فقط عدل كود تعبئة المصفوفة في حدث اقلاع الفورم كالاتي Private Sub UserForm_Initialize() Me.RightToLeft = True VarTab() = ThisWorkbook.Sheets("اسم الورقة التي بها جدول البيانات").Range("a2:d10").Value Dim i As Byte: For i = 1 To 4 Me.Controls("Label" & i).Caption = Cells(1, i).Text Next End Sub

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

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

شكرا دكتور مشاء الله لاتبخل علينا بهته المعرف جزاك الله خيرا

بارك الله فيك استاذ موضوع مميز

بسم الله الرحمان الرحيم السلام عليكم اصدقائي اعضاء منتدى اوفيسنا تم الانتهاء بحمد لله من قاعدة البيانات تم الاعتماد على الاكسيس كقاعدة البيانات لذى لن يكون هناك اي ثقل او ضغط على الاكسيل فواتير الشراء و فواتير البيع اضافة فاتورة بحث وتعديل او طباعة البحث عن الاصناف باستعمال خاصية النص التنبئي اتبعنا السعر الوسط للاصناف في حال توفر كميات مختلفة باسعار مختلفة في المخزون الاصناف الجديدة تدخل اوتوماتيكيا الى المخزن مباشرة من فاتورة الشراء و كذالك يتم تكويدها اوتوماتيكيا امكانية اضافة القيمة المضافة للفواتير حسب ارادة المستخدم اضهار ان كانت الفاتورة مسددة ام لا و ايضا اضهار ان كان مسدد جزء من الفاتورة و المبلغ المتبقي الموردين و العملاء اضافة بحث وتعديل او حذف اضهار كل الفواتير المتعلقة بالعميل او المود اضهار الفواتير الغير مسددة او الغير مدفوعة للعميل او المورد كشف حساب تفصيلي لكل عميل او مورد طباعة كشف الحساب اضهار عدد الفواتير المتعلقة بكل عميل او مورد و اضهار مجموع المبالغ المدفوعة او المسددة و مجموع المبالغ المستحقة المخزون قائمة كل الاصناف مع امكانية التعديل على اسم الصنف اضهار قائمة بالاصناف القريبة النفاذ وذلك على حسب كمية يحددها المستخدم اضهار قائمة الاصناف التي نفذت من المخزون قائمة بكل عمليات الشراء الخاصة بكل صنف قائمة بكل عمليات البيع الخاصة بكل صنف صافي ربح الصنف امكانية استراد قائمة اصناف من ملف اكسل خارجي جاري العمل عللى مكانية استراد الاصناف من صيغ اخرى كالاكسيس او الملفات النصية سندات الصرف و سندات القبض اضافة بحث وتعديل او حذف + طباعة السندات بحث بواسطة رقم السند او رقم الفاتورة او اسم العميل او المورد او بين فترة زمنية معينة اثناء اضافو السندات سواء قبض او صرف لا تضهر الى الفواتير الغير مسددة عند اختيار الفاتورة يضهر مبلغها اوتوماتيكيا امكانية اختيار طريقة الدفع نقدا او شيك مضهر البرنامج امكانية تغير ثيم البرنامج امكانية تغير لغة البرنامج (عربية انجليزة و فرنسية) يعتمد البرنامج على واجهة الاكسل الرئيسة و اليوزرفورم معا معلومات اخرى امكانية رفع قاعدة بيانات البرنامج على سيرفر محلي او عام (لاخوف على قاعدة البيانات في حال سقوط الونداوز) امكانية العمل على البرنامج من طرف اكثر من مستخدم في وقت واحد هذه بعض الصور المسربة للبرنامج هذا ماتم انجازه بفضل الله الى حد الساعة لذى احتاج من كل الاعضاء ابداء اقتراحاتهم حول الامور المنجزة و ايضا اعطائنا اي اضافات تودون ان اضيفها للبرنامج لانه لم يعد يتوفر في جعبتي اي افكار لذي ارجو من لهم خبرة في التعامل مع هذا النوع من البرامج ان يبدو اقتراحاتهم او يرةني بعض البرامج التي يمكن ان استمد منها افكار اخرى تحياتي للجميع اخوكم في الله شوقي ربيع

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

السلام عليكم على حسب مافهمت من سؤالك جرب هذا الكود Sub NewDate() Dim i As Byte: For i = 6 To 20 If Range("f" & i).Text = Format(Range("d" & i).Value, "yyyy/mm/dd") Then Range("d" & i).Value = Format(Range("d" & i).Value, "yyyy/mm/dd") Else Range("d" & i).FormulaR1C1 = "=NOW()" End If Next End Sub

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

متشكر اخ عاطف سنأخذ اقتراحك بعين الاعتبار في انتضار المزيد من الاقتراحات تحياتي

اجل استاد الكمية المتاحة و في نفس الوقت التي تضاف في الفاتورة عند تحيدد الصنف تدرج الكمية المتاحة مباشرتا في الفاتورة و اليوزر يعدل الكمية كما يشاء ما رئيك استاذ

السلام عليكم تجد ماتبحث عنه هنا

السلام عليكم تجد ما تبحث عنه هنا

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

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