الكود لا يعمل

رفع

رفع

السلام عليكم

أرجو مساعدتي في معرفة المشكلة

تحيااااتي،،،

اخي العزيز سويتي

نزلت مثالك وطبقتو وشغال 100/100 شوف الصورة

اخي الفاضل

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

هل من الممكن ان اسألك سؤال وخذ راحتك في الجواب والتفكير

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

الى هنا الوضع ليس به اي شيء صحيح ام لا !!!

بالتأكيد كلام صحيح .

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

بالتأكيد ان العامل سوف يسمع كلام المدير لأن كلام المدير يمشي على الموظف وعلى العامل

اتمنى انه وصلتك الفكره الآن

دعنا نرى ماذا يحدث لديك في الكود

كان امر DoCmd.CancelEvent يعمل بشكل جيد بمعنى الغاء الإجراء الحالي ( تذكر هذه العباره : الإجراء CancelEvent امر بسيط مثله مثل الموظف عندما امر العامل )

ولكن الأمر Me.Undo اشمل واعم وفعله اكبر بكثير من الإجراء السابق لأنه أمر وليس اجراء ونشبه هذا الأمر بأمر المدير العام الذي يمشي كلامه على الصغير والكبير

لهذا بارك الله بك عندما نضع DoCmd.CancelEvent ثم نتبعها مباشرة بأمر Me.Undo فبالتأكيد ان امر Me.Undo سوف يلغي الأمر السابق وتصبح المحصله صفر بمعنى لا يوجد اي حدث يمكن تنفيذه هذا هو بالضبط ما يحدث معك وسبب لك ارباك

ولذا قمنا بإيقاف جميع اجراءات الحدث DoCmd.CancelEvent وابقينا على ما هو اكبر منها Me.Undo

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

ولكن لو غيرت الى CPR آخر فلا يوجد مشكله سيتم قبول هذا الأمر .

اتمنى انني وضحت الصوره لك وما يحدث داخل الكود من أمور غائبة عنك .

فائده عامه : لا يمكن استخدام حدثين لهما نفس الإجراء في وقت واحد لأن احدهما سيلغي الآخر وتكون المحصلة صفر ( اي لا يوجد حدث نهائيا )

ملفك بعد التعديل ( راجع التعديلات على الأكواد في النموذج الفرعي )

Code-UP.rar

بالتوفيق

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

الأخت زهرة بارك الله فيك

عودتينا دائما بمثل هذه الإجابات الواضحة و الشروحات الوافية

أدامك الله ذخرا لهذا المنتدى العظيم وتقبل الله منا ومنك صالح الأعمال

أنت فعلا مميزة ... تقبلى تحياتى

استاذتي الكريمة زهرة،،،

شكراً لمرورك وشرحك الجميل...

لقد جربت التعديل الذي اجريتيه على المثال... لكن هناك مشكلة وهي:

مطلوب عدم تكرار CPR في نفس التاريخ Appointment Date، وان التعديل الذي اجريتيه يأخذ بعين الاعتبار CPR فقط وذلك بعد ان قمت بإختيار تاريخ مختلف وادرجت نفس قيمة الـ CPR وقام بإظهار رسالة الخطأ والتنبيه بالتكرار.

وبالنظر للصورة المرفقة، يتبين عدم وجود اي سجل في تاريخ 11-11-2011 ولكن رسالة الخطأ ظاهرة وذلك لوجود سجل في تاريخ 10-11-2011

اخي الفاضل

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

Private Sub CPR_BeforeUpdate(Cancel As Integer)
If DCount("[cpr]", "Appointment Entry", "[cpr]='" & Me![CPR] & "' and [Appointment date]=#" & Forms![AppointDate]![AppointmentDate] & "#") > 0 Then
MsgBox "Customer with same CPR no. has an appointment at this date الزبون بنفس الرقم الشخصي ، لديه موعد محجوز في هذا التاريخ", vbCritical, "Dentacare"
Me.Undo
ElseIf (Appointment_Date) < (Text12) Then
MsgBox " You can't book an appointment in old date لا تستطيع حجز موعد في تاريخ قديم "
Me.Undo
End If
End Sub

لقد قمت بتعديل الكود لك قم بالتجربه واخبرني بالنتيجة

Code-UP2.rar

بالتوفيق

سؤالي لكـ ام عهود؟؟؟

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

السلام عليكم

الشكر لك موصول كما يطيب للأعضاء بتسميتك (زهرة المنتدى)

يؤسفني ان اخبرك بأن الكود لم يعمل معي!!!!!

ولا اعرف ما السبب

