[Resolvido]Contar registros, acrescentando +1 com condição

Boa noite,

Estou tentando criar uma rotina no meu formulário para contar os registros que existem na tabela, ou seja, toda vez que eu clicar no botão Novo Registro, aciona a rotina abaixo:

Poderia utilizar a numeração automática, mas estou tentando fazer algo diferente, pelo simples fato que ao você clicar em novo registro, e cancelar, já salva um número automático na tabela, e não fica na sequência correta a númeração, que no meu caso, é o número do pedido. Então na rotina abaixo, coloquei para que se na Tbl_Lancamentos, não obtiver nenhum lançamento, então que no campo Cod_Pedido, fique = 1, mas se tiver algum registro, quero que conte, e coloque + 1, mas acabou não dando muito certo a minha ideia. Alguém poderia me dar um auxilio?

Private Sub Novo_Click()

DoCmd.GoToRecord , , acNewRec

If DCount("Cod_Pedido", "Tbl_Lancamentos") = "" Then

Me.Cod_Pedido = 1

Else

End If
End Sub

Bom dia,
Em um ambiente de rede, poderá ter sérios problemas com numeração personalizada ou terá que fazer um verdadeiro malabarismo
para contornar isso...

Imagine dois pedidos sendo feito ao mesmo tempo, sua rotina encontra 10 registros para um usuário e 10 registro para o outro usuário
e acrescenta mais 1 no número do pedido... Teria dois pedidos diferente com o mesmo número...

Mas para fazer o que pretende, faça o seguinte:

txtCod = txtCod + 1

Onde txtCod é a caixa de texto que contem o código do pedido.

Obrigado Marcelo, vou analisar melhor esta situação!