أبو وليد

بارك الله فيك

ماذا لو أن المهمة تأخذ أكثر من 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