واللي زادني حيرة الأخ morad2012 عندما قال بأن الكود عمل معه بدون تعديل اما انا لم يعمل معي حتى بعد تعديلك عليه.. لكن بعد التعديل الأول بمعيار CPR فقط دون التاريخ عمل الكود!!!

مع العلم بأنني قد جربت الملف على جهاز مختلف ولم يعمل

أفيدونا رحمكم الله

اخي الكريم

مستحيل ان لا يعمل لديك البرنامج بشكل طبيعي لقد تأكدت ولم يظهر عندي اي مشكله ومع هذا قمت بالتعديل بناء على طلبك

جرب الآن وبكل تأكيد سيعمل مع الكود سواء بالطيب او بالقوه

Code-UP3.rar

بالتوفيق

السلام عليكم

استاذتي زهرة بعد التحية اشكرك على الجهد والتواصل والله يجزاك خير،،،

الكود يعمل بشكل جيد في ماعدا الآتي

جربي الكود بحيث يكون اليوم تاريخ 12 والشهر نوفمبر

مثال:

12/11/2011

12/11/2012

12/11/2013

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

اعتذر كثيراً ان اثقلت عليك بطلبي

تحياااتي،،،

اخي الفاضل

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

بعد الفحص والتدقيق في جميع اكواد البرنامج وبعدة عدة تجارب اتضح لنا التالي :

في النموذج الرئيسي

1. هذا البرنامج معمول خصيصا للحجز فقط في نفس تاريخ اليوم بسبب وجود مربع نص Text14 الذي تم تعيين القيمة الإفتراضية له ( Date ) تاريخ اليوم وايضا عند حدث فتح النموذج فأن قيمة AppointmentDate تساوي Text14 اي تساوي تاريخ اليوم

2. اما اذا كان التاريخ اقدم من تاريخ اليوم فلا يمكن الحجز .

المشكلة الآن :

لا يتم تكرار الحجز في نفس التاريخ لنفس الزبون ..... انتهينا من هذه المشكله .

2. لا يتم الحجز في تاريخ قديم ... لا يوجد بها مشكله

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

قم بالتجربه على الثلاث اوضاع ( حجز تاريخ قديم و تكرار حجز بتاريخ اليوم و حجز بتاريخ احدث من تاريخ اليوم )

Code-LAST.rar

بالتوفيق

السلام عليكم

اخي الفاضلة ام عهود

تحية لك الله يجزيك عني خير الجزاء

كل ما تقدميه جميل ولكن ألا يمكن التغلب على مشكلة حجز المواعيد المستقبلة؟

لانه وفقاً للعمل من الطبيعي أن يقوم المراجع بحجز موعد له بعد يوم او اسبوع او شهر .... بحيث لا يتعارض مع جدول اعماله او لا يأتي في يوم قد لا يكون فيه موعد شاغر.

ان من الغريب في التعديل السابق ان يقبل البرنامج بحجز موعد مستقبلي بدون التكرار في نفس اليوم ولكن في بعض التواريخ لا يقبل!!! مالسبب؟

خبرتي قليلة جدا ولكن هل سيفيد لو قمنا بتغيير انواع الحقول من تاريخ الى نصي؟ او هل يمكن استبدال Dcount بـ DLookup قد يكون مفيد؟

أتمنى أن اجد لديكم المساعدة

مع خالص شكري وتقديري،،،

اخي الفاضل

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

1. يمكن الحجز لمرة واحده فقط في نفس اليوم لنفس الشخص .

2. لا يمكن الحجز في تاريخ سابق لأن هذا التاريخ قد مضى

3. ركز معي هنا في هذه النقطه ثم قم بالتطبيق

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

ولكن عندما نقوم بالحجز في التاريخ المستقبلي فإننا نقوم بالحجز لمرة واحده فقط لا غير .

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

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

1. قمنا بالحجز في وقت سابق كمثال :

تاريخ اليوم هو 11/ 11 / 2011

لو حاولنا الحجز في تاريخ 09/ 11 / 2011 لن يقبل البرنامج لأن هذا اليوم انتهى ولا يمكن الحجز فيه لأن اي حجز موعد اما ان يكون في نفس اليوم او ليوم متقدم ( تاريخ جديد )

2. قمنا بالحجز في نفس اليوم منذ الساعة 12:00 منتصف الليل وحتى الساعة 12:00 منتصف الليل لنفس اليوم ( 24 ساعه - يوم كامل ) لنفس الشخص لمرة واحده فإن البرنامج سيقبل بدون مشكله

