Mostrar tudo

Ocultar tudo

Pode utilizar a função DContar para determinar o número de registos que estão num conjunto especificado de registos (um domínio (domínio: conjunto de registos definido por uma tabela, consulta ou expressão SQL. As funções de agregação de domínio devolvem informações estatísticas sobre um domínio específico ou um conjunto de registos.)). Utilize a função DContar num módulo do Visual Basic for Applications (VBA), numa macro (macro: acção ou conjunto de acções que podem ser utilizadas para automatizar tarefas. As macros são gravadas na linguagem de programação Visual Basic for Applications.), numa expressão de consulta ou num controlo calculado (controlo calculado: controlo utilizado num formulário, relatório ou página de acesso a dados para apresentar o resultado de uma expressão. O resultado é calculado de novo sempre que houver uma alteração em qualquer dos valores nos quais a expressão se baseia.).

Por exemplo, poderá utilizar a função DContar num módulo para devolver o número de registos numa tabela Encomendas que corresponda às encomendas efectuadas numa data específica.

Sintaxe

DContar(expr, domínio [, critérios] )

A sintaxe da função DContar tem os seguintes argumentos:

Observações

Utilize a função DContar para contar o número de registos num domínio quando não precisar de saber os respectivos valores específicos. Embora o argumento expr possa efectuar um cálculo num campo, a função DContar simplesmente conta o número de registos. O valor de qualquer cálculo efectuado pelo argumento expr fica indisponível.

Utilize a função DContar num controlo calculado quando necessitar de especificar critérios para restringir o intervalo de dados em que a função DContar é executada. Por exemplo, para visualizar o número de encomendas a expedir para o Porto, defina a propriedade OrigemDoControlo de uma caixa de texto com a seguinte expressão:

=DContar("[CódigoDaEncomenda]", "Encomendas", "[RegiãoDeEnvio] = 'CA'")
		

Se pretender simplesmente contar todos os registos no domínio sem especificar quaisquer restrições, utilize a função Contar.

Sugestão

Pode utilizar a função DContar para contar o número de registos que contenham um campo específico que não se encontre na origem do registo em que o formulário ou relatório se baseia. Por exemplo, poderá apresentar o número de encomendas na tabela Encomendas num controlo calculado num formulário baseado na tabela Produtos.

A função DContar não conta registos que contenham valores Nulo no campo referenciado pelo argumento expr, a menos que expr consista no carácter universal asterisco (*). Se utilizar um asterisco, a função DContar calcula o número total de registos, incluindo os que contêm campos Nulo. O exemplo seguinte calcula o número de registos numa tabela Encomendas.

intX = DContar("*", "Encomendas")
		

Se o domínio for uma tabela com uma chave primária (chave primária: um ou mais campos (colunas) cujos valores identificam única e exclusivamente cada registo numa tabela. Uma chave primária não permite valores nulos (Null) e tem de ter sempre um índice exclusivo. Uma chave primária é utilizada para relacionar uma tabela com as chaves externas noutras tabelas.), também pode contar o número total de registos definindo expr como o campo chave primária, dado que nunca existirá um valor Nulo no campo chave primária.

Se o argumento expr identificar vários campos, separe os nomes dos campos com um operador de concatenação, que poderá ser um "E" comercial (&) ou o operador de adição (+). Se utilizar um "E" comercial para separar os campos, a função DContar devolve o número de registos que contenham dados em qualquer um dos campos listados. Se utilizar o operador de adição, a função DContar devolve apenas o número de registos que contenham dados em todos os campos listados. O exemplo seguinte demonstra os efeitos de cada operador quando utilizado com um campo que contenha dados em todos os registos (NomeDoDestinatário) e com um campo que não contenha dados (RegiãoDeDestino).

intW = DContar("[NomeDoDestinatário]", "Encomendas")
intX = DContar("[RegiãoDeEnvio]", "Encomendas")
intY = DContar("[NomeDoDestinatário] + [RegiãoDeEnvio]", "Encomendas")
intZ = DContar("[NomeDoDestinatário] & [RegiãoDeEnvio]", "Encomendas")
		

 Nota    O "E" comercial é o operador preferencial para concatenar cadeias. Deve evitar a utilização do operador de adição em operações que não consistam em adições numéricas, a menos que pretenda especificamente propagar valores Nulos numa expressão.

As alterações não guardadas de registos no domínio não são incluídas quando utilizar esta função. Se pretender que a função DContar se baseie nos valores alterados, primeiro tem de guardar as alterações clicando em Guardar Registo em Registos no separador Dados, movendo o foco para outro registo ou utilizando o método Actualizar.

Exemplo

 Nota   Os exemplos que se seguem demonstram a utilização desta função num módulo do Visual Basic for Applications (VBA). Para mais informações sobre como trabalhar com VBA, seleccione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de procura.

A função seguinte devolve o número de encomendas expedidas para um país/região específico após uma data de envio especificada. O domínio é uma tabela Encomendas.

Public Function OrdersCount _
    (ByVal strCountryRegion As String, _
    ByVal dteShipDate As Date) As Integer

    OrdersCount = DContar("[DataDeEnvio]", "Encomendas", _
        "[ShipCountryRegion] = '" & strCountryRegion & _
        "' AND [DataDeEnvio] > #" & dteShipDate & "#")
End Function

		

Para chamar a função, utilize a seguinte linha de código na janela Immediate:

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