[Resolvido]Evento depois de actualizar de uma combobox

Boa Tarde,

Sou inexperiente no Access e em VBA pelo que solicito a vossa ajuda para compor código VBA que me retorne o valor depois de registado.
Tenho o formulário novo registo que tem 2 caixas de combinação sincronizadas, uma que procura n.º cliente e outra que retorna o n.º de apólices, e caso o n.º de cliente ou n.º de apólice não esteja na lista ele pede para registar abrindo um novo formulário e quando eu fecho o formulário de registo ele preenche imediatamente a combobox relativa ao registo.
Até aqui está tudo a funcionar correctamente, o que necessito é de abrir o formulário para registar a apólice me preencha logo o n.º cliente e o nome.

O codigo que estou a utilizar é o seguinte:
Private Sub NApolice_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Cliente não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Apolices", , , , acFormAdd, _
acDialog, NewData
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

E preciso de acrescentar algo do género: Forms!Frm_Nova_Apolice!NCliente = Me.NCliente

Desde já agradeço a vossa atenção.

Tente acrescentar duas linhas ao seu código:

...
DoCmd.OpenForm "Apolices", , , , acFormAdd, _
acDialog, NewData
Forms!Apolices!NomeCampo1 = Me.NomeCombo1
Forms!Apolices!NomeCampo2 = Me.NomeCombo2
...

Mude os nomes dos campos para os nomes corretos.

Boa tarde Criquio,

Essa possibilidade eu já tinha tentado e não está funcionando.

estou a tentar anexar o ficheiro para ver se me pode ajudar, mas diz o que o tipo de arquivo é inválido ( bd2012.zip), como posso enviar o ficheiro para darem uma olhada?

Muito Obrigado.

Cumps

Mude o nome ao ficheiro zip e não pode ultrapassar os 3 megas.

Continua a dizer que o arquivo adicionado não é valido.

Existe outra forma de colocar aqui o ficheiro?

Obrigado

Ok! já está.

Aqui vai o meu ficheiro.

Obrigado

Tem uma coisa que me apercebi agora e não entendi. Você quer digitar o número de um cliente e caso ela ainda não exista, abrir outro formulário já com o número e o nome do cliente preenchido. Mas como irá preencher o nome de cliente se ele ainda não existe na tabela? Tambem tem um evento semelhante na combo do número da apólice. Nesse caso, teria que cadastrar o cliente primeiro para depois cadastrar a apólice. Ou então ainda não entendi bem a questão.

Boa Tarde,

No caso do NCliente ele ainda não existe e por isso ao abrir o form de registo do cliente insiro os dados todos,em relação ao n.º apólice pretendo que ao abrir o formulário para criar nova apólice insira logo o NCliente e respectivo nome só sendo necessário adicionar o n.º apólice e respectivo produto.

Eu tentei fazer este sistema directamente no formulário de novo registo mas dava erros e achei que assim seria mais facil.

Muito obrigado

Cumps

Mas você não precisa repetir o nome do cliente na tabela de apólices. Você só precisa do número. Esse número deve estar devidamente relacionado com um campo tipo número na tabela de apólices, sendo esse relacionamento usado para consultar a apólice de um determinado cliente. Algo como "consulte na tabela apólices, os registros que tenham, no campo CodCliente, o mesmo número do cliente que está no formulário". De qualquer forma, a sua combo que tem o número do cliente, tem tambem o nome, você pode usar as colunas dela, sabendo-se que ela tem duas colunas, a do código e a do cliente, e que as colunas de uma combo ou listbox são numeradas à partir do 0(zero). Então, pode usar a linha que passei no exemplo acima:

Forms!Apolices!NomeCampo1 = Me.NomeCombo.Column(0)
Forms!Apolices!NomeCampo2 = Me.NomeCombo.Column(1)

Não estou a conseguir.

O que eu pretendo é inserir uma nova apólice de um cliente, o cliente existe na tabela de clientes mas ainda não existe na tabela de apolices, dai eu estar a tentar criar um automatismo de criar uma nova apolice que insira na tabela de apolices o n.ºcliente, n.ºapolice e produto, o nome do cliente é só informativo.

Num primeiro momento tentei fazer isto directamente no form novo registo em que os campos do formulário estavam vinculados aos campos da apolice, mas não consegui faze-lo, pois dava erro de duplicação de valores no índice.

Claro que dá erro de duplicação, você está usando provavelmente duas chaves primárias automáticas.

pois, provalvelmente é isso! já contornei o assunto.

Muito Obrigado pela ajuda acabou por servir para outro problema que tinha na minha bd.