Şunu bir denermisiniz.
Kod:
Dim a, b, C, d As String
a = Me.txt_Ykartserino & "" & Me.Ykartseri
b = DLookup("[Ykartserino]", "KarneVER", "[Ykartserino]= " & Me.txt_Ykartserino)
C = DLookup("[Ykartseri]", "KarneVER", "[Ykartseri]=" & "'" & Me.Ykartseri & "'")
d = b & "" & C
If a = d Then
MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
Me.txt_Ykartserino.BackColor = vbGreen
Undo
DoCmd.GoToControl "Ykartserino"
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Exit_Komut40_Click:
Exit Sub
Err_Komut40_Click:
MsgBox Err.Description