الآن لو حاولنا الحجز لنفس الشخص في نفس اليوم وليكن مثلا الساعه الثامنه صباحا فلن يقبل البرنامج لأن هذا الشخص لديه حجز مسبق في نفس اليوم واذا اراد الحجز فلينتظر حتى الساعة 12:01 منتصف الليل لأن بهد هذه الدقيقه سيكون قد بدأ يوم جديد وتغير التاريخ من 11/ 11 / 2011 الى 12 / 11 / 2011 .

3. قمنا بالحجز لشخص بتاريخ متقدم 12/ 11 / 2011 وكان تاريخ اليوم 11/ 11 / 2011 لإن البرنامج سيقبل وكان لحجز لمرة واحده فقط اي لم نقم بالتكرار مع العلم بأن البرنامج يقبل التكرار ولكن فقط حجزنا مره واحده فقط

انظر ماذا سوف يحدث بعد الساعة 12:01 منتصف الليل وعندما يتغير التاريخ الى 12/ 11/ 2011 لن يقبل البرنامج ابدا بعملية الحجز مرة ثانية لأنك دخلت في نفس اليوم

ولهذا اريدك ان تجرب هذه الطريقة

1. احجز لعدة اشخاص بتاريخ 12/ 11 / 2011 كل واحد حجز واحد فقط ثم اترك البرنامج

عندما تأتي الساعة 12:01 بعد منتصف الليل حاول تحجز لأي شخص من الذين حجزت لهم مسبقا في هذا اليوم

بالطبع سيرفض البرنامج ولن يقبل اي حجز لأنه سبق وان حجزت لهم من يوم امس .

ولهذا نجد ان الطريقة الصحيحه هي الموجوده في الملف السابق Code-UP3 قم بتحميله من جديد واحجز فيه لمرة واحده لعدة اشخاص بتاريخ 12/ 11 / 2011 وقم بإغلاقه ثم افتحه بعد الساعة 12:01 ثم ابدأ بالحجز لهم مره ثانية لن يقبل البرنامج لهم اي حجز لأنه محجوز لهم مسبقا .

بالتوفيق

الاستاذة زهرة،،،

والله اتعبتك معي (أرجو المعذرة)

سبب طلبي بعدم تكرار الموعد في نفس التاريخ حتى وان كان مستقبلي هو يرجع لمنع اي خطئ قد يحدث من جانب المستخدم (تفادي الأخطاء)، حيث السماح للخطأ بالحدوث يعتبر نقص في البرنامج بإعتبار ان البرنامج هو الذي يسير المستخدم ويمنعه من ارتكاب اي خطأ سواء سهواً او عمداً.

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

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

/index.php?showtopic=201808

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

أو هل من الممكن هذا الكود (ادناه) ان يعمل بعد التعديل عليه؟

If DLookup("count(*)", "Appointment Entry", "cdate(nz([Appointment Date]))='" & [Appointment Date] & "' and cdate(nz([time]))='" & XTime & "'") > 0 Then

كنت قد استخدمته في برنامج قديم بمساعدة الاخوة الكرام في المنتدى ومعياره التاريخ والوقت بدلاً من التاريخ و CPR.

مع جزيل الشكر وخالص تحيااااتي

d1.rar

شكرا أم عهود على سعة الصدر

وبارك الله فيك و أمدك بالصحة و العافية

===

السلام عليكم

بحسب تاريخ اليوم، لقد قمت بتجربة البرنامج نسخة Code-UP3 ولم يعمل الكود في تاريخ 12/11/2011!!!

ولقد قمت بتجربته بتاريخ مستقبلي كمثال تاريخ 13 و 14 وعمل بنجاح ولم يسمح بالتكرار.

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

وهل يمكن تطبيق المثالين الذين طرحتهما في ردي السابق؟

تحياااااتي

اخي الفاضل

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

واخيرا بفضل الله وعونه تم حل المشكله نهائيا من جذورها

الآن قم بعمل التجارب النوويه ولا تدع تاريخ سواء متأخر او في نفس اليوم او متقدم إلا وتجربه وانظر النتيجة

za-Code.rar

انتظر تغقيبك بعد حل المشكله

بالتوفيق

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

استاذتي الفاضلة ام عهود... تحية ملؤها الشكر والتقدير،،،

لقمت بعمل التجارب والتي من ضمنها تغيير تاريخ الحاسوب الى 12/11/2011، وللأسف لم يعمل الكود

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

أرجو ان لا يصيبك الاحباط

ارجو ان تقومي بتغيير تاريخ الحاسب للتاريخ المذكور اعلاه والتجربة

