(12-09-2023, 21:25)halily demiş ki: kodu aşağıdaki gibi düzenleyip dener misiniz?

Visual Basic

Dim Isrt As Long
 
Private Sub Ayrıntı_Paint()
For x = 1 To 3
    Me.Controls("deger" & x).BorderColor = RGB(238, 236, 225)
Next
    If Me.ID = Isrt Then Me.Controls("deger" & Me.veritip).BorderColor = RGB(34, 177, 76) 'Else
End Sub
 
Private Sub Form_Current()
Isrt = Me.ID
    Call Ayrıntı_Paint
End Sub

Bu tamamdır hocam. elinize emeğinize sağlık. Şuan tam istediğim gibi oldu. 

rica ederim
iyi çalışmalar
Not: Aslında dsezgin hocamın kodlarını inceleyerek siz de yapabilirdiniz.
Önemli olan kodların mantığını anlamaya çalışmak, kodları anlamadığınız yerde lütfen mutlaka araştırın/sorun.
yoksa öğrenemezsiniz.