أمير2008

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

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

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

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

الأساتذة الكرام : وأخوة الأعزاء

الاستعلام المطلوب به 13 نوع من الصيانة و فيه آخر صيانة لمركبة محددة فقط ؟ وده معناه أنه ممكن تجد أنواع صيانة لم تتم لهذه المركبة وبالتالي ستكون البيانات فارغة أمام هذا النوع أنا فهمت المطلوب صح ؟

يمكن تمثيل الخط الزمني للقيم بالجدولين مركز الخليج Chart.accdb

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

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

ليس بعد إذن أستاذنا رمهان Import 02.rar

كل عام وأنتم بخير

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

تقريبا اقتربت الدالة المقترحة على الانتهاء وهي حتى الآن لها عدة أشكال: DateSum(date1,date2,"days") DateSum(date1,date2,"d") & DateSum(date1,date2,"m") & DateSum(date1,date2,"y") DateSum(integer,"d") & DateSum(integer,"m") & DateSum(integer,"y") DateSum("d30m12y1") في الشكل الأول : تعطي الدالة فترة زمنية من وإلى وتطلب الأيام فتعطيك عدد أيام الفترة أو الأشهر أو السنوات . وهي هنا تشابه عمل الدالة Datediff في الشكل الثاني : تعطيها فترة زمنية فتعطيك كم سنة وكم شهر وكم يوم ، طبعا لو زادت الأيام عن 30 تتحول لشهر ولو زادت الأشهر عن 12 تتحول لعام في الشكل الثالث : تعطيها عدد ايام فتعطيك نفس ناتج الشكل الثاني في الشكل الرابع : تعطيها عدد الأيام وعدد الأِشهر وعدد السنوات فتعطيك مجموعهم أيام وجميع هذه الأشكال تمت بنجاح لكن منتظر اضافة حساب أيام الأجازات وأيام العمل الفعلية

أوك لكن أمهلني وقتا وإن شاء الله خير

لا لا لا رحمة ولا شفقة بعد اليوم ههههه يا باشا حتى ولو وضعت بالكود نصف كيلو لحمة هههههههه معلش أصل اللحوم غالية اليومين دول سيعمل أيضا كالتالي : Private Sub Command11_Click() If IsNull(txts) Then MsgBox "مربع النص خالي" Exit Sub End If Loopy = (CDbl(Len([txts]) - Len(Replace([txts], ")", "")))) txtx = "" c0 = 1 Do c1 = Nz(InStr(c0 + 1, Me.txts, "("), 0) c2 = Nz(InStr(c1 + 1, Me.txts, ")"), 0) c3 = c2 - c1 If c1 <> 0 And c2 <> 0 Then c4 = Mid(Me.txts, c1 + 1, c3 - 1) Loopy = Loopy - 1 c0 = c2 Me.txtx = Me.txtx + CHARW(c4) Loop Until Loopy = 0 End Sub بس طبعا لو اللحمة زادت ممكن الكود يتعطل

طيب شوف التعديل : تكويد جملة : "منتدى أوفيسنا" Chrw ("1605") & Chrw ("1606") & Chrw ("1578") & Chrw ("1583") & Chrw ("1609") & Chrw ("32") & Chrw ("1571") & Chrw ("1608") & Chrw ("1601") & Chrw ("1610") & Chrw ("1587") & Chrw ("1610") & Chrw ("1606") & Chrw ("1575") تحول إلى : Cï1ëh¤2ûb3d ô1605ôg4& Cï1ëh¤2ûb3d ô1606ôg4& Cï1ëh¤2ûb3d ô1578ôg4& Cï1ëh¤2ûb3d ô1583ôg4& Cï1ëh¤2ûb3d ô1609ôg4& Cï1ëh¤2ûb3d ô32ôg4& Cï1ëh¤2ûb3d ô1571ôg4& Cï1ëh¤2ûb3d ô1608ôg4& Cï1ëh¤2ûb3d ô1601ôg4& Cï1ëh¤2ûb3d ô1610ôg4& Cï1ëh¤2ûb3d ô1587ôg4& Cï1ëh¤2ûb3d ô1606ôg4& Cï1ëh¤2ûb3d ô1575ôg4 كما بالمرفق وتقدر تستعيد الجملة الأصلية طبعا encode_decode_letters 2.rar

