cmdincluir.Enabled = False
cmdalterar.Enabled = False
cmdconsultar.Enabled = False
cmdexcluir.Enabled = False
cmdanterior.Enabled = False
cmdproximo.Enabled = False
cmdprimeiro.Enabled = False
cmdultimo.Enabled = False
cmdgravar.Enabled = True
cmdsair.Enabled = True
cmdcancelar.Enabled = True

LimpaFormulario
Frame1.Enabled = True
cmbescola.SetFocus

Dim cod As Long  -   ja usei o Integer também
txtcodigo.Text = Format(txtcodigo.Text, "000000")

TBProtocolo.Seek "=", txtcodigo.Text

If TBProtocolo.NoMatch = False Then
TBProtocolo.AddNew
cod = TBProtocolo.RecordCount
txtcodigo = cod + 1
txtcodigo.Text = Format(txtcodigo.Text, "000000")
' MsgBox "Código de contato já existente. Tente outro código.", vbCritical, "ATENÇÃO..."
   
'    AtualizaFormulairo
'    cmdincluir.Enabled = True
'    cmdexcluir.Enabled = True
'    cmdconsultar.Enabled = True
'    cmdalterar.Enabled = True
'    cmdgravar.Enabled = False
'    cmdsair.Enabled = True
'    cmdprimeiro.Enabled = True
'    cmdanterior.Enabled = True
'    cmdproximo.Enabled = True
'    cmdultimo.Enabled = True
'    MsgBox ("Favor Utilizar os Códigos na Sequência. Verifique o último registro..."), vbInformation, "ATENÇÃO..."
'    Frame1.Enabled = False
       
Else
    TBProtocolo.AddNew
    cod = TBProtocolo.RecordCount
    txtcodigo = cod + 1
    txtcodigo.Text = Format(txtcodigo.Text, "000000")
End If

    txtcodigo.Enabled = False

End Sub

------------------------------------------------------

tente fazer assim

'// Se "Cod" for um campo da sua tabela

'// ele tem que ser indexado e ser a chave primária.

 

TBProtocolo.index = "nome do índice"

TBProtocolo.MoveMax  '// Move para o ultimo registro
    AtualizaFormulario
    TXTcodigo.Text = TBProtocolo("cod") + 1

TBProtocolo.AddNew

 

Obs.: " quando eu enviei a msg, o texto grifado de vermelho foi alterado! é prá mover para o útimo registro."

O problema pode estar aqui

TBProtocolo.AddNew
cod = TBProtocolo.RecordCount

Se voce cadastrar o primeiro registro cod = 2, so existira um registro no banco e o resultado do Recordcount sera 1. Quando voce somar +1 a ele vai dar o proprio registro ja cadastrado (cod = 2).

 

Na verdade voce tem que ler o ultimo registro e somar 1 ao codigo e não ler a quantidade de registros. Dei para enteder.

 

Eu uso assim.

    tbl_aux.MoveMax   ' le o ultimo registro
    cod = tbl_aux.fields![cod] + 1  ' soma um a ele

 

Uma outra dica do forum. Voce poderia colocar no mesmo post (o anterior) este codigo. Assim poluiria menos a lista. Isso dificulta um pouco as resposta pois estava esperando o codigo no outro post.

Rocha, me desculpe a intromissão, + que propriedade .MOVEMAX é essa que eu ando vendo no site faz uns dias, eu nunca vi essa propriedade, o que eu sei para ir para o ultimo é .MOVEMax

 

Burro.

 

Acho que vc já achou a propriedade....   Se vc ler o seu post, vai ver que a propriedade que vc digitou foi alterada também.!