DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE TABLOADI.ALAN1 FROM TABLOADI WHERE (((TABLOADI.ALAN1)=[Formlar]![FORMADI]![LİSTEKUTUSU]));")
DoCmd.SetWarnings True
Me.LİSTEKUTUSU.Requery

Aşağıdaki kodu deneyiniz.