الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج رائع لتدوين المواعيد اليومية

بدأه محمد أبو عدنان في 13 نوفمبر 2008 · 18 رد · 5,539 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اخواني وأخواتي الاعزاء،،،

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

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

ثانيا : تم تطوير هذه المفكرة الجميلة لاستخدامها في هذا البرنامج البسيط وفي ما يلي صور للبرنامج توضح الهدف وطريقة الاستخدام :

post-139265-1226566322_thumb.png

بعد النقر على حجز موعد

post-139265-1226566329_thumb.png

شاشة ادخال الملاحظات ، بهذه الشاشة يوجد مفتاح لادخال القيم الافتراضية بكل ملاحظة وذلك لتسهيل عملية الادخال

post-139265-1226566335_thumb.png

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

post-139265-1226566341_thumb.png

صورة عن التقرير الاول

post-139265-1226566346_thumb.png

صورة عن التقرير الثاني

post-139265-1226566351_thumb.png

انتبهو اخواني هذا البرنامج للاسف يعمل فقط على هذا التقويم

post-139265-1226566357_thumb.png

المطلوب رجاء وليس امر من احد المشرفين او الاعضاء الكرام المساعدة على تعديل الكود الخاص بالتقويم ليعمل على هذا التنسيق dd/mm/yyyy علما انني حاولت تعديله ولم انجح لذلك واعتقد ان جميع الدول العربية تعمل على هذا التسيق.

انظر الصورة المرفقة

post-139265-1226566362_thumb.png

ارجو ان ان لا اكون اطلت عليكم وجزاكم الله كل خير وبارك الله بكم جميعا وارجو من هذا العمل الفائدة لجميع اخواني في هذا المنتدى الرائع

اخوكم ابو عدنان

Projects_Date.rar

1
27169617.gif
#2

السلام عليكم

مفكرة جميلة بارك الله فيك

جرب التعديل على هذه المفكرة فهي لاتتأثر بالتقويم المستخدم على الجهاز

/index.ph...mp;#entry893402

ناصر المصاروة

شبكة سوارقريباً

Sewar

#3

وعليكم السلام ورحمة الله وبركاته ..... حياك الله أخي ناصر،،،

اولا : لم استطيع ان اخفي سعادتي الكبيرة عندما رأيتك اول من يمر على مشاركتي ، وما نحن هنا بهذا المنتدى الا اخوة يد واحدة ... أحباء..... رحماء بيننا سخرنا الله عز وجل لخدمة اخواننا كل وبما يستطيع ، وانا احبكم بالله جميعا مشرفين واعضاء وبارك الله بكم.

ثانيا : انا مررت على المفكرة التي ذكرتها وجزاك الله كل خير على هذا العمل المميز ولي مشاركة فيها ولكن للاسف لا تخدم الموضوع الذي اريده .

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

27169617.gif
#4

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

لا اقصد بالغيرة معنى الحسد بل اقصد الغبطة المشروعة .

واحببت منك ان تطبق فكرتك على هيكلية مفكرتي

ولكن اذا كان هذا رايك فمن بعد اذنك سأقوم بتطبيق طريقتك على هيكل مفكرتي وستؤدي نفس النتيجة باذن الله, ولكن المعذرة فلم يبقى لدي وقت اليوم وغداً هو يوم الجمعة فاعذرني على التاخير.

وشكراً

شبكة سوارقريباً

Sewar

#5
Naser Al Masarwa كتب:
ولكن اذا كان هذا رايك فمن بعد اذنك سأقوم بتطبيق طريقتك على هيكل مفكرتي وستؤدي نفس النتيجة باذن الله, ولكن المعذرة فلم يبقى لدي وقت اليوم وغداً هو يوم الجمعة فاعذرني على التاخير.

وشكراً

السلام عليكم

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

واعود واكرر طلبي الرجاء المساعدة على تعديل هذا البرنامج اذا كان ممكنا وبارك الله بكم جميعا اخواني واخواتي.

مع احترامي وتقديري للجميع

اخوكم ابو عدنان

27169617.gif
#6

السلام عليكم

اخواني هل من منقذ صدقوني قد صابني الحول من كثر محاولاتي تعديل المطلوب :blink: دون فائدة.

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

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

27169617.gif
#7

السلام عليكــم ورحمـة الله وبركاتــه

اولاً : اعتذر عن التأخير فقد نسيت الموضوع لانشغالي ببعض الامور

ثانياً : قمت بتجربة البرنامج وتتبعت الاكواد فوجدت الكود التالي في الدالة " Function Cal(m, Y) "

