Private Sub txt_serino_AfterUpdate()
kodunu iptal edip "Komut7" nin tıklandğında olayındaki kodu aşağıdaki ile değiştiriniz.
Private Sub Komut7_Click()
On Error GoTo Err_Komut7_Click
Dim a, b, c, d As String
a = Me.txt_serino & "" & Me.seri
b = Dlookup ("[serino]", "Tablo1", "[serino]= " & Me.txt_serino)
c = Dlookup ("[seri]", "Tablo1", "[seri]=" & "'" & Me.seri & "'")
d = b & "" & c
If a = d Then
MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Exit_Komut7_Click:
Exit Sub
Err_Komut7_Click:
MsgBox Err.Description
Resume Exit_Komut7_Click
End Sub