[Resolvido]Procedimento Antes de atualizar do Formulário (esclarecimento)

Olá,

Tenho o programa funcionando, mas quando desisto de uma inclusão após passar pelo campo "NOME", apagando-o, sempre dá um erro nessa linha

Código:


Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull([NOME]) Then
    Me.NOME = Nz(DMax("Nome", "tabela11"), 0) + 1      <-------
End If
Me.last_Update = sisUsu & " " & Now 'Pega o Usuário Atual.

'If CpoExigido(Me) Then Cancel = -1  ' Verifica se existe campo vazio.

Call TestaCampos

End Sub


Podem me explicar a razão dessa linha?

Obrigado!

Boa tarde,

Provavelmente o erro se dá por que a função DMax() pega o ultimo registro seguindo um critério, porém você nao especificou o criterio que quer utilizar. Neste caso, ele está pegando o valor máximo PREENCHIDO do campo nome (uma string, suponho). Aí voce está pegando este valor (José, por exemplo), e está tentando somar 1. Tentar somar uma string com um inteiro normalmente não dá muito certo.

Coloque aqui o que voce quer realmente que aconteça com o campo NOME no caso dele ser nulo.

Abraço.

Eu vou deixar essa linha comentada, para ver se não acontece algo errado.

É um programa de cadastro de funcionários e o campo Nome é o primeiro a ser preenchido, e quando ele sai desse campo passa por esse tratamento, depois pega o nome do usuário, logado, e adiciona em outro campo.

Quando completo todo preenchimento do form não dá problema.
Só dá se eu depois de ter preenchido o Nome e mais alguns dados e desistir "apagando" todos campos preenchidos e clicar em Sair, o campo nome esta vazio.

Vou usar a linha comentada e observar, depois retorno ao tópico.
Obrigado.

Não deu erro, vou considerar como resolvido.

Obrigado