أمير2008

4 hours ago, أحمد الفلاحجى said:

اخى امير بارك الله فيك وجزاك الله كل خير

عن اى خطأ تتحدث اخى لم ارى اى خطأ بارك الله فيك

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

وكلنا نتعلم ونستفيد من بعض ومتزعلش من اخوانك نحبك فالله

دائما الامر يستحق طالما نتعلم فربما اجابتك تنفعنى فى وقت لاحق

وكما يقول معلمنا العزيز جعفر

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

ايام الفريق العربي وشخصيات مثل الاخت زهراء والاستاذ جعفر لا تنسى

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

لماذا يساعدون  ويعلمون الناس بها الشكل وبدون مقابل !! بالعكس احيانا يقوم البعض بمضايقتهم كما حدث مع الاخت زهراء

والاجابة التي استنتجتها وقدرتها هي :

أنه لوجه الله تعالى ، لا نريد منكم جزاء ولا شكورا

واعتذر على الاطالة والابتعاد عن الاصلي . وكل عام وانتم بخير

شكرا أخي فايز
أنا بصراحة استفدت من السؤال  ومن الاجابات ايضا

وأشكركم جميعا على روح التعاون 

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

فالأمر لم يكن يستحق

جميل جدا  

واستعلام واحد شيئ ملفت للنظر ربما لأني تركت الأكسس منذ فترة

وأستأذنكم في طرح حل آخر
ولا يهم إن كان المطلوب أم لا

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

وأربعة استعلامات أخرى لمطلوب لم يطلبه السائل
هههههههه

وقد استعنت بدالة من هذا المنتدى لعمل المطلوب الغير مطلوب

Vibrators3.accdb

1 minute ago, فايز.. said:

تفضل .. المايك معك 

ههههههههه

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

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

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

وده معناه أنه ممكن تجد أنواع صيانة لم تتم لهذه المركبة وبالتالي ستكون البيانات فارغة أمام هذا النوع

أنا فهمت المطلوب صح ؟

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

مركز الخليج

Chart.accdb

الأفضل في الوقت الحالي أن تصمم برنامج  يعمل على كلا النواتين

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

أبشر إن شاء الله خيرا

لا توجد معوقات 

لكن أحب دائما الاخراج في أفضل صورة

كذلك هناك بعض الاضافات

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

في 5/25/2017 at 10:24, أ / محمد صالح said:

ربما يفيدك هذا الملف

 

شكرا أ/ محمد

مجهود رائع

سنحاول الاستفادة منه 

ليس  بعد إذن أستاذنا رمهان

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 تتحول لعام

في الشكل الثالث :

تعطيها عدد ايام فتعطيك نفس ناتج الشكل الثاني

في الشكل الرابع :

تعطيها عدد الأيام وعدد الأِشهر وعدد السنوات فتعطيك مجموعهم أيام

وجميع هذه الأشكال تمت بنجاح

لكن منتظر اضافة حساب أيام الأجازات وأيام العمل الفعلية

أوك

 لكن أمهلني وقتا  

وإن شاء الله خير

3 ساعات مضت, kanory said:

حبه حبه علينا يا أمير ....

لا لا

لا رحمة ولا شفقة بعد اليوم

ههههه

3 ساعات مضت, kanory said:

لكن ماذا لوكان الكود بدون علامة تنصيص ..... شاهد المرفق

kanory.rar

يا باشا حتى ولو وضعت بالكود نصف كيلو لحمة

هههههههه معلش أصل اللحوم  غالية اليومين دول

سيعمل أيضا كالتالي :

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

11 ساعات مضت, jjafferr said:

طريقة عرضك للموضوع تحتم على علينا انزال المرفق ، ثم النظر فيه لمعرفة السؤال !!

مقدرة الاعضاء في المنتدى للإجابة على الاسئلة تعتمد على:

1. وجود الوقت الكافي عند العضو للإجابة ،

2. اذا كان يعرف الاجابة مباشرة على السؤال حسب وقته ،

3. بعض الاعضاء يجاوب على الاسئلة من الموبايل ، فلا يستطيع تحميل المرفق ،

لذلك ، فانت حسمت الموضوع انه لا رد إلا بإزال المرفق

فعلا

هذا ما حدث معي

ولم أحاول المساعدة في الحل سابقا

هلا أ/ حربي

ليس عندي دالة جاهزة تؤدي للحل في مسألة جمع التواريخ

لكن اجتهدت في وضع شروط للجمع

ربما طابت العين . وربما أظلمت كلتا العينين

ههههههه

ProgWork 2.rar

هلا مستر رياض

سأحاول أن اساعدك في الجزئية الخاصة بالخصم  من المخزن

المفترض :

عدم الارتباط بجدول المخزن أثناء كتابة الفاتورة

وبعد الانتهاء وتسجيل المبلغ الواصل من الزبون

تضغط على زر جديد سويته لك اسمه (حفظ الفاتورة)

فيعطيك رسالة :

اذا أجبت ب (لا) فسوف يتم حذف الاصناف لهذه الفاتورة من جدول تفاصيل 

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

طبعا من المؤكد أن هناك تعديلا يفترض أن يتم على مديونية العميل

لكن سأترك هذه النقطة لك 

مبيعات 2.rar