exit sub
kodunun hemen üstüne imeino=""
kodu ekle. 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ı"
imeino = ""
Exit Sub