Function Cal(m, Y)
'
'
'
DayOne = DateValue(m & "/1/" & Y)
'
'
'

فقمت بتعديله كالتالي

'
'
'
DayOne = DateValue("1/" & m & "/" & Y)
'
'
'

ثم جربت البرنامج على عدة تواريخ فاعطى نتائج صحيحة

وللتأكد عدت الى الكود لدراسته مرة اخرى

فوجدت ال خطأ التالي في نفس الدالة

'
'
Dim DayOne
'
'

المتغير DayOne يعيد قيمة تاريخ لذا يجب تعريفه كالتالي

'
Dim DayOne As Date
'
'

وهذا يتطلب تعديل الجملة السابقة لتصبح كالتالي

'
'
'
DayOne = DateSerial(Y, m, 1)
'
'

وهذا البرنامج بعد التعديل

Projects_Date.rar

مرة اخرى اعذرني على التأخير وبالتوفيق

ناصر المصاروة

شبكة سوارقريباً

Sewar

#8

الاخ الغالي ناصر المصاروة ،،

السلام عليم ورحمة الله وبركاته

اخي الكريم اولا اشكرك جزيل الشكر على هذا العطاء المتواصل لكل زملائك وهذا والله مو غريب عليك فما تعلمنا منك الا الكرم والجود بارك الله بك وبوالديك.

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

اما انتم اخواني ارجو الاستفادة من هذه المفكرة الرئعة في في برامجكم.

والشكر موصول للقائمين على هذا المنتدى المبارك ان شاء الله.

اخوكم ابو عنان

27169617.gif
#9

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

ومذكرة رائعة وجهد رائع

1

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه

هذه صفحتي الخاصة

http://s4.ae.bitefight.org/c.php?uid=97932

#10
kiss90 كتب:
بالنسبة للمفكرة عندك يوجد بها خظأ بسيط وهو أن الشهور عبارة عن 31 يوم صحيح انه عندما تضغط لإضافة ملاحظة يعطيك التاريخ الحقيقي لكن الأفضل ان تخرج الأيام أمام المستخدم كما هي موزعة على الشهر حتى يبين له الصحيح

ومذكرة رائعة وجهد رائع

شكراً على دقة الملاحظة

فمع اني حملت المفكرة واجريت عليها التعديل الا اني لم الحظ ذلك

تم التعديل وهذه المفكرة من جديد

Projects_Date.rar

وبالتوفيق

ناصر المصاروة

1

شبكة سوارقريباً

Sewar

#11

مشكور اخي الكريم kiss90 على ملاحظتك وجزك الله خير على التنبيه.

يبدو اننا انا واخي ناصر بارك الله به قد قمنا بنفس التجربة على شهر من 31 يوم ، وحتى الايام تمت التجربة من بعد 12 الشهر .

كانت التجربة سريعة ولم نجرب على باقي الايام المهم بعد تم ادخال البيانات وتم اعتماد البرنامج ظهرت المشكلة فيبدو ان الكود باقي له تعديلة أخيرة بعد التعديل الأخير في المشاركة السابقة ويكون مية المية ان شاء الله.

المشكلة الآن من 1 الى 12 من اي شهر لا تظهر الملاحظات في الكلندر حاول ادخال ملاحظة ضمن هدا الرنج ولاحظ ان البيان يدخل صح في الجدول ولكن حين العرض لا تظهر الملاحظات.

اعلم اخي ناصر اننا تعبناك معنا وما قصرت وجزاك الله كل خير وبارك الله بك.

اخوك ابو عدنان

27169617.gif
#12

للرفع

27169617.gif
#13

السلام عليكم اخي ابو عدنان

كنت قبل قليل اراجع البرنامج

ارجو ان توضح لي اين الكود الذي يقوم باظهار الملاحظات على المفكرة

ناصر المصاروة

1

شبكة سوارقريباً

Sewar

#14

وعليكم السلام ورحمة الله وبركاته اهلا بك اخي العزيز ناصر،،،

انا آسف لانني تقلت دمي عليك ولكن ماذا علي ان افعل والله ما باليد حيلة .

اخي ناصر لنرجع بالذاكرة الى الوراء ونعيد ترتيب الاحداث هناك ثلاثة امكاكن بالكود يفترض تعديلهم لتعمل هذه المفكرة على التنسيق الجديد dd/mm/yyyy :

الكود الاول :

كود حفظ الموعد او اضافة سجل الى الجدول وانحلت مشكلته والحمد لله

وكان على القديم

  1. DayOne = DateValue(m & "/1/" & Y)
  2.  

