Kodu aşağıdaki ile değiştir.

Private Sub Komut13_Click()



If IsNull(Metin7) Or Me.Metin7 = "" Then

MsgBox "YENİ ÜRÜN ADINI Girmediniz.", vbCritical, "ERZURUM OTOMASYON"

Me.Metin7.SetFocus

Exit Sub

End If



If Me.Metin7 = Dlookup ("[URUN_ADI]", "T_URUN", "[URUN_ADI]='" & Me.Metin7 & "'") Then

MsgBox Me.Metin7 & " -- İSİMLİ ÜRÜN DAHA ÖNCE KAYDEDİLMİŞTİR..", vbCritical, "ERZURUM OTOMASYON"

Me.Metin7.SetFocus

Me.Metin7 = ""

Else

If Me.Dirty Then

DoCmd.RunCommand acCmdSaveRecord

End If



DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO T_URUN ([URUN_ADI]) VALUES ('" & Me.Metin7.Value & "')"

DoCmd.SetWarnings True

MsgBox Metin7 & " -- İSİMLİ YENİ ÜRÜN KAYDI GERÇEKLEŞTİ TEŞEKKÜRLER..", vbOKOnly, "ERZURUM OTOMASYON"

Me.URUNADI.Requery

Me.Refresh

Me.Requery

Me.gecici = ""

Me.Metin7 = ""

Me.URUNADI.SetFocus

Me.Liste22.Requery

End If

End Sub