الأخوة الكرام
لله الحمد تمكنت من إيجاد الحل ، وأضعه بين أيديكم للاستفادة منه
كود الربع الأول:
Me.Text2 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 4, 0)
كود الربع الثاني:
Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 1 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 1 + 4, 0)
كود الربع الثالث:
Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 2 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 2 + 4, 0)
كود الربع الأخير:
Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 3 + 1, 1)
Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 3 + 4, 0)