Enumerable all

jrobertson (James Robertson) — Fri, 15 Aug 2008 15:39:12 GMT

Source: Enumerating Enumerable: Enumerable#all? [globalnerdy.com]

Enumerable#all? and Arrays

When used on an array and a block is provided, all? passes each item to the block. If the block never returns false or nil during this process, all? returns true; otherwise, it returns false.



# "feta" is the shortest-named cheese in this list

cheeses = ["feta", "cheddar", "stilton", "camembert", "mozzarella", "Fromage de Montagne de Savoie"]



cheeses.all? {|cheese| cheese.length >= 4}

=> true



cheeses.all? {|cheese| cheese.length >= 5}

=> false

Close all forms in Access

melissa68 (Melissa ) — Thu, 26 Apr 2007 17:56:19 GMT

Sometimes, it's necessary to close all forms in a single procedure:



Function CloseAllForms()



'It will close all forms before opening the new form (if required)



Dim obj As Object

Dim strName As String



For Each obj In Application.CurrentProject.AllForms

DoCmd.Close acForm, obj.name, acSaveYes

Next obj



End Function

Close all forms - except one particular screen:



Function CloseAllForms()





Dim obj As Object

Dim strName As String



For Each obj In Application.CurrentProject.AllForms



If obj.Name <> "Your Form" Then 



DoCmd.Close acForm, obj.name, acSaveYes



End if 

Next obj



End Function

DZone Snippets: all code

Enumerable all

Close all forms in Access