[Resolvido]Somar campo anterior e atual

Pessoal boa noite.

Tenho essa questão na cabeça, não sei como ficaria.

Criei dois formulários um para visualizar e outro para inserir.

Bem o para inserir tem um campo com o valor fixo [1] ou outro que pertence a uma tabela chamado número e tem um botão que faz (campo número + valor 1).
Até ai somou, porém ainda estou vendo o seguinte, como fazer para pegar o valor do cadastro anterior e somar com mais um neste campo.

Não posso usar auto numeração pois a sequência pode pular no começo do dia.

como poderia fazer isso.

tem como colocar som nisso?

O que estou tentando fazer é um contador para atendimento.

Dê uma pesquisada pela dependência GoToRecord do objeto DoCmd e veja se consegue usá-la nesse contexto. Ou utilizando Recordset.MovePrevious para pegar o valor do registro anterior e somar com o atual.

Bom dia.

testei aqui, mas aconteceu o seguinte.

Quando coloco desta forma, ele vai para o próximo registro, mas não entra o valor do registro anterior

Private Sub Comando2_Click()
On Error GoTo Err_Comando2_Click

DoCmd.GoToRecord , , acNewRec
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Forms![SENHA].CONTADOR = Me.[SENHA]
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
SomMarinho
Exit_Comando2_Click:
Exit Sub

Err_Comando2_Click:
MsgBox Err.Description
Resume Exit_Comando2_Click

End Sub

Agora se tiro a linha do DoCmd.GoToRecord , , acNewRec ele preenche o campo "CONTADOR" porém não pula para um próximo registro em branco com o campo preenchido.

pode me ajudar a esse respeito

obrigado.

Tente, no evento "No atual" do formulário, algo assim:

Código:

Dim rs As Recordset

If Me.NewRecord Then
    Me.NomeCampoDaSoma = Null
Else
    Set rs = CurrentDb.OpenRecordset("NomeDaTabela", dbOpenDynaset)

    rs.FindFirst "Código=" & Me.Código
    rs.MovePrevious

    If rs.BOF Then
        Me.NomeCampoDaSoma = Null
    Else
        Me.NomeCampoDaSoma = Val(Me.NomeDoCampoDoValorNoForm) + Val(rs!NomeDoCampoDoValorNaTabela)
    End If

    rs.Close
    Set rs = Nothing

End If

Obrigado deu certo sim.