وصار بعد جهودكم المباركة

  1. DayOne = DateSerial(Y, m, 1)
  2.  

وايضا تم تعديل السطر التالي كان على القديم

  1. Dim DayOne
  2.  

وبعد التعديل

  1. Dim DayOne AS Date
  2.  

وبذلك نكون انتهينا من الكود الاول وتم تجريبه ويعمل بنجاح.

الكود الثاني :

كود عرض المفكرة على الشاشة لادخال الموعد بتاريخه حسب الشهر 31 او 30 او 29 او 28 وكان على القديم

  1. start = DateValue(month(d) & "/1/" & year(d))
  2.  

وبعد التعديل

  1. start = DateSerial(year(d), month(d), 1)
  2.  

وبذلك نكون انتهينا من الكود الثاني وتم تجربته ويعمل بنجاح.

الكود الثالث :

وهو الذي به المشكلة الآن

وهذا الكود خاص لعرض الملاحظات المخزنة بالجدول على شكل مفكرة على الشاشة حيث ان المشكلة كما ذكرتها لك لا يعرض الملاحظات من 1 الشهر الى 12 الشهر لان هذه الفقرة اقصد الكود الثالث والأخير لم يتم تعديله واثبات لكلامي حول التاريخ الى التسيق القديم mm/dd/yyyy ولاحظ النظام يعرض المفكرة بجميع الايام على الشاشة اعيد التسيق الجديد ولاحظ اختفاء الايام من 1 الى 12.

واعتقد ان الكود الثالث المطلوب تعديله هو

  1. Public Sub PutInData()
  2. Dim sql AS String
  3. Dim f AS Form
  4. Dim db AS DAO.DATABASE
  5. Dim rs AS DAO.Recordset
  6. Dim mynum
  7. Dim I AS Integer
  8.  
  9. SET f = Forms!frmCalender
  10.  
  11. FOR I = 1 TO 37
  12. f("text" & I) = NULL
  13. Next I
  14.  
  15. sql = "SELECT * FROM [tblInput] WHERE ((MONTH(InputDate) = " & f!month & " AND YEAR(InputDate) = " & f!year & ")) ORDER BY InputDate;"
  16.  
  17. SET db = CurrentDb()
  18. SET rs = db.OpenRecordset(sql, dbOpenSnapshot)
  19. IF rs.RecordCount > 0 Then
  20. FOR I = 1 TO 37
  21. IF IsDate(f("date" & I)) Then
  22. rs.FindFirst "inputdate=#" & f("date" & I) & "#"
  23. IF NOT rs.NoMatch Then
  24. f("text" & I) = rs!InputText
  25. End IF
  26. End IF
  27. Next I
  28. End IF
  29. End Sub
  30.  

وتحديدا اعتقد هذا السطر

  1. rs.FindFirst "inputdate=#" & f("date" & I) & "#"
  2.  

هذا ما توصلت اليه بعد هالدويخة .

ارجو ان اكون قد وفقت بالشرح لك.

وجزاك الله كل خير على تعبك معي.

وان شاء الله تنجح بتعديل الكود الأخير وتكون هذه المفكرة هدية كبيرة منك لجميع الاعضاء لان الفضل الاول والأخير لله عز وجل ثم لك.

اخوك ابو عدنان

27169617.gif
#15

للرفع

27169617.gif
#16

السلام عليكــم ورحمـة الله وبركاتــه

اخواني المشرفين وخبراء الاكسس وخبراء الاكواد هل هذا التعديل صعب لهذه الدرجة !!!!!!!!!!!

1
27169617.gif
#17

ابي برنامج تدوين مواعيد عملاء ولكن يستخدم على اكثر من جهاز ممكن ؟؟

وهل ممكن يستخدم عن بعد ؟؟؟ وتكون وسيلة الاتصال هي الانترنت ؟؟

اتمنى الافاده

مشكورين

#18
محمد أبو عدنان كتب:

السلام عليكــم ورحمـة الله وبركاتــه

اخواني المشرفين وخبراء الاكسس وخبراء الاكواد هل هذا التعديل صعب لهذه الدرجة !!!!!!!!!!!

للرفع

#19
محمد أبو عدنان كتب:

السلام عليكــم ورحمـة الله وبركاتــه

اخواني المشرفين وخبراء الاكسس وخبراء الاكواد هل هذا التعديل صعب لهذه الدرجة !!!!!!!!!!!

للرفع

تم تعديل هذه المشاركة بواسطة طالب علم مبتدىء في 23 نوفمبر 2011 في 17:13

مواضيع مشابهة