مع خالص تحياااتي وتقديري

جعل الله ما تقديمه للمنتدى والاعضاء صدقة في ميزان حسناتك.

:)

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

استاذتي الفاضلة ام عهود... تحية ملؤها الشكر والتقدير،،،

لقمت بعمل التجارب والتي من ضمنها تغيير تاريخ الحاسوب الى 12/11/2011، وللأسف لم يعمل الكود

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

أرجو ان لا يصيبك الاحباط

ارجو ان تقومي بتغيير تاريخ الحاسب للتاريخ المذكور اعلاه والتجربة

مع خالص تحياااتي وتقديري

جعل الله ما تقديمه للمنتدى والاعضاء صدقة في ميزان حسناتك.

:)

sweety78 كتب:

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

استاذتي الفاضلة ام عهود... تحية ملؤها الشكر والتقدير،،،

لقمت بعمل التجارب والتي من ضمنها تغيير تاريخ الحاسوب الى 12/11/2011، وللأسف لم يعمل الكود

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

أرجو ان لا يصيبك الاحباط

ارجو ان تقومي بتغيير تاريخ الحاسب للتاريخ المذكور اعلاه والتجربة

مع خالص تحياااتي وتقديري

جعل الله ما تقديمه للمنتدى والاعضاء صدقة في ميزان حسناتك.

:)

اخي الفاضل

يقال اذا عرف السبب بطل العجب

هل تعلم اين تكمن كل المشاكل التي تعاني منها انها في تنسيق التاريخ لديك في الجهاز

اما البرنامج فهو يعمل بكامل طاقته النوويه

وقد اجريت عدة تجارب وكانت النتيجة ممتازه ولا يوجد مجال للخطأ حتى ولو بنسبة 1/ 1000000000000

الآن كل ما اريده منك عمل التالي خطوه خطوه

1. افتح البرنامج اولا ثم اذهب الى جدول ادخال المواعيد Appointment Entry وقم بتضليله كاملا ثم احذف جميع البيانات التي به تماما اي اجعله فارغ

2. الآن لا يوجد لديك اي موعد او تاريخ في البرنامج ( بمعنى لو فتحت النموذج الرئيسي ستجده فارغ )

3. الآن اغلق قاعدة البيانات واخرج من الأكسيس نهائيا .

4. اذهب الى موقع الساعه في اسفل الشريط وغير اعدادات التاريخ بهذه الطريقة ( اتبع الخطوات حتى تصل الى تغيير التقويم )

يجب ان يكون تنسيق التاريخ لديك بهذه الطريقة

الآن اضغط موافق لتطبيق اعدادات تنسيق التاريخ ثم اخرج

5. افتح الأن البرنامج وقم بإدخال اي تاريخ تريده ( تاريخ اليوم - او - تاريخ امس - او تاريخ غدا ) او اي تاريخ يخطر على بالك وقم بعملية التجربه في ادخال موعد ثاني وانظر النتيجه

في انتظار ما اسفرت عنه تجاربكم النوويه

بالتوفيق

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

استاذة المنتدى ام عهود

ماشاء الله تبارك الله

بالفعل الكود يعمل الأن بشكل رائع واعتذر عن اي ازعاج او مجهود بذلتيه جزاك الله عنا خيرا

ولكن ما يزعج في الأمر هو اننا متعودين على التاريخ بهذه الصيغة DD/MM/YYYY من ناحيتي لقد حاولت العبث في اعدادات التاريخ في النظام ولكن لم يعمل الكود بالشكل المطلوب.

لا ادري ان كان من الممكن التغلب على هذه المشكلة

وان لم تجدي حل فالشكر موصول ويشهد الله بأنني كنت محرجاً منك لما قدمتيه وعلى تواصلك معي

وكما قال الاستاذ همام: بعودتك قد عادت الحياة للمنتدى، وهذا لا يعد انتقاصاً من شأن الاستاذة في المنتدى ففيهم الخير والبركة، ولكن تظل لك لمساتك الخاصة وافكارك العجيبة.

تقبلي تحياااااتي وتكل التقدير

اخي الفاضل

وأخير وبعد عناء اشتغل البرنامج لديك بالشكل المطلوب وهذا ما كنا نتمناه من البدايه

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

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

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

الخلاصة : هذا البرنامج بالذات لا يعمل مع اي تنسيق تاريخ عدى هذا التنسيق ( الشهر / اليوم / السنه ) ويتم تغييرها من تقويم الويندوز

ختاما لك مني خالص الشكر والتقدير

بالتوفيق