DCont (función)

Puede usar la función DCont para determinar el número de registros que se encuentran en un conjunto de registros especificado (un dominio). Use la función DCont en un módulo de Visual Basic para Aplicaciones (VBA), una macro, una expresión de consulta o un control calculado.

Por ejemplo, podría usar la función DCont en un módulo para devolver el número de registros de una tabla Pedidos que corresponden a pedidos realizados en una fecha determinada.

Sintaxis

DCont(expr, dominio* [, criterios] )

La sintaxis de la función DCont consta de los siguientes argumentos:

Argumento	Descripción
expresión	Obligatorio. Una expresión que identifica el campo para el que desea contar registros. Puede ser una expresión de cadena que identifica un campo en una tabla o consulta, o puede ser una expresión que realiza un cálculo de los datos de ese campo. En expr, puede incluir el nombre de un campo en una tabla, un control en un formulario, una constante o una función. Si expr incluye una función, puede estar integrada o definida por el usuario, pero no otra función de agregado de dominio o de agregado SQL.
dominio	Obligatorio. Una expresión de cadena que identifica el conjunto de registros que constituye el dominio. Puede ser un nombre de tabla o un nombre de consulta para una consulta que no requiere un parámetro.
criterio	Opcional. Expresión de cadena usada para restringir el rango de datos en el que se realiza la función DCont . Por ejemplo, los criterios suelen ser equivalentes a la cláusula WHERE en una expresión SQL, sin la palabra WHERE. Si se omiten los criterios , la función DCont evalúa la expresión en todo el dominio. Cualquier campo que se incluya en los criterios también debe ser un campo de dominio; de lo contrario, la función DCont devuelve un valor nulo.

Observaciones

Use la función DCont para contar el número de registros de un dominio cuando no necesite conocer sus valores particulares. Aunque el argumento expr puede realizar un cálculo en un campo, la función DCont simplemente cuenta el número de registros. El valor de cualquier cálculo realizado por expr no está disponible.

Use la función DCont en un control calculado cuando necesite especificar criterios para restringir el rango de datos en el que se realiza la función. Por ejemplo, para mostrar el número de pedidos que se van a enviar a California, establezca la propiedad ControlSource de un cuadro de texto en la siguiente expresión:

=DCount("[OrderID]", "Orders", "[ShipRegion] = 'CA'")

Si simplemente desea contar todos los registros del dominio sin especificar ninguna restricción, use la función Contar .

Propina La función Recuento se ha optimizado para acelerar el recuento de registros en las consultas. Use la función Contar en una expresión de consulta en lugar de la función DCont y establezca criterios opcionales para aplicar las restricciones en los resultados. Use la función DCont cuando deba contar los registros de un dominio desde un módulo de código o una macro, o en un control calculado.

Puede usar la función DCont para contar el número de registros que contienen un campo determinado que no está en el origen de registros en el que se basa el formulario o informe. Por ejemplo, podría mostrar el número de pedidos en la tabla Pedidos en un control calculado en un formulario basado en la tabla Productos.

La función DCont no cuenta los registros que contienen valores nulos en el campo al que hace referencia expr a menos que expr sea el carácter comodín asterisco (*). Si usa un asterisco, la función DCont calcula el número total de registros, incluidos los que contienen campos nulos . En el ejemplo siguiente se calcula el número de registros de una tabla Pedidos.

intX = DCount("*", "Orders")

Si dominio es una tabla con una clave principal, también puede contar el número total de registros estableciendo expr en el campo de clave principal, ya que nunca habrá un valor nulo en el campo de clave principal.

Si la expresión identifica varios campos, separe los nombres de campo con un operador de concatenación, ya sea un comercial (&) o el operador de suma (+). Si usa un comercial para separar los campos, la función DCont devuelve el número de registros que contienen datos en cualquiera de los campos enumerados. Si usa el operador de suma, la función DCont devuelve solo el número de registros que contienen datos en todos los campos enumerados. En el ejemplo siguiente se muestran los efectos de cada operador cuando se utiliza con un campo que contiene datos en todos los registros (ShipName) y un campo que no contiene datos (ShipRegion).

intW = DCount("[ShipName]", "Orders")
intX = DCount("[ShipRegion]", "Orders")
intY = DCount("[ShipName] + [ShipRegion]", "Orders")
intZ = DCount("[ShipName] & [ShipRegion]", "Orders")

Los cambios no guardados en los registros del dominio no se incluyen cuando se usa esta función. Si desea que la función DCont se base en los valores modificados, primero debe guardar los cambios haciendo clic en Guardar registro en Registros en la pestaña Datos , moviendo el foco a otro registro o utilizando el método Update .

Ejemplos de consulta

Expresión	Resultados
SELECT DCount("ProductID","ProductSales","Discount=0") AS Expr1 FROM ProductSales GROUP BY DCount("ProductID","ProductSales","Discount=0");	Devuelve el recuento de valores del campo "ProductID" de la tabla "ProductSales", donde el valor de "Descuento" es "0".
SELECT DCount("ProductID","ProductSales","DateofSale=Date()-1") AS YesterdaySale FROM ProductSales GROUP BY DCount("ProductID","ProductSales","DateofSale=Date()-1");	Devuelve el recuento de valores del campo "ProductID" de la tabla "ProductSales", donde "DateofSale" es un día anterior a la fecha actual.

Ejemplo VBA:

La siguiente función devuelve el número de pedidos enviados a un país o región especificados después de una fecha de envío especificada. El dominio es una tabla Pedidos.

Public Function OrdersCount _
    (ByVal strCountryRegion As String, _
    ByVal dteShipDate As Date) As Integer
    OrdersCount = DCount("[ShippedDate]", "Orders", _
        "[ShipCountryRegion] = '" & strCountryRegion & _
        "' AND [ShippedDate] > #" & dteShipDate & "#")
End Function

Para llamar a la función, use la siguiente línea de código en la ventana Inmediato:

:OrdersCount "UK", #1/1/96#