En el siguiente código falla al llegar a lo marcado en azul cuando ya ha hecho lo mismo con otras tablas en dos lineas anteriores:

Sub ingredientes()
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete...