Sayın atoz112, aşağıdaki kod'ta, dbFailOnError renkli seçiyor.

Private Sub cmb_adisoyadi_NotInList(NewData As String, Response As Integer)
Dim strSQL As String, x As Integer
Dim K1 As String
x = MsgBox("Girdiginiz Isim Listede Yok! Eklensin mi ?", 52, "S O R U")
If x = vbYes Then
strSQL = "Insert Into isim_listesi ([adi_soyadi]) values ('" & NewData & "')"
MsgBox "Kaydetme Islemi Tamamlandi.", 64, "Kaydedildi"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub