السلام عليكم ورحمة الله وبركاته
عندي فورم في البرنامج يحتوي على 20 خانة
قمت بعمل التالي على كل خانة على حدا
Private Sub Date_GotFocus()
Me.Date.BorderColor = RGB(51, 153, 255)
Me.Date.BackColor = RGB(242, 242, 242)
End Sub
Private Sub Date_LostFocus()
Me.Date.BorderColor = RGB(0, 0, 0)
Me.Date.BackColor = RGB(255, 255, 255)
End Sub
هل يمكن اختصار ما طبق على 20 خانة في كود واحد للفورم مثلا وليس لكل خانة منفردة؟