Função Nz

Pode utilizar a função Nz para devolver zero, uma cadeia de comprimento zero (" ") ou outro valor especificado quando uma Variante é Nula. Por exemplo, pode utilizar esta função para converter um valor Nulo noutro valor e impedi-lo de propagar através de uma expressão.

Sintaxe

Nz(variante [, valorsenulo ] )

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

Argumento	Descrição
variante	Obrigatório. Uma variável do tipo de dados Variant.
valorsenulo	Opcional (a menos que seja utilizado numa consulta). Uma Variante que fornece um valor a ser devolvido se o argumento da variante for Nulo. Este argumento permite-lhe devolver um valor diferente de zero ou uma cadeia de comprimento zero. Observação: Se utilizar a função Nz numa expressão numa consulta sem utilizar o argumento valorsenulo , os resultados serão uma cadeia de comprimento zero nos campos que contêm valores nulos.

Se o valor do argumento da variante for Nulo, a função Nz devolve o número zero ou uma cadeia de comprimento zero (devolve sempre uma cadeia de comprimento zero quando utilizada numa consulta de expressão), dependendo se o contexto indica que o valor deve ser um número ou uma cadeia. Se o argumento opcional valorsenulo estiver incluído, a função Nz devolverá o valor especificado por esse argumento se o argumento da variante for Nulo. Quando utilizada numa expressão de consulta, a função NZ deve incluir sempre o argumento valorsenulo ,

Se o valor de variant não for Null, então a função Nz devolve o valor de variante.

Observações

A função Nz é útil para expressões que possam incluir valores Nulos. Para forçar uma expressão a avaliar um valor não Nulo, mesmo quando este contém um valor Nulo, utilize a função Nz para devolver zero, uma cadeia de comprimento zero ou um valor devolvido personalizado.

Por exemplo, a expressão 2 + varX sempre retornará um valor Nulo quando a VariantevarX for Nula. No entanto, 2 + Nz(varX) devolve 2.

Muitas vezes, pode utilizar a função Nz como alternativa à função ISe. Por exemplo, no código seguinte, duas expressões que incluem a função ISe são necessárias para devolver o resultado pretendido. A primeira expressão que inclui a função ISe é utilizada para verificar o valor de uma variável e convertê-lo em zero se for Nulo.

varTemp = IIf(IsNull(varFreight), 0, varFreight)
varResult = IIf(varTemp > 50, "High", "Low")

No exemplo seguinte, a função Nz disponibiliza a mesma funcionalidade da primeira expressão e o resultado pretendido é atingido num passo em vez de em dois.

varResult = IIf(Nz(varFreight) > 50, "High", "Low")

Se fornecer um valor para o argumento opcional valorsenulo, esse valor será devolvido quando o argumento variante for Nulo. Ao incluir este argumento opcional, poderá conseguir evitar a utilização da expressão que contém a função ISe. Por exemplo, a expressão seguinte utiliza a função ISe para devolver uma cadeia se o valor de varFreight for Nulo.

varResult = IIf(IsNull(varFreight), _
    "No Freight Charge", varFreight)

No exemplo seguinte, o argumento opcional fornecido à função Nz fornece a cadeia a ser devolvida se varFreight for Nula.

varResult = Nz(varFreight, "No Freight Charge")

Exemplos de consulta

Expressão	Resultados
SELECT IDDoProduto, NZ (Desconto,"Nenhum detalhe disponível") COMO Expr2 FROM ProductSales;	Devolve "IDDoProduto" na coluna Expr1, avalia os valores "Nulos" no campo "Desconto" e devolve "Não Existem Detalhes Disponíveis" para todos os valores Nulos (devolve os valores não nulos tal como estão).
SELECT IDDoProduto, NZ(Desconto,"Nenhum detalhe disponível") COMO ReplaceNull FROM ProductSales;	Devolve "IDDoProduto" na coluna Produto, avalia os valores "Nulos" no campo "Desconto" e devolve "Não Existem Detalhes Disponíveis" para todos os valores Nulos (devolve os valores não nulos tal como estão) e é apresentado na coluna SubstituirNulo.

Exemplo do VBA

O exemplo seguinte avalia um controlo num formulário e devolve uma de duas cadeias com base nos valores do controlo. Se o valor do controlo for Nulo, o processo utiliza a função Nz para converter um valor Nulo numa cadeia de comprimento zero.

Public Sub CheckValue()
    Dim frm As Form
    Dim ctl As Control
    Dim varResult As Variant
    ' Return Form object variable 
    ' pointing to Orders form.
    Set frm = Forms!Orders
    ' Return Control object variable 
    ' pointing to ShipRegion.
    Set ctl = frm!ShipRegion
    ' Choose result based on value of control.
    varResult = IIf(Nz(ctl.Value) = vbNullString, _
        "No value.", "Value is " & ctl.Value & ".")
    ' Display result.
    MsgBox varResult, vbExclamation
End Sub