[Resolvido]dados em tabelas diferentes se o utilizador o solicite

cumprimentos a todo o pessoal do forum, venho solicitar a ajuda de alguem, porque já utilizei vários exemplos e todos me deram erro, o ultimo foi o criquio, que me tentou ajudar, a questão é a seguinte, tenho um formulário que através de uma caixa de combinação verifica se o Nº de Identificacção existe se não existe cria-o. Até aqui tudo bem, onde começa a complicação é quando o utilizador carrega num botão que abre outro formulário (de outra tabela) e o numero que acabou de criar não existe na tabela. Dos exemplos que vi, o access cria registo na outra tabela (a minha confusão é que tenho várias tabelas e os exemplos ele cria em outra tabela, exitem apenas duas tabelas que não é o meu caso). Penso que fui claro na descrição do que necessito, se poderem ajudar agradeço.Obrigado

Peço desculpa por não ter dito nada, li e pensei que a pergunta não me era dirigida e fiquei á espera, sim o utilizador através da caixa de combinação fica a saber que o numero que coloca não existe e pergunta se quer adicionar o número o utilizador responde que sim ou que não, se responder que sim devia adicionar em duas tabelas. Adiciona apenas na TABELA em que o utilizador está na outra TABELA diz que o nº não existe. (acrescenta o numero por código que eu tirei aqui do forum feito pelo Dilson). Espero que tenha respondido, Mais uma vez as minhas desculpas, foi sem intenção.

Como solicitado adiciono o código que estou a utilizar e obrigado pela atenção.


Private Sub Caixa_de_combinação46_NotInList(NewData As String, Response As Integer)
'NIM=nºidentificação
Dim sql As String 'copiado do máximoAccess - rotina do dilson
If MsgBox("o NIM não existe" & Chr(13) & Chr(13) & "Deseja inserir o NIM " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
DoCmd.SetWarnings False
sql = "INSERT INTO identificação ([justnim]) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
End Sub

Obrigado, vou fazer a alteração e depois digo alguma coisa.

Bom dia, antes de tudo obrigado pela atenção, depois de resolvido parece que a solução é lógica e fácil, mas para mim que não conseguia resolver a questão foi bem dificil e complicada, só tenho a agradecer e bem Haja, obrigado


já agora se me poder ajudar eu agradeço senão só têm que fechar e voltar abrir o formulário, é que as tabelas só assumem o novo numero se fechar o formulário, obrigado.

Bom dia Jorge;

Dê um Requery após o ultimo End If, assim;

End If
Me.Requery

Obrigado, assim assim já não tenho de fechar o formulário.