DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tablo1 LEFT JOIN Tablo2 ON Tablo1.[Adı] = Tablo2.[cinsi] SET Tablo1.durum = 'İPTAL' WHERE (((Tablo2.cinsi) Is Null));"
DoCmd.SetWarnings True
Ayrıca eklediğiniz örnekteki tablo yapısı hatalı, tablo2ye otomatik sayı olan alan ekleyip bu alanı birincil anahtar yapmalısınız.
Tablo1'e veri girişini nasıl yaptığınızı bilmediğim için bu tablo ile ilgili sıkıntıyı yazmadım.