اخي الكريم ياليت لو ترفع ملف يكون افضل
جرب هذا
Me.date = DateSerial(Year(date), Month(date) - 3, 0)
Me.date = DateSerial(Year(date), Month(snddate) + 3, 0)
Me.تاريخ اليوم = DateSerial(Year(تاريخ اليوم), Month(تاريخ اليوم) - 3, 0)
Me.تاريخ اليوم = DateSerial(Year(تاريخ اليوم), Month(تاريخ اليوم) + 3, 0)
الاول 3 اشهر
الثاني سته اشهر