[Resolvido]Sistema de chamados

Olá pessoal, sou novo no fórum, mas gostei dos conteúdos discutidos. Bom sempre gostei de VB e VBA, mas acabei me afastando devido a funções desempenhadas, mas agora estou voltando e estou criando um sistema simples de chamados.
E claro as dificuldades vem a tona.
Tenho um formulário onde registros os chamados. Neste formulário tem um botão .
Que abre novo formulário ai o primeiro campo eu trago o mesmo número do chamado do formulário anterior.
e o segundo campo que chamo de sequência, a minha dificuldade esta justamente neste campo, onde preciso deixar ele automático.
Para ele ficar automático tenho sempre que avaliar o número do chamado criar um recordset com esta seleção e pegar o ultimo registro para pegar a sequencia, e ai sim somar +1.
Exemplo
chamado de numero 3, vamos supor que tenha duas interações.
chamado 3 Seq 1
chamado 3 Seq 2
O proximo será seq 3, a minha idea é fazer um loop e percorrer todos os registros e selecionar o ultimo.
Ai só somaria + 1 e este seria o valor do campo.
Estou no caminho certo?

Obrigadão jbhelp.

Olá João, seja bem vindo ao Máximo Access. A princípio, não entendi bem qual é a necessidade. Poderia postar o código que já tem pronto para a gente ver?

Olá Criquio, verifiquei somente uma função Dlook no caso, mas acredito que não sirva.
Ela:
Me.sequencia = DLookup("Me.sequencia + 1", "tinteracao", "Me.id_chamado =’" & Me.ID_chamado & "’")
Então irei criar uma seleção de todas as sequencias enquanto o número do chamado seja o mesmo.
Feito isto, percorro estes dados pegando o ultimo registro, por isto acredito que com recordset seja mais fácil.
consigo alocar diretamente a seleção no recordset? ok?
Dim rs As Recordset
Set rs = "Select sequencia from tinteracao where id_chamado = Id_chamado"
sequencia = rs.FindLast
sequencia = sequencia + 1

Se o que precisa é salvar novo registro, tente assim:

Dim db As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("sequencia" dbOpenTable)
rs.AddNew

rs("Código") = DMax("Código", "sequencia") + 1
rs("Campo2daTabela") = Me.Campo2DoForm
rs("Campo3daTabela") = Me.Campo3DoForm
...

rs.Update
rs.Close

Set db = Nothing
Set rs = Nothing

Olá Qriquio, valeu pela força estou tentando adequar o teu código, ai coloquei algumas informações e alterei os campos para os meus.
Private Sub Form_Open(Cancel As Integer)
Dim db As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tinteracao", dbOpenTable)
'jogo todos os valores da tabela tinteracao no rs
rs.AddNew
'adiciono novoregistro
'Aqui antes de pegar o campo sequencia preciso avaliar quantos registros eu possuo com o mesmo numero,
'pois vamos que ja tenha interações antes então a sequencia que tenho que pegar tem que ser sempre a ultima
rs("sequencia") = DMax("sequencia", "tinteracao") + 1
'faco a busca dentro da coluna sequencia pegando o ulitmo valor +1
rs("Campo2daTabela") = Me.Campo2DoForm
'?
rs("Campo3daTabela") = Me.Campo3DoForm
'?
rs.Update
rs.Close
Set db = Nothing
Set rs = Nothing

End Sub
Imagem do Sistema
Sistema

Amigo Resolveu? Podemos dar o tópico por resolvido?

Se houver alguma dúvida, apite.