كوماندير

السلام عليكم ورحمة الله وبركاته مساء الخير لدي اشكال في استدعاء كود يظهر نموذج انتظار (يفيد المستخدم بالانتظار ريثما تنتهي عملية الالحاق) . بالمرفق نموذج DatesNoFrm لالحاق سجلات عام كامل وتحت حدذ نقر على زر امر اضافة سجلات عامل كامل حاولت ادراج كود استدعاء نموذج الانتظار ولكن سبب بطإ شديدا في تنفيذ الاستعلام . هل ممكن مساعدتي في حل هذا الاشكال . اليكم المرفق : FullYearDatesH.accdb.rar

اشكرك اخي كثيرا لكن هل من حل لذلك في الكود ( الكود اعلاه ) ؟

للرفع للاهمية .....

السلام عليكم : اخواني الداله اعلاه تعمل جيدا ولكن : عندما يكون مربع النص المراد استخراج الرقم منه ( لايحتوي على ارقام ) فالدالة تعيد فراغ . وهذا جيد لكن عندما اريد استخدام الحقل الناتج في تعبيرات اخرى يعطي #خطأ هل من الممكن طريقة لحل هذا الاشكال . اليكم مثال بسيط انظر للاستعلام Q2 separatMyNum.rar

اخي بارك الله فيك اشكر تفاعلك ولكن لم تغب عني الفكرة ولكن اردت توسيط قيم حقول مربعات النص كما بالصورة الثانية ايضا عندما نفذت طريقتك ظهرت لي فراغات بين مربعات النص وانا لا اريدها اريدها بالضبط كما بالصورة الثانية بالضبط .... باختصار شديد اريد ان يكون ارتفاع جميع مربعات النص يساوي ارتفاع CustDetails (Memo) وتوسيط قيم مربعات النص كما بالصورة الثانية .

السلام عليكم ورحمة الله وبركاته : لدي مشكلة بسيطة في اعداد تقرير جدولي حيث لدي في جدول اربعة حقول OrderID (Long) , OrderDate (Date/Time), CustmName (Text) , CustDetails (Memo) طبعا المطلوب هو جعل كل الحقول تتمدد بنفس ارتفاع الحقل CustDetails وللتوضيح اكثر ظهر لدي شكل التقرير عندما صممته بالشكل هذا : والمطلوب هو ان يكون بهذا الشكل : هل هذا ممكنا وكيف ؟

السلام عليكم ورحمة الله وبركاته لدي استفسار عن طريقة لتثبيت ايام الشهر من 1 حتى 31 كعناوين اعمدة في استعلام جدولي لاستخدامها في تقرير . انشأت الاستعلام ولكن اريد كل الايام من 1 الى 31 وليست فقط الايام فقط الموجودة بتاريخ الطلب . اليكم المرفق CrosstabRpt.rar

?????????? في انتظار الاجابة ارجو بذل جهد من جميع الاعضاء لأهمية الموضوع .

السلام عليكم ورحمة الله وبركاته اعزائي اعضاء المنتدى لدي نموذج فرعي به مربع تحرير وسرد يختار بعض الاصناف . المطلوب هو : جمع قيم حقل MyResult للاصناف الثلاثة :(Bb,Dd,Ee) مجموع حقل MyResult للاصناف الثلاثة يجب ان يكون 100 ، اذا كان اقل من 100 او اكثر من 100 رسالة تنبية تظهر للمستخدم تنبهه بأن مجموع حقل النتيجة للاصناف الثلاثة لايساوي 100 هل هو متأكد من ذلك ام لا ؟ اذا نعم تستمر العملية اذا لا يعاد ادخال نتائج الاصناف المذكورة . السؤال : ماهو الكود المناسب لعمل ذلك وكيف ؟ وتحت أي حدث يمكن عمله ، بحيث ان : الاصناف الثلاثة لايمكن طلب احدها فقط فهي اما تطلب معا واما لا ولايهم ترتيب ادخالهم فقد يتم البدء بادراج Ee وقد يتم البدء بادراخ صنف غيره اولا . اليكم المرفق ارجو المساعدة : TotalSomeItems.rar

