[Resolvido]Erro ao atualizar formulário

Boa tarde pessoal !

Eu estava mexendo nesse pequeno projeto para estudo e me surgiu um problema que não estou conseguindo resolver que é o seguinte:

Existem 2 tabelas e 2 formulários com nomes de Atualizar e Contratos

Quando abro o form contratos que seria para cadastrar, nome, datainicial e datafinal, prazo e valores e um botão "renovar contrato" que abre um outro form o Atualizar que possui os mesmos campos, para preencher as informações atualizadas e depois um botão para atualizar então. Porém o primeiro aspecto que me deparo de dúvida está ai, gostaria que ao clicar ele já abrisse o contrato (registro) atual, fiz de uma forma que não sei se é a correta, mas que está relativamente funcionando, porém estou enviando o texto de um form para o outro não atualizando o Códcontrato.
A 2 dúvida que tenho é quanto códcontrato do form Atualizar que é uma Caixa de combinação, não sei porque está dando erro ao trocar não aparece o nome no campo Nome, pois a ideia seria também estando no Form Atualizar se quisesse  alterar outro contrato apenas trocar o cód.

No Caso na verdade acredito que o erro esteja no enviar o texto para o outro form enquanto na verdade somente deveria atualizar o campo Códcontrato para que apareça ai os dados no campo Nome porém não estou conseguindo fazer isso. Não estou conseguindo identificar meu erro.

Para visualização melhor, estou disponibilizando o banco.

Se alguém poder me auxiliar.

Abraço a todos !

Para quem não poder olhar o banco fiz o seguinte:

No formulário Contratos (Que é um form de Cadastro que possui campos código, nome, datainicial, datafinal,prazo,valor) existe um botão atualizar contrato esse botão está assim :

Código:


Dim DB As Database, rs As Recordset
     Set DB = CurrentDb()
     Set rs = DB.OpenRecordset("Atualizar", dbOpenDynaset)

If MsgBox("Deseja renovar esse contrato ?", vbYesNo + vbQuestion, "ATENÇÃO...") = vbNo Then
Exit Sub
Else
   
     rs.AddNew
     rs("CódContrato") = Me!Código
     rs.Update
     rs.Close
     
End If

DoCmd.OpenForm "Atualizar", , , "CódContrato = " & Me.Código

End Sub


Obs. Ou seja então ele abre o Form Atualizar no código (cadastro, atual) que eu esteja manipulando.

Já no Form Atualizar possui campos código, CódContrato (Que é o cod do cadastro do form contratos), nome, datainicial, datafinal,prazo,valor.

Bem o campo CódContratos é uma caixa de listagem que possui 2 colunas cód (0) e nome (1) ele ao abrir o Formulário não está atualizando os demais campos Nome etc, pelo botão "Atualizar" do Form Contratos. Já tentei colocar no Atual, ou ao carregar Me.CódContrato.Requery ou Me.Requery ou me.Recalc e nada muda.

Parece ser alguma coisa besta que eu esteja me passando.. mas não estou identificando o problema se alguém poder ajudar agradeço !

Abraço a todos.

Consegui resolver, era uma bobagem.. resolvido da seguinte forma:

Coloquei o seguinte código no evento ao carregar do formulário "atuliazar"

Código:

Dim strNome$

strNome = CódContrato.Column(1)
Me.Nome = strNome

Obrigado a todos !