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.