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

بدأه محمد أبو عدنان في 13 نوفمبر 2008 · 18 رد · 5,539 مشاهدة · في قواعد بيانات Microsoft Access

#113 نوفمبر 2008 في 13:02 صاحب الموضوع

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Projects_Date.rar

#213 نوفمبر 2008 في 15:11

السلام عليكم

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

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

/index.ph...mp;#entry893402

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

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

Sewar

#313 نوفمبر 2008 في 19:28

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

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

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

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

#413 نوفمبر 2008 في 21:27

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

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

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

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

وشكراً

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

Sewar

#516 نوفمبر 2008 في 08:18

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

السلام عليكم

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

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

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

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

#618 نوفمبر 2008 في 08:15

السلام عليكم

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

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

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

#724 ديسمبر 2008 في 14:32

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

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

ثانياً : قمت بتجربة البرنامج وتتبعت الاكواد فوجدت الكود التالي في الدالة " 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

#824 ديسمبر 2008 في 18:20

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

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

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

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

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

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

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

#925 ديسمبر 2008 في 17:57

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

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

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

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

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

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

#1025 ديسمبر 2008 في 21:04

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

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

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

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

Projects_Date.rar

وبالتوفيق

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

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

Sewar

#1126 ديسمبر 2008 في 00:00

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

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

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

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

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

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

#1228 ديسمبر 2008 في 13:28

للرفع

#1328 ديسمبر 2008 في 14:30

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

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

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

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

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

Sewar

#1428 ديسمبر 2008 في 19:24

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

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

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

الكود الاول :

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

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

انسخ الكود

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

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

انسخ الكود

DayOne = DateSerial(Y, m, 1)

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

انسخ الكود

Dim DayOne

وبعد التعديل

انسخ الكود

Dim DayOne AS Date

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

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

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

انسخ الكود

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

وبعد التعديل

انسخ الكود

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

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

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

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

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

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

انسخ الكود

Public Sub PutInData()
Dim sql AS String
Dim f AS Form
Dim db AS DAO.DATABASE
Dim rs AS DAO.Recordset
Dim mynum
Dim I AS Integer
SET f = Forms!frmCalender
FOR I = 1 TO 37
f("text" & I) = NULL
Next I
sql = "SELECT * FROM [tblInput] WHERE ((MONTH(InputDate) = " & f!month & " AND YEAR(InputDate) = " & f!year & ")) ORDER BY InputDate;"
SET db = CurrentDb()
SET rs = db.OpenRecordset(sql, dbOpenSnapshot)
IF rs.RecordCount > 0 Then
FOR I = 1 TO 37
IF IsDate(f("date" & I)) Then
rs.FindFirst "inputdate=#" & f("date" & I) & "#"
IF NOT rs.NoMatch Then
f("text" & I) = rs!InputText
End IF
End IF
Next I
End IF
End Sub