imeino açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyebilir misin?

Private Sub imeino_AfterUpdate()

Dim VarMi, StoktaMi As Integer

Metin34 = Me.imeino.Column(1)

VarMi = Dlookup ([imeino], "imeiler")

StoktaMi = Nz(DLookup("[imeiid]", "Stok", "[imeiid]=" & [imeino]), 0)



    If StoktaMi <> 0 Then

       MsgBox "" & Me.imeino.Column(1) & " imei numaralı " & Dlookup ("[markaadi]", "markalar", "[markaid]=" & Dlookup ("[telefonid]", "imeiler", "[imeino]='" & Metin34 & "'")) & " marka telefon stokta olduğundan tekrar satın alınamaz", vbCritical, "Satın Alma Uyarısı"

        Exit Sub

    End If

    If VarMi <> 0 And Dlookup ("[telefonid]", "imeiler", "[imeino]='" & Metin34 & "'") <> 0 Then

        MsgBox ("Bu imei numarası daha önce kaydedilmiş, veriler aktarılacak")

        Me.markaadi = Me.imeino.Column(3)

        Me.modeladi = Me.imeino.Column(4)

    Else

        Me.markaadi.Value = ""

        Me.modeladi.Value = ""

    End If

End Sub