فتح تقرير عن طريق فورم مع نقل القيم الخاصة به

[طاهر اوفيسنا]

السلام عليكم اساتذتي الكرام

تكملة للموضوع الفارط

من هنا

المطلوب مساعدة في فتح تقرير 10 عند اختيار "تصريح ابوي لقاصر" عن طريق الكود وبدون مصدر سجلات ويخص الابن القاصر فقط اي "العمر اقل من 18 سنة"

 

Database22.rar

[ابوخليل]

ولا اجمل من هذا الإيضاح

تفضل

Database23.rar

[طاهر اوفيسنا]

9 دقائق مضت, ابوخليل said:

ولا اجمل من هذا الإيضاح

اجمل ماصنعت استاذي العزيز سلمت اناملك وبوركت وجعلها الله في ميزان حسناتك

[حميد المعزبي]

تسلم يا استاذنا الفالي

[طاهر اوفيسنا]

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

تم تعديل منذ 14 ساعات بواسطه طاهر اوفيسنا

[ابوخليل]

الحروف العربية هي السبب في صعوبة التعديل

تفضل تم الاصلاح

Database24.rar

[طاهر اوفيسنا]

4 ساعات مضت, ابوخليل said:

تفضل تم الاصلاح

شكرا استاذ وهو  كذلك

استاذ أمل ان يتسع صدرك لي ويكون اخر سؤال ويتغلق الموضوع

عملت مربع نص مخفي وسميته Jour بقيمة افتراصية 30

حاولت وضع تاريخ في C7  على ان يظهر تاريخ مباشرة في  C8 بزيادة 30 يوم

مثلا   :  2025/10/13 + 30 يوم = 2025/11/03 

فلم افلح ياريت توضيح اين الخطأ

Private Sub C7_Click()
    Dim Jour  As Integer
Jour  = 30
       Me.C7 = DateSerial(Year(Me.C7), Month(Me.C7), 1)
        C8 = DateAdd("m", Jour , [C7] - 1)
        Me.C8 = DateSerial(Year(Me.C8), Month(Me.C8) + 1, 0)
'     Me.C8.Value = C7.Value + 30

End Sub

[ابوخليل]

منذ ساعه, طاهر اوفيسنا said:

استاذ أمل ان يتسع صدرك لي ويكون اخر سؤال ويتغلق الموضوع

 

خذ راحتك .. اسأل كما يحلو لك ..

في الموضوع السابق رأيت انه تجاوز 3 صفحات .. لذا احببت البدء بموضوع وعنوان جديد .. فالعناوين الجديدة المختلفة مسألة ايجابية

بالنسبة لطلبك هذا فالامر اسهل مما تتصور ولست بحاجة الى انشاء حقول واكواد بمتغيرات وانما هو سطر واحد بسيط :

Private Sub C7_AfterUpdate()
C8 = DateAdd("d", 30, C7)
End Sub

الرقم 30 هو عدد الايام (القيمة) التي ترغب باضافتها

يمكنك وضع هذه القيمة في حقل في احد الجداول الموجودة ذات السجل الوحيد ويتم جلبها ( على اعتبار انها قد تتغير هذه المدة (القيمة) )

Database25.rar