Kod:
Dim A As String
A = Replace(ARACPLAKASI, " ", "")
Me.ARACPLAKASI = A
If ARACPLAKASI = DLookup("[araç plakası]", "[tblSakıncalıAraç]", "[araç plakası]=forms![frmKayit]!ARACPLAKASI") Then
Me.ARACPLAKASI.BackColor = 255
MsgBox " BU ARAÇ PLAKASI SAKINCALIDIR"
Else
End If
Kod:
Private Sub Komut8_Click()
On Error GoTo Err_Komut8_Click
Me.ARACPLAKASI.BackColor = -2147483643
DoCmd.GoToRecord , , acNewRec
Exit_Komut8_Click:
Exit Sub
Err_Komut8_Click:
MsgBox Err.Description
Resume Exit_Komut8_Click
End Sub