[Resolvido]Não repetir item em formulário contínuo

Tenho um Formulario com um SubForm chamado SubFml_ItensPedidoExames. Nesse há uma combobox chamada "txtExame" que busca os valores em uma tabela de apoio. Porém ao inserir um Exame no Subformulário, gostaria que esse Exame não pudesse ser novamente inserido, para não haver duplicidade. Coloquei, na Tabela que dá origem ao subform a propriedade "Indexado - duplicação não autorizada, mas ele bloqueia o item também para os proximos  registros, e não apenas para o atual.
Alguem sabe como se faz isso?

Obrigado,

Walter

Olá Walter

Para ajudar melhor, seria possível  colocar as tabelas envolvidas e seus campos?

Se entendi, o SubFml_ItensPedidoExames é de uma tabela onde irão os exames de um determinado registro que está na tabela do formulário principal.
Nessa caso temos um relacionamento de um (tabela form principal) para vários(tabela do SubFml_ItensPedidoExames).

Se assim for, não adiantará colocar o indexado-não duplicado nessa tabela, já que a mesma receberá outros registros para um mesmo código digamos.

Então, sempre que se colocar um novo exame nesse subformulário, teremos que verificar se já existe o exame para tal código e se sim, fazer com que a aplicação "grite" e não deixe.
Use um Dcontar() por exemplo.

Abraços

Noob

Obrigado pela atenção Noob.
Obrigado, Avelino.
Baixei seu exemplo e é exatamente o que preciso. Vou tentar implementa-lo no meu BD, se não conseguir vou posta-lo prá voce me ajudar. Ok?
(Não vou fechar o tópico por enquanto...)

Walter

Bom dia, Avelino.

Seu exemplo funcionou legal, mas não consegui implanta-lo no meu sisteminha... Não sei se é por causa do Código no Evento "Se não estiver na lista", ou se não adaptei seu código direito... Retirei o código para deixa-lo "limpo" e não atrapalhar sua análise.

Além desse problema, tem mais um pequeno: o botão "Novo Pedido de Exame" deveria limpar o SubFml_ItensPedidoExames e manter a data do Pedido ("DataExame"), mas não está fazendo isso...

Ao abrir vá na combo "Procurar por" , escolha um nome e clique no botao "Pedir Exames".

Um abraço

Walter

Teste.

http://speedy.sh/gARfd/Receita-Medica-PraticaHSVP.mdb

Bom dia
Grande Mestre Avelino Sampaio

A partir do seu exemplo de não deixar repetir dados no sub formulario, queria também filtrar os dados a registar no Subformulario,  a partir dos campos "Tipo" e "Tipo1" que estão no formulário Principal

Segue meu exemplo

Boa tarde, Cafpr.

Não entendi. Parece-me que não teve modificação alguma.
(Você não terá anexado o arquivo errado?

Um abraço.

Walter

Foi adaptado o exemplo do colega Avelino no seu.
Teste e retorne...

Boa noite, Cafpr.

Agradeço a sua atenção, tentando me ajudar nesses problemas.
Porém, o arquivo que voce enviou é o mesmo que eu postei. Não consegui localizar o Evento onde voce inseriu o código do Avelino.
Também o Botao Novo Pedido de Exames continua sem funcionar, apesar de ser sido feito pelo assistente do Access.

Um abraço,

Walter

Obrigado
Avelino Sampaio

Era mesmo isso

Perfeito, Avelino.
Do jeito que eu queria. Muito obrigado.

Um abraço,

Walter

Neste banco de dados postado o campo Exame existe em 2 tabelas. Destro do código postado, o campo Exame, como eu consigo saber de qual tabela pertence? Obrigado.

Private Sub Exame_GotFocus() 'CAMPO EXAME É DA TABELA tblExames
Dim rs As DAO.Recordset
Dim strLista$
Dim strSql$

On Error Resume Next
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
strLista = strLista & ",'" & rs!Exame & "'" 'CAMPO EXAME QUAL TABELA ?
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
If strLista = "" Then
strSql = "SELECT Exame FROM tblExames ORDER BY exame;" 'CAMPO EXAME 2 VEZES DE QUAIS TABELAS ?
Else
strSql = "SELECT Exame FROM tblExames WHERE exame not IN(" & Mid(strLista, 2) & ") ORDER BY exame;" 'CAMPO EXAME 3 VEZES DE QUAIS TABELAS ?
End If
Me!Exame.RowSource = strSql 'CAMPO EXAME QUAL TABELA ?
End Sub