[Resolvido]Referir o campo chave

Boas Tardes
A intensão deste código e evitar um novo registo pelo comando "Seguinte"
O Campo chave dá-me erro "(Novo)" o ( "" ) não resulta

Código:

If Me.Txt_Codigo = (Novo) Then
    DoCmd.CancelEvent
    Else
    DoCmd.GoToRecord , , acNext
    End If

Oi?
Evitar um novo registro ou com nome de "NOVO"
Esse comando começa por onde?
Ao abrir , update, ao carregar etc...?

Quando carrego no botão seguinte, vai para o registo seguinte ou para um novo registo.
O pretendido é evitar que vá para um novo registo.

Luís Antunes

Me.Código=DLast("Tabela", "Código")
Ela vai permanecer no último registro

A primeira condição If é que dá erro

Se o Meu código for vazio
Me.Código=DLast("Tbl_Lancamento", "Codigo")
Caso contráro
DoCmd.GoToRecord , , acNext

Luís Antunes

Não precisa do if, e só cadastrar e fica no último , . Deixa seu bd aqui se não der certo

Não resultou
Envio, em anexo, parte do projecto
Luís Antunes

Boa noite.
O que está fazendo isso é o Valor do lançamento que já esta caindo automático, ou seja, quando você começa a preencher a segunda linha a terceira já caiu o valor 0 já cai independente do formato. Geralmente os campos acoplados faz isso com todos os campo , mas o seu é pelo formato.

Você pode ver que a 3ª linha já caiu ,mas está esperando o preenchimento dos outros campo

Bom dia crysostomo

Fui à tabela e, todos os campos com valor "pré definido =0" Ficaram vazios, mesmo assim não resultou.

Luís Antunes

Recrie a tabela se persistir deixe todos desaciplados

desaciplados?

A palavra deve se desacoplado.

Vou envias novamente a BD com os campos desacoplados.
O resultado continua sendo nulo

Luís Antunes

Escrevendo pelo celular o corretor não ajuda.
Amanhã a noite eu vou ver.

Respondendo com base na mensagem de nº 2

Código:

Dim objRS As DAO.Recordset
Dim j as boolean
    
If Me.NewRecord Then Exit Sub
    
Set objRS = Me.RecordsetClone
If objRS.RecordCount > 0 Then
    Call objRS.MoveLast
    j = (Me!txtID.Value = objRS!NomeCampoIdNaTabela.Value)
End If
set objrs = nothing

if j = true then exit sub

Call DoCmd.GoToRecord(acDataForm, Me.Name, acNext)

Boa Tarde Damasceno.
Serviu que nem uma luva.
Obrigado pela ajuda que me tem dado.
E também um agradecimento a crysostomo pela boa vontade em ajudar.

Luís Antunes

O fórum agradece o retorno. Sucesso.