طيب جرب المرفق لحين ما نعدل كود الاستعلام إلى دالة ProgWork 8.rar

أوك لا بأس زادك الله علما وأدبا جرب المرفق encode_decode_letters.rar

وعليكم السلام ورحمة الله فكرة جميلة لكن واضحة المعالم يعني هذا ليس بتشفير هو تحويل واضح ومفضوح Chrw ("97") ...c من النظرة الأولى هذا حرف a الذي كود أسكي له 97 أقترح تلغي الحروف CHrw والأوقواس وعلامات التنصيص وتقوم بادخال رموز وأرقام عشوائية بدلا منها وعند الاسترجاع أو فك التشفير فإنه يتم تمييز ما هو غير عشوائي لكي يتحول إلى الحرف الأصلي للالالبا بلا لالابلا بلا لابلابلبلبلا منلال من

أرجو الاطلاع على المرفق وقبل أن نفتح المرفق هناك ما يعرف ملفات : LDB LACCDB النوع الأول يظهر تلقائياً عند تشغيل قاعدة بيانات أكسس 2003 أو ما قبل ذلك الاصدار. بينما الثاني للاصدارات الأحدث المقصد: أنه لو لديك قاعدة بيانات باسم معين فسوف يظهر لها هذا الملحق بنفس الاسم ثم يختفي عند الاغلاق الطبيعي للقاعدة مما يعني : أنه لو هناك قاعدتان مختلفتان بالاسم موجودتان بنفس المجلد فسوف يكون لكل منهم ملف خاص به وإليك المرفق : قاعدتان مختلفتان بالاسم و لهما اسم بدون اسم موجودتان بنفس المكان الاولى بها 7 جداول والثانية بها ثلاثة جداول لكن ماذا يحدث لو فتحت احداها ثم فتحت الثانية ؟ وما اسم الملف الملحق ؟ وهل نظرا لأنهما مختلفان هل سيظهر ملفان بهذا الشكل : ldb. أم ملف واحد ونظام التشغيل سيعتبرهما متشابهين بالاسم (وهذه طبعا كارثة فكيف يعلم أنهما متشابهان ويتركهما بمكان واحد) هذه التجربة فاصلة لأن الذي سينشئ الملف الملحق هو الأكسس نفسه تحت إشراف نظام التشغيل بنفسه أيضا يعني مفيش خدعة وشوف قبل التجربة مايكروسوف ماذا قالت عن هذه الملفات الملحقة : This file is a Microsoft Access lock information files. created when an Access database is opened/accessed by a user the file is created with the same name as the Access database هو ملف معلومات مؤمن يتم إنشاؤه عندما تفتح قاعدة البيانات بواسطة مستخدم وهذا الملف ينشأ بنفس اسم قاعدة البيانات ‍.rar

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

الله يكرمك بس كنت عاوز أنبهك إن ده كود تفصيل يعني ممكن تجد به أخطاء . لأن لم يجربه أحد من قبل طبعا هنحتاج نعدل الشرط من : لو زاد عدد الشهور عن 12 يتحول إلى سنة إلى : لو زاد عن 11 يتحول إلى سنة ProgWork 4.rar

أوك الحين البيانات ستدخل لكن راجع الجمع وانتبه لأن الشهور لو زادت عن 12 تتحول إلى سنوات كذلك الأيام لو زادت عن 30 أو 60 أو 90 ProgWork 3.rar

فعلا هذا ما حدث معي ولم أحاول المساعدة في الحل سابقا هلا أ/ حربي ليس عندي دالة جاهزة تؤدي للحل في مسألة جمع التواريخ لكن اجتهدت في وضع شروط للجمع ربما طابت العين . وربما أظلمت كلتا العينين ههههههه ProgWork 2.rar

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