Codigo VBA para procurar registo

Olá a todos, preciso de ajuda por favor.

Tenho um formulário (formulário_oftaData) com um subformulário, no formulário_oftaData tenho os campos Subject_ID e Subject_Name, no subformulário correspondente insiro um tipo de informação sobre este sujeito.

1º - Num formulário_geral, quero procurar um sujeito da tabela dados do sujeito.

2º - No formulário_oftaData quero que o Sujeito para introduzir dados seja o que se procurou no formulário_geral.

eu utilizei o seguinte:

Forms!formulário_oftaData!Subject_ID=Forms!formulário_geral!Subject_ID.

Só que aparece o seguinte erro: «'As alterações pedidas para a tabela não foram bem sucedidas, pois iriam criar valores duplicados no indice, chave primária ou relação'.

O que concluo é que está tentar inserir os dados na tabela e não procurar o registo :\


Nunca programei em VBA não consigo resolver.

Muito Obrigado!

Cumprimentos,

Lilia Jorge

Olá Lilia

Apesar de nosso idioma ser o mesmo, as vezes ele nos confunde em algumas situações.
Então gostaria de entender melhor o que pretende:

Formulário Principal: formulário_oftaData
Subformulário desse formulário: Não disse o nome
Um outro formulário: formulário_geral

De acordo com o que escreveu, a operação começa com a pesquisa do sujeito no formulário_geral, e uma vez encontrado o registro desejado
o mesmo deve ser carregado no fomulário_oftaData, para poder ser inserido algum dado no subformulário.

Se é isso, o "segredo" está no formulário_geral, então gostaria que descrevesse esse formulário, como pesquisa os nomes e de que forma parece o resultado.

Gostaria também de saber onde foi colocado essa expressão:
Forms!formulário_oftaData!Subject_ID=Forms!formulário_geral!Subject_ID.

Aguardo...

Nb

Boa tarde,

peço desculpa por ser pouco explicita.

Então é o seguinte:

Formulário Principal: formulário_geral
Um outro formulário: formulário_oftaData com o subformulário: subformulário_1

No formulário_geral estou a usar uma caixa de combinação para fazer a pesquisa do ID do subjeito, mas acredito que não seja a forma mais correcta, não sei bem como fazer essa pesquisa preciso de ajuda nesse aspecto também.

A expresão: Forms!formulário_oftaData!Subject_ID=Forms!formulário_geral!Subject_ID --> foi colocada no formulário 'formulário_oftaData' 'ao carregar'.


Agradeço imenso a ajuda.

Cumprimentos,

Lilia Jorge

Lilia

Experimente coloca o código abaixo na propriedade Ao clicar da caixa de combinação, acreditando que Subject_ID seja o nome dessa caixa de combinação, caso não seja, substitua o Subject_ID no final da expressão pelo nome correto da combobox (caixa de combinação).  


DoCmd.OpenForm "formulário_oftaData", acNormal, "", "Subject_ID = Forms!formulário_geral!Subject_ID"

Uma vez feito isso, quando clicar no ID da caixa de combinação, irá abrir o formulário formulário_oftaData já com os dados do sujeito  do ID escolhido.

Vou deixar o link de um exemplo de formulário de pesquisa, se tiver interesse, baixe e estude-o.

O link é esse exemplo da mensagem 19.

Comprimentos

Nb

Para abrir o formulário_oftaData estou a utilizar um grupo de opções (que abre o formulário de acordo com o tipo de dados que se pretende introduzir), por isso não posso utilizar a caixa de combinação para abrir directamente o formulário.


Muito Obrigada.

Cumprimentos,

Lilia Jorge

Então Lilia


Ao invés de colocar o código vba na caixa de combinação, coloque-o no grupo de opções.


Noob