Sub KutuRenk()
On Error Resume Next
Dim i As Integer
Dim x As Date
x = Date
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
For i = 0 To Me.Liste363.ListCount - 1
Controls("Etiket" & Me.Liste363.ItemData(i)).BackColor = 213
Controls("Etiket" & Me.Liste363.ItemData(i)).ForeColor = 16777215
If x = Me.Liste363.Column(1, (i)) Then
Controls("Etiket" & Me.Liste363.ItemData(i)).BackColor = vbGreen
Controls("Etiket" & Me.Liste363.ItemData(i)).ForeColor = 16777215
End If
Next
End Sub
Bölümü bende hata veriyordu kodu bu bölümü silip kontrol ettim çalışıyor. Daha sonra ilk örneğine kodu ekledim, kendi makinende bir kontrol edersin.