Alt formdaki "engust_word" isimli açılan kutunun güncelleştirme sonrasında olayındaki kodu iptal et.

Alt formun güncelleştirme sonrasında olayına aşağıdaki kodu ekle.

Private Sub Form_AfterUpdate()



Dim GSorgum As String

Dim dbs As DAO.Database

Dim rs As DAO.Recordset



GSorgum = "SELECT t_tur.*, t_engust.engust_oto, t_engust.engust_word, [engust_oto] & [engust_word] & [tur_bagana] AS aranan FROM t_tur INNER JOIN t_engust ON t_tur.tur_bag = t_engust.engust_oto;"



Set dbs = CurrentDb



Set rs = dbs.OpenRecordset(GSorgum, dbOpenDynaset)



rs.FindFirst "[aranan] = '" & eng_oto & engust_word & eng_bag & "'"



    If rs.NoMatch Then

        MsgBox (engust_word & "Yok, eklenecek")

        rs.AddNew

        rs!tur_tip = Me.eng_type

        rs!tur_bag = Me.eng_oto

        rs!tur_bagana = Me.eng_bag

        rs!tur_tarih = Forms!f_turkce!tur_tarih

        rs.Update

    Else

    

        MsgBox (rs!engust_word & " var, yenilenecek")

        rs.Edit

        rs!tur_tip = Me.eng_type

        rs!tur_bag = Me.eng_oto

        rs!tur_bagana = Me.eng_bag

        rs!tur_tarih = Forms!f_turkce!tur_tarih

        rs.Update

    End If



        rs.Close

        Set rs = Nothing

        Set dbs = Nothing



End Sub