أمير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 بس طبعا لو اللحمة زادت ممكن الكود يتعطل