bumb قام بنشر يوليو 10, 2011 قام بنشر يوليو 10, 2011 السلام عليكم 1 - لدي قاعدة بيانات تسجيل مواعيد العملاء والمطلوب هو جعل حقل تاريخ الإستلام [DateReceipt] يقبل فقط 30 عميل بعد ذلك يطلب مني تحديد تاريخ اخر بودي ان التاريخ يكون تلقائي لكن هناك مشكلة الاجازات والخميس والجمعه الطلب الثاني وهو اني ارجو من الأخوه اللي يقومون بتقديم يد المساعده ان يتمو جميلهم ويقدمو شرح للكود حتى يكون فهم الكود اقل غموضاً 2 - كيف اظهر العملاء الذين تواريخ استلامهم في هذا الاسبوع اشكركم على كل ماتقدموه وأسأل الله ان يجعل صنيعكم هذا في ميزان حسناتكم قاعدة بيانات1.zip
أبو آدم قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 أخي العزيز اليك حل الجزء الاول من (1) و المتعلق بقبول 30 قيد لتاريخ يوم محدد ( تم تعديل الكود) Private Sub DateReceipt_BeforeUpdate(Cancel As Integer) If DCount("*", "Details", "[DateReceipt] =#" & Me.DateReceipt & "#") > 2 Then MsgBox "The limit for records in this day has been reached , pick a new day", vbOKOnly Cancel = True Me!DateReceipt.Undo End If End Sub ضع الكود في حدث قبل التحديث لحقل التاريخ الخاضع للرقابة ، وسيحقق لك النتيجة التي تريدها باذن الله والبقية تأتي ,, ولكن اعذرني كون القاعدة التي ارفقتها لا تساعد ....
أبو آدم قام بنشر يوليو 11, 2011 قام بنشر يوليو 11, 2011 أخي العزيز أما في حل الجزء الثاني من (1) فالامر لا يقتصر على ايام الخميس و الجمعة بل يصل الى ايام العطل الرسمية و الاعياد لذا و اختصارا للمستجدات التي ستواجهك قم بانشاء جدول للعطل الرسمية حسب التالي: Table: Holidays ----------------------- Field Name: Description Data Type: Text Field Name: HoliDate Date Type: Date/Time انشئ وحدة نمطية جديدة وانسخ اليها ما يلي: Function OfficeClosed(TheDate) As Integer OfficeClosed = False ' Test for Thursday or Friday. If Weekday(TheDate) = 5 Or Weekday(TheDate) = 6 Then OfficeClosed = True ' Test for Holiday. ElseIf Not IsNull(DLookup("HoliDate", "Holidays", "[HoliDate]=#" _ & TheDate & "#")) Then OfficeClosed = True End If End Function وأعد ارفاق المثال للتطبيق و التعديل والبقية تأتي .... ....
bumb قام بنشر يوليو 11, 2011 الكاتب قام بنشر يوليو 11, 2011 السلام عليكم اخي العزيز قمت بعمل ماطلبت ولكن للمعلوميه لم يعمل كود تحديد عدد العملاء كما ينبغي تحياتي لك ألمواعيد.zip
أبو آدم قام بنشر يوليو 12, 2011 قام بنشر يوليو 12, 2011 أخي العزيز سبق ان اشرت ان الكود بحاجة لتعديل وقد تم تعديله وتجربته ويعمل بشكل ممتاز يمكنك تعديل الرقم كما تريد من 2 الى 30 او اي عدد آخر والبقية تأتي ....
أبو آدم قام بنشر يوليو 12, 2011 قام بنشر يوليو 12, 2011 أخي العزيز في حدث قبل التحديث لحقل التاريخ الخاضع للرقابة يصبح الكود Private Sub DateReceipt_BeforeUpdate(Cancel As Integer) If DCount("*", "Details", "[DateReceipt] =#" & Me.DateReceipt & "#") > 30 Then MsgBox "The limit for records in this day has been reached , pick a new day", vbOKOnly Cancel = True Me!DateReceipt.Undo End If If OfficeClosed(Me.DateReceipt) = True Then MsgBox "Holiday , Go to the next day", vbOKOnly Cancel = True Me!DateReceipt.Undo End If End Sub هذا الكود لا يقبل اضافة اكثر من 30 موعد لليوم المحدد ولا يقبل اضافة مواعيد لايام العطل الاسبوعية الخميس و الجمعة ولا العطل الرسمية المثبتة في جدول العطل. هنا يتم تعديل ايام العطل الاسبوعية في الوحدة النمطية كما نشاء وقد عدلتها لتصبح 5 الخميس و 6 الجمعة (المشاركة 5 أعلاه) جرب ووافني بالنتيجة ....
أبو آدم قام بنشر يوليو 12, 2011 قام بنشر يوليو 12, 2011 أخي العزيز لم يعمل الكود كما ينبغي ؟؟؟؟؟ !!!!! أين المشكلة؟؟؟
bumb قام بنشر يوليو 13, 2011 الكاتب قام بنشر يوليو 13, 2011 (معدل) الجزأ الأول من الكود لا يعمل (يسمح بالتسجيل وكأن لم يكن هناك كو) الجزأ الثاني تظهر رسالة خطأعند if officeClosed البروه هي ورقه اثبات زكاة الماشيه ويصرف بموجبها اعلاف للماشيه ممكن ترفق المثال بعد التعديل حتى ارى اين يكون خطئي تم تعديل يوليو 13, 2011 بواسطه bumb
أبو آدم قام بنشر يوليو 13, 2011 قام بنشر يوليو 13, 2011 أخي العزيز تفضل تطبيقك بعد التعديل مجرب على جهازين و اصدارين من ِِAccess 2003 NA_ControlDates.rar
bumb قام بنشر يوليو 14, 2011 الكاتب قام بنشر يوليو 14, 2011 التاريخ عندي في الإعدادات هجري ام القرى وكذلك في الأكسس استخدام التقويم الهجري هل هذا هو السبب في ان الكود لا يعمل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.