(10-09-2023, 01:37)dsezgin demiş ki:

(09-09-2023, 19:04)adnnfrm demiş ki: hocam bu prosedür tüm kayıtları renklendirdi ama ben sadece içinde bulunduğum kayıtta boyama işlemi yapmasını istiyorum.

Visual Basic

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

Odaklı satırdaki, veritip  hanesindeki değere göre çerçeve renklendi.

Hocam fevkalede. Emeğinize sağlık. Tam istediğim gibi olmuş. Teşekkürler.

(10-09-2023, 01:37)dsezgin demiş ki:

(09-09-2023, 19:04)adnnfrm demiş ki: hocam bu prosedür tüm kayıtları renklendirdi ama ben sadece içinde bulunduğum kayıtta boyama işlemi yapmasını istiyorum.

Visual Basic

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

Odaklı satırdaki, veritip  hanesindeki değere göre çerçeve renklendi.

Hocam ilk etapta fark edemedim ama şöyle bir sıkıntı var.  Veri tipine ve seçili kayda göre işlem yapıyor fakat tüm kayıtlar için renklendirme yapıyor :/
Resim ilave ediyorum.

tablonuza Id , yani otomatik tamsayı yada başka benzersiz bir alan ekleyip aşağıdaki gibi düzenlerseniz sadece aktif kayıtta çalışır
Not: forma da Id için metin kutusu eklenmeli. eklenmese de olur ama siz yine de ekleyin

(10-09-2023, 23:21)halily demiş ki: tablonuza Id , yani otomatik tamsayı yada başka benzersiz bir alan ekleyip aşağıdaki gibi düzenlerseniz sadece aktif kayıtta çalışır
Not: forma da Id için metin kutusu eklenmeli. eklenmese de olur ama siz yine de ekleyin

Visual Basic

Option Compare Database
Dim Isrt As Long
 
Private Sub Ayrıntı_Paint()
      If Me.ID = Isrt Then Me.Controls("deger1").BorderColor = RGB(34, 177, 76) else Me.Controls("deger1").BorderColor = RGB(238, 236, 225)
End Sub
 
Private Sub Form_Current()
Isrt = Me.ID
Call Ayrıntı_Paint
End Sub

Maalesef hocam bu son yazdığınız kod hiç çalışmadı. ID diye otomatik sayı alanı oluşturup forma da ilave ettim ama maalesef olmadı :/

gifi incelerseniz orada seçili satırdaki değer1 kutusu yeşil çerçeve içine alınıyor

  aa.gif (Boyut: 82,79 KB / İndirilme: 32)

(12-09-2023, 18:01)halily demiş ki: gifi incelerseniz orada seçili satırdaki değer1 kutusu yeşil çerçeve içine alınıyor

hocam sizin gönderdiğiniz gife baktım satır özelinde renklendirme yapıyor ama veri tipini esas almıyor yani veri tipi 1 ise değer1 i , 2 ise değer2 yi, 3 ise değer3 ü renklendirmesi gerekiyordu :/ . Birde ben hiç çalışmadı kod. Eğer kod sizde belirttiğim şekle uygun çalışırsa dosyayı direkt ekleyebilir misiniz. Oradan inceleyeyim .

Saygılarımla