وجدتها من خلال الكود التالي : For i = 0 To DeleteList.ListCount - 1 If DeleteList.Selected(i) = True Then strName = strName & vbCrLf & _ DeleteList.Column(1, i) & vbCrLf & _ MyAndLT End If Next strName = Left(strName, Len(strName) - Len(MyAndLT)) If Me.DeleteList.ItemsSelected.Count = 1 Then If MsgBox("ÇäÊ ÈÕÏÏ ÍÐÝ ÇáãæÙÝ " & vbCrLf & _ strName & vbCrLf & _ "åá ÇäÊ ãÊÃßÏ ãä Çäß ÊÑíÏ ÍÐÝ åÐÇ ÇáãæÙÝ ?", vbCrLf & _ vbYesNo + vbMsgBoxRtlReading + vbMsgBoxRight + vbQuestion, "ãÍÇæáÉ ÍÐÝ ãæÙÝ ") = vbNo Then Exit Sub If Me.DeleteList.ItemsSelected.Count > 1 Then If MsgBox("ÇäÊ ÈÕÏÏ ÍÐÝ ÇáãæÙÝíä " & vbCrLf & _ strName & vbCrLf & _ "åá ÇäÊ ãÊÃßÏ ãä Çäß ÊÑíÏ ÍÐÝ åÄáÇÁÇáãæÙÝ ?", vbCrLf & _ vbYesNo + vbMsgBoxRtlReading + vbMsgBoxRight + vbQuestion, "ãÍÇæáÉ ÍÐÝ ÇßËÑ ãä ãæÙÝ ") = vbNo Then Exit Sub strSQL = "DELETE FROM tblShiftEmploDetils WHERE DetailID IN (" & strSet & ")" CurrentDb.Execute strSQL

جزئية بسيطة بقيت وهي كيفية التعامل مع عدد الموظفين بحيث : لوكان عدد الموظفين المختارين من ال DeleteList موظف واحد يكون نص الرسالة : انت بصدد حذف الموظف فلان هل انت متأكد .؟ ولو كان عدد الموظفين المختارين اكثر من واحد يتغير نصها الى : انت بصدد حذف الموظفين فلان و فلان و فلان هل انت متأكد ؟

شكرا جزيلا اخي صالح حمادي هو المطلوب بالضبط .

السلام عليكم ورحمة الله وبركاته اعزائي الكرام : بالمرفق لدي نموذج ادخال ايراد يومي وتوزيعه حسب الموظفين العاملين بالشفت بالتساوي . عند اختيار موظف او اكثر من DeleteList لحذفهم لأي سبب والضغط على زر امر حذف موظف اريد ان يتم ادراج اسم الموظف او الموظفين المراد حذفهم من هذا الشفت وان تظهر الرسالة كما بالشكل : لنفترض اننا حددنا من DeleteList ثلاثة موظفين انت بصدد حذف ( اسم الموظف الاول و اسم الموظف الثاني و اسم الموظف الثالث) هل انت متأكد والا اعد الاختيار . بحيث اسم كل موظف بسطر .... وهكذا اليكم المرفق : EmploeeCounter.rar

الف الف شكر اخي هو المطلوب بعينه .

المطلوب بالضبط: هو معرفة عدد الطلبات لكل يوم ومنع المستخدم من اضافة طلبين لكل يوم ، بحيث لو حاول ادخال سجل بتاريخ يوم ما ، قد تم ادخال سجلين لهذا اليوم ان يتم تنبيهه برسالة تمنعه من ذلك . طبعا لدينا الاستعلامين الاول والثاني ، في الثاني وعن طريق استخدام الاستعلامات الفرعية والجدول الوهمي تم معرفة عدد السجلات لكن مشكلة هذا الاستعلام انني لا استطيع وضعه كمصدر سجلات هذا النموذج لانه لايسمح بالاضافة . حاولت استخدام دالة Dcount في الاول بحيث يسمح لي بالاضافة فلم اوفق لتشغيل الدالة بالطريقة الصحيحة ....... اليكم المرفق : DcountWithDatesExample.rar

السلام عليكم ورحمة الله وبركاته اعزائي الكرام : لدي استعلام يستمد حقوله من جدول tblOrders المطلوب هو انشاء حقل محسوب بنفس الاستعلام يحسب كم عدد السجلات لكل تاريخ استخدمت الصيغة التالية : OrdersCountPerDay: DCount("*";"tblOrders";"[OrderDate]= #" & [OrderDate] & "#") ولم تعمل معي جيدا ماهو الحل برأيكم

الذي اردته ان يعمل الكود بعد تعديل الحقل مباشرة (بحيث يكون كودا واحد لكل النموذج بدلا عن تكرار نفس الكود لكل حقل ...تحت حدث عند وجود شوائب .....)وليس عند الانتقال لسجل آخر ... وليس من المهم اظهار القيم بعد التعديل وقبله بالرساله . ثم ماذا لو استخدمنا : If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then ومع هذا فهناك اخطأ تظهر وثقل شديد ... وهذا المرفق Alertmsg.rar

