أبو وليد

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

اذا السؤال مو واضح أو مطلوب مني شيء للمساعدة الرجاء التوضيح حتى أذا مستحيل الرجاء أخباري

لدي جدول بيانات الاسم ------------ تاريخ المهمة ------------------- مكان المهمة صالح-------------1/2/1427--------------------- جده صالح-------------2/2/1427--------------------- جده صالح-------------3/2/1427--------------------- جده صالح-------------1/3/1427--------------------- جده نلاحظ هنا أنه كان في مهمة من تاريخ 1/2/1427إلى3/2/1427 وفي مهمة أخرى من 1/3/1427 اريد الاستعلام يكون بهذا الشكل من تاريخ---------إلى تاريخ------------الاسم ----------- مكان المهمة --------عدد الايام 1/2/1427------3/2/1427------صالح-----------------جده------------------3 1/3/1427------1/3/1427------صالح-----------------جده------------------1 حاولت كثيرا ولم استطع بارك الله فيكم

الف شكر لقد نجح الكود الاول مع تعديل بسيط

الف شكر لك لم ينجح

لدي نموذج به نموذج فرعي في النموذج الاساسي يوجد مربع نص به تاريخ اليوم ما اريده اذا كان تاريخ السجل الموجود في النموذج الاساسي بتاريخ سابق أي قبل تاريخ اليوم أن يمنع التعديل في سجلات النموذج الفرعي بارك الله فيكم

بارك الله فيك

=DCount("[ID]";"Mainin";"[Date]= Between datestart And dateend ") وفقكم الله

بارك الله فيكما ونفع بكما ولكما

الصوت سريع هل استطيع تغييره أو تقليل السرعة

بارك الله فيكم المشلكة من الصوت في جهازي

لم يعمل الصوت معي رغم عدم ظهور أي رسالة خطأ الرجاء المساعدة فأنا أحتاجه ضروري

q = "select * from ask where rou = 0;" اريد أن أضيف له شرطين هما sp=2 rr=121 وفقكم الله

بارك الله فيك ورزقك وعافك من كل سوء

بارك الله فيك

اريد ان اعد مجموعة سجلات =DCount("[xx]";"tmam";"[القسم]=raf") اريد ان اضيف لها شرط ليضاف لها وهو ان تكون xx صواب

لا اريدها ان تظهر في الطباعة واريد مكانها اذا كانت صواب 1 واذا خطأ تكون الخلية خالية الشرح في المرفق تم اضافة الملف فى الرد التالي

ياليت مفتوح المصدر لتعم الفائدة وفقك الله

بارك الله فيك الرجاء ارساله الى zsbr2002@yahoo.com أو zsbr2002@hotmail.com

وانا في انتظارك عزيزي

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

هذا الكود لعمل ذلك ولكن بشرط ان يكون مربع النص في النموذج الرئيسي ما هو التغيير ليعمل في نموذج فرعي 'Test if control contains text If IsNull(Screen.ActiveControl) = False Then 'convert text to Upper Case Screen.ActiveControl = StrConv(Screen.ActiveControl, vbUpperCase) End If

ارجوا ان تضع نسخه منه لتعم الفائدة

بارك الله فيك اخ خضر ونفع الله بك اللهم ارزقه ووفقه دنيا وآخره

بارك الله فيكم جميعا اخي أبو هادي لقد حذفت جزء من الكود ولم يعد النموذج يزحف If UBound(GrpCtl) = -1 Then GoTo ExitSub For Count = 1 To UBound(GrpCtl) With GrpCtl(Count) .Left = eMe.Width - (GrpLeft(Count) + GrpWidth(Count)) .Width = GrpWidth(Count) End With eMe.Width = FormWidth Next Count