Private Sub Komut672_Click()
Dim SD1, SD2, C As String
 
 
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
 
SD1 = Me.Evrak_Tarihi.Value
SD2 = Me.Plaka.Value
 
 
stLinkCriteria1 = "[Evrak Tarihi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Plaka]=" & "'" & SD2 & "'"
 
If DCount("*", "Arıza Kayıtları", " Evrak Tarihi='" & Me.Evrak_Tarihi & "'and Plaka='" & Me.Plaka & "'") > 0 Then
C = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " * Tarihli * " _
& SD2 & " * Plakalı*" _
& SD3 & " KAYIT DAHA ÖNCEDEN GİRİLMİŞ." _
& vbCr & vbCr & " KAYIT ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbNo Then 
Me.Undo
Exit Sub
Else
DoCmd.RunCommand acCmdSaveRecord
Msgbox "Kaydedildi"
End If
End Sub

Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String

Dim stLinkCriteria1, stLinkCriteria2 As String

Private Sub Komut672_Click()
Dim C As Variant
 
If DCount("*", "[Arıza Kayıtları]", "Plaka=" & [Plaka] & " And [Evrak Tarihi]=#" & Format(Me.[Evrak Tarihi], "mm\/dd\/yyyy") & "#") > 0 Then
    C = MsgBox("DiKKAT!...LİSTENİZDE...*" _
    & SD1 & " * Tarihli * " _
    & SD2 & " * Plakalı*" _
    & SD3 & " KAYIT DAHA ÖNCEDEN GİRİLMİŞ." _
    & vbCr & vbCr & " KAYIT ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
    If C = vbNo Then
        Me.Undo
        Exit Sub
    Else
        DoCmd.RunCommand acCmdSaveRecord
        MsgBox "Kaydedildi"
    End If
End If
End Sub