If Val(x) <> Val(ctl.OldValue) Then حيث ينتقل المؤشر بعد تعديل اي حقل منضم الى ذلك الحقل الغير منضم وقد ذكرت في بداية مشاركتي ان هناك مربع نص غير منضم بالنموذج ....

عند استخدام الكود اعطى الرسالة التالية : run time error 94 invalid use of null

ماهي المتغيرات المفترض الاعلان عنها في الكود وكيف ؟ فقد ظهرت لي رسالة "Variable not defined"

بصراحة لا ادري بماذا اجيب اخ جعفر ولكن اذا كانت لديك قاعدة بيانات وفيها تقارير تجيميعية من عدة جداول وتجد بطء في فتح هذه التقارير جرب الكود كما ذكرت لك وسترى النتيجة . ملحوظه : لدي نموذج مستمر استخدمه لعرض بيانات تجميعية من عدرة استعلامات اجد بطء في عملية Requiery له استخدمت الكود وظهر لي نموذج الانتظار حتى انتهت عملية ال Requery واختفى نموذج الانتظار وهو ما اريده .....

السلام عليكم ورحمة الله وبركاته اعزائي الكرام : لدي نموذج مفرد لتكويد اصناف معينة فيه المعطيات التالية : يحتوي على مجموعة مربعات نص منضمه يحتوي على مجموعة من مربعات التحرير والسرد المنضمة ايضا يحتوي على زر (نعم / لا ) يحتوي على مربع نص غير منظم يحتوي على مربع قائمة غير منضم . المطلوب هو : عند تغيير قيمة اي حقل ( منضم فقط ) ان تظهر للمستخدم رسالة تفيده بتغيير قيمة الحقل ( واعلامه بأسم الحقل ) وتخييره هل يود التغيير ام لا . طبعا لا اريد هذه الرسالة ان تظهر عندما يكون هناك سجلا جديدا . طبعا ياريت لو كان الكود واحد للنموذج ككل . اي لايكون كود لكل حقل مستقلا . هل هذا ممكنا وكيف ؟

بعد البحث وصدفة وجدت الحل في قاعدة بيانات عمل نسخه احتياطية من احد المواقع الاجنبية طبعا قمت بتغيير الفاصل الزمني لعداد الوقت من 10000 الى 1000 وكانت النتيجة افضل كما قمت بنسخ الكود الخاص بهذا النموذج من قاعدة البيانات المرفقة كما يلي : Public Function LoadData(strData As String) DoCmd.OpenForm "frmLoading" Forms!frmloading!Label2.Caption = strData Pause 0.1 End Function Public Function Pause(NumberOfSeconds As Variant) On Error GoTo Err_Pause Dim PauseTime As Variant, Start As Variant PauseTime = NumberOfSeconds Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Exit_Pause: Exit Function Err_Pause: MsgBox Err.Description, , " Predator Software Backup Utility" Resume Exit_Pause End Function كما ان النموذج يكون به الكود التالي : Private Sub Form_Load() On Error GoTo Err_Form_Load DoCmd.MoveSize , 4700 Exit_Form_Load: Exit Sub Err_Form_Load: MsgBox Err.Description, , " Predator Software Backup Utility" Resume Exit_Form_Load End Sub Private Sub Form_Timer() On Error GoTo Err_Form_Timer DoCmd.Close acForm, Me.Name Exit_Form_Timer: Exit Sub Err_Form_Timer: MsgBox Err.Description, , " Predator Software Backup Utility" Resume Exit_Form_Timer End Sub كما استخدمت الكود التالي عند ضغط زر امر فتح التقرير من النموذج كما يلي : Call LoadData("PLEASE WAIT ........") docmd.openform"MyFrm" فقط وكانت النتيجة روعه اليكم المرفق وانظروا لنموذج الانتظار : BackUp Utility.zip

شكرا جزيلا اخي حسام هو المطلوب بعينه حُلت المشكلة

السلام عليكم اعزائي الكرام لدي جدول به الرقم واليوم اريد ادراج من قائمة منسدلة اختيار العام ونقر زر ويتم ادراج سجلات عام كامل بدأً ب 1 يناير وانتهائا ب 31 ديسمبر اليكم المرفق اود التعديل عليه : FullYearDates.accdb.rar