[Resolvido]Atualizar automaticamente tabela a partir de uma combobox com 3 campos

Oi pessoal,
Mais uma vez estou pedindo uma ajuda... Uso o MSAccess 2007.
Tenho um form onde abro uma caixa de combinação para selecionar um nome. Se não estiver na lista gostaria de inserir na tabela automaticamente, atualizar a combo e que o dado seja inserido numa caixa de texto do form. A tabela precisa ter o CodigoRepresentante, NomeRepresentante e Codigolaboratorio que é vinculado a uma TbLaboratorio já que cada laboratorio pode ter varios representantes.
Tentei o codigo abaixo e recebo o erro 3134, erro de sintaxe INSERT INTO. Aliás, tentei vários codigos e nada...
CurrentDb.Execute "INSERT INTO TbRepresentante (CodigoRepresentante, NomeRepresentante, CodigoLaboratorio) VALUES (" & Me.CboRepresentanteNome1.Column(0) & ", '" & Me.CboRepresentanteNome1.Column(1) & "', " & Me.CboRepresentanteNome1.Column(2) & ")".
Se fosse só o Codigo e o Nome eu usaria o codigo:
If MsgBox("Nome do Representante não cadastrado. Será cadastrado automaticamente.", vbOKOnly, "") = 1 Then
Set db = CurrentDb
db.Execute ("INSERT INTO TbRepresentante (NomeRepresentante) SELECT '" & NewData & "'")
etc...
Mas tem o outro campo CodigoLaboratorio que está atrapalhando tudo.
Aguardo qualquer ajuda pois vcs nao vao acreditar... tem quase um ano que tendo acabar um pequeno projeto e paro nestes detalhes.
Obrigada e desculpa a quantidade de informação.

Boa noite Neide,

Dá uma olhada no exemplo abaixo. Pode ser que lhe dê uma luz.

Nivaldo.

oi Nivaldo, obrigada pela atenção.
Esta forma também seria muito boa, abrindo o form para atualizar, mas como a tabela tem que ser alimentada também com o código do laboratorio que vem de outra tabela não consegui usar o exemplo que vc enviou.
Vou fazer o seguinte: Criar um modelo simplificado e postar aqui para facilitar a ajuda de vcs.
Obrigada e até mais.

Caros colegas,
Estou anexando um modelo do programa para solicitar mais uma vez ajuda de vocês.
Não coloquei nenhum codigo no evento "se nao estiver na lista" do FrmVisita, caixa de combinação Seleciona Representantes para não influenciar a solução que vcs podem fornecer.
Já experimentei vários códigos como abrir a tabela, abrir o formulário ou inserir automaticamente (o que eu prefiro) mas ainda nao tive exito. Acho que é porque a tabela tem 3 campos para atualizar a partir do FormVisita.
Se vc fizer o teste preenchendo os campos do FrmLaboratorio, aba Representante e aba Medicamento e vai para o FrmVisita fica tudo bem, mas se eu preciso inserir novo Representante ahi o "bicho pega".
Bom, com meus agradecimentos aguardo qualquer ajuda.
Neide

Olá Neide,

Diga exatamente o que deseja. Explicando detalhes que quer nos eventos de seus controles para facilitar o entendimento e ajuda de todos.

Dei uma olhada rápida no banco e não entendi direito o que você quer.

Nivaldo.

Oi Nivaldo, obrigada e desculpe o trabalho.
O que eu preciso é o seguinte:
Selecionar um lab no form inicial. Abrir outro form que é o FrmLaboratorio que traz os dados do Laboratorio. Nesse form Laboratorio tem tres abas: Laboratorio, Representantes e Medicamentos que são preenchidos de acordo com a necessidade. Isto é o cadastro de tres tabelas.
Depois, quando o representante do laboratorio já cadastrado for fazer uma visita para divulgar seus produtos eu clico no botão VisitaRepresentantes que vai abrir um form Popup chamado FrmVisita:
Este form recebe o código e nome do laboratorio vindo do Frm Laboratorio e mais a data da visita que eu digito. Eu clico em Nova... para aparecer a combobox onde eu seleciono o representante que está fazendo a visita.
Se este representante não estiver cadastrado, ao digitar o nome dele vai aparecer a msg dizendo que ele não está na lista. Aí é o ponto: Eu preciso que seja disponibilizado uma forma de cadastra-lo para eu não ter que fechar o formVisita, abrir o FrmLaboratorio, selecionar a aba de Representante e depois voltar para o FrmVisita, abrir a caixa de combinação e selecionar o recem cadstrado.
Existe um código que uso em outro projeto que cadastra automaticamente e que funciona bem, só que são dois campos o Codigo autonumeração e o Nome. Neste agora tenho que trabalhar com mais um campo que é o CodigoLaboratorio.

Private Sub CboNomeExame_NotInList(NewData As String, Response As Integer)
Dim db As Database
Response = acDataErrContinue
If MsgBox("Nome do Exame não cadastrado. Será cadastrado automaticamente.", vbOKOnly, "") = 1 Then
Set db = CurrentDb
Me.CboNomeExame = Null
db.Execute ("INSERT INTO TbExame (NomeExame) SELECT '" & NewData & "'")
Me.CboNomeExame.Requery
Else
Me.CboNomeExame = Null
End If
End Sub

Espero ter sido mais clara. Obrigada mais uma vez pela atenção e aguardo ajuda.
Neide

Boa noite Neide,

Desculpe a demora em responder (ultima semana de vendas)

Dá uma olhada para ver se o caminho é esse.


Nivaldo

Ola Nivaldo,
Obrigada pela sua atencao. Dei uma olhada rapida nas alteracoes que vc fez e acho que agora vou sair dessa, com sua ajuda.
Amanha vou apagar todos os dados das tabelas e comecar do zero fazendo testes. Vou anotar passo a passo o que acontece e dou retorno para vc.
Uma pergunta: posso converter a caixa de listagem dos nomes dos medicamentos em caixa de combinacao para fazer oprocedimento semelhante ao dos representantes? Isto eh, inserir novo medicamento abrindo o FrmMedicamento e voltar para o FrmVisita com os novos dados cadastrados?
Desculpe o incomodo mas amanha lhe dou noticias. Bom trabalho.

Bom dia Neide,

Respondendo a sua pergunta:

Pode sim. O procedimento é mesmo.

Fico no aguardo.

Nivaldo.

Oi Nivaldo, estou anexando a versão mais recente do projeto.
Acho que preciso de duas coisas mais: Uma quando atualizar o form de representantes o nome atualizado apareça na lista. Agora atualiza na caixa de texto mas não aparece na caixa de combinação. Acho que tem a ver com requery!???
Outra é no FrmDetalheVisita que não consegui reproduzir igual a caixa do representante. Acho também que tenho que manter o FrmLaboratorio aberto para trazer o CodigoLaboratorio para o FrmDetalheVisita senão na CboMedicamento aparecem todos os medicamentos e não só os do Laboratório escolhido. Fiz várias tentativas mas nada deu certo.
Vc pode olhar mais uma vez estes problemas para mim?
Muito obrigada pela ajuda.

Oi Neide,

Hoje eu não garanto olhar por conta da correria do final do mês, más amanhã dou uma olhada e retorno.

Você vai anexar a nova versão ou altero a que eu te enviei???

Nivaldo.

Oi Nivaldo, mais uma vez obrigada. Consegui anexar o arquivo.
Esta versão tem erro no link entre o FrmVisita e FrmDetalheVisita para relacionar o CodigoVisita e CodigoLaboratorio.
Continuo aqui estudando todos os exemplos que existem no forum e outras fontes. Sei que cada caso é um caso e cada programador pode programar de forma diferente. Eu estou seguindo esta linha pensando ser a mais simples mas aceito qualquer opinião.
Aguardo suas sugestões e agradeço. Bom trabalho.
Neide

Olá Neide,

Como você comentou, a combo do representante estava faltando o Requery.

Não estava dando certo no FrmVisitaDetalhe porque você não observou os eventos Ao Abrir do FrmRepresentante onde são passada informações para o termino do código. Observe o FrmRepresentante abre e fecha dentro da instrução.

Para atualizar a lista de medicamentos pelo laboratório foi acrescentado o critério abaixo na origem da linha da combo medicamentos:

[forms]![FrmVisita]![CodigoLaboratorio]

Segue o arquivo modificado e qualquer dúvida é só gritar.


Nivaldo

Ai Nivaldo,
Estou gritando é de alegria.
Nem acredito que sai deste nó. Fiz um teste rápido e funcionou direitinho como preciso.
Agora vou arrumar os formulários, ocultar os códigos atualizar os dados com informações reais para fazer relatórios.
Encerro aqui este post com meus agradecimentos sinceros pela disponibilidade de me ajudar com tanta presteza.
Muitas felicidades e mais uma vez obrigada.

Não há de que Neide.

Fico feliz por poder ajudar assim como fui auxiliado.

O forum agradece seu retorno.

PS: só não esqueça de clicar em resolvido, para finalizar o tópico.


Nivaldo.

Obrigada mais uma vez.