[Resolvido]Duvida em codigo.

Boa tarde, o que significa esse cod.

Private Sub Form_Current()
Me.NúmeroDaNota.DefaultValue = "=" & Nz(DMax("NúmeroDaNota", "Notas Fiscais"), 0) + 1

Agradeço.

Amigo,

Extraído do HELP do VBA:

Função NZ
Você pode utilizar a função Nz para retornar zero, uma cadeia de caracteres de comprimento zero (seqüência com comprimento zero: uma seqüência que não contém caracteres. Você pode usar uma seqüência com comprimento zero para indicar que não existe valor para um campo. Você insere a seqüência com comprimento zero digitando aspas duplas sem espaço entre elas (" ").) (" "), ou um outro valor especificado quando uma Variant for Null. Por exemplo, essa função pode ser utilizada para converter um valor Null em um outro valor e evitar que ele se propague através de uma expressão.

Função Dmax

Use a função DMax para determinar o valor máximo de um conjunto de registros especificado (um domínio (domínio: um conjunto de registros definidos por uma tabela, consulta ou expressão SQL. As funções agregadas de domínio retornam informações estatísticas sobre um domínio ou conjunto de registros específico.)).
Sintaxe

expressão.DMax(Expr, Domain, Criteria)


Resumindo: Verifica o último número da nota fiscal na tabela Notas Fiscais e se não houver atribui "0" e soma + 1

Falow,