[Resolvido]Atualizar informações do formulário

Caros colegas,

Eu estou com uma caixa de combinação aonde eu digito o número da telefone da pessoa ela preenche automaticamente os campos, até aqui okay. Eu gostaria que caso o numero digitado não esteja cadastro, pudesse abrir um msbox dizendo que não existe cadastro e se deseja um novo cadastro(Abrindo o formulário de cadastro). E quando fazer o novo cadastro, ele atualize o outro formulário, sem ter que fechar e abrir.

Obrigado, desde já.

Boa noite,
Na Caixa de combinação:

Certifique-se que a propriedade Limitar a uma lista esteja definida como Sim

No evento Se não estiver na lista, ponha:

Código:

If MsgBox("O número informado não foi encontrado. Gostaria de cadastrá-lo?", vbQuestion + vbYesNo, "Número não cadastrado") = vbYes Then
      CurrentDb.Execute "INSERT INTO SuaTabela VALUES(CampoNumeroTelefone='" & NewData & "')", dbFailOnError
      Me!SuaCaixaCombinacao.Requery
      Me!SuaCaixaCombinacao = NewData
End If
Response = acDataErrContinue

SuaTabela = Nome da tabela que contém os números telefônicos
CampoNumeroTelefone = Nome do campo que armazena os números telefônicos

Ele dá erro nessa parte do código

Código:

CurrentDb.Execute "INSERT INTO Tbl_CadCli VALUES(Telefone='" & NewData & "')", dbFailOnError

O nome do cambo aonde armazena os números se chama telefone.

Agradeço desde já.

Rapaz, falha minha ... Teste:

CurrentDb.Execute "INSERT INTO Tbl_CadCli (Telefone) VALUES('" & NewData & "')", dbFailOnError

Agora ele deu um erro nesse:

Me!SuaCaixaCombinacao.Requery

O cadastro de telefone está sendo feita por um formulário, isso não é pertinente?

Tenho a tabela "Tbl_CadCli" e o formulario de cadastro se chama "frm_CadCli"

Me!SuaCaixaCombinacao.Requery
Me!SuaCaixaCombinacao = NewData

SuaCaixaCombinacao deve ser substituído pelo nome da sua caixa de combinação que tem os telefones.

Ele ainda dá erro no código

Me!txt_telefone.Requery

Ps: Quando eu entro em modo em design e volto para exibição esse salva a lista na caixa em de combinação.

txt_telefone é uma caixa de combinação?
Se não, qual é o erro que está apresentando?

Segue o anexo.

txt_telefone é o nome da caixa de combinação.

Acima da linha: Me!txt_telefone.Requery, ponha: Me!txt_telefone = Null

Deu:

Você tentou atribuir o valor Null a uma variável que não é o tipo de dados Variant.


Posso da uma outra explicação para tentar achar um outro caminho.

Passo 1:

Ao colocar o numero de telefone e não estiver cadastrado exibir uma mensagem perguntando se quer ou não cadastrar um novo cliente.

Passo 2:

Abrir o formulário de cadastro de clientes.

Passo 3:

Atualizar o formulário principal sem ter que abrir e fechar o formulário.

Agradeço, desde já.

Pode ser também, mas se não há outra informação a inserir nesse formulário, o código já faria isso sem abrir nenhum outro formulário.

Poste seu banco, pois deve haver algum detalhe que não estamos percebendo...

Para mim é melhor que abra o outro formulário "CadCli" para que possa preencher os dados que faltam. Pois no formulário principal ele fica bloqueado, ele preenche automaticamente quando o telefone já está cadastrado.

Tudo bem, poderia postar então?

Segue o dados

Teste por favor:

Ficou perfeito!

Muito obrigado pela ajuda!