hazırlanan örnekte

Sub KutuRenk()

On Error Resume Next

  

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    For i = 0 To Me.Liste361.ListCount - 1

        Controls("Etiket" & Me.Liste361.ItemData(i)).BackColor = 12632256

        Controls("Etiket" & Me.Liste361.ItemData(i)).ForeColor = 0

    Next



End Sub

ve

Private Sub Form_Current()

Call KutuRenk

End Sub

kodları eklenmişti. Son örneğinizde bu kodlar yok.

---

ayrıca, renk değiştirme sonrası kodlarda hatalı değişiklikler yapılmış. Ekteki uygulamayı deneyiniz.

Ek Dosyalar

oda_kayıt_son.rar(52.91 KB)