Problema com coluna acoplada de combobox

Boa dia pessoal, minha combobox é baseado em uma consulta união e coluna acoplada 1, então nem todos os nomes da lista são aceitos. Consegui resolver alterando a coluna acoplada para 0, mas ao inserir alguns nomes da lista diz que violei as regras de integridade referencial.

Segue o banco para mais detalhes.

Grato

Olá Jonatan,

Isso está ocorrendo por causa do relacionamento que foi criado entre as tabelas. Reveja os relacionamentos e tente novamente.
Ao meu ver, não tem necessidade de 03 tabelas de exames. Uma só contendo os tres valores seria o ideal.
Geralmente esses valores sofrem alterações de preços, entre outras mudanças. Se você não estruturar bem o seu banco, terá problemas que poderia ser resolvido com uma boa estrutura/modelagem.

Nivaldo.

Bom dia Nivaldo, também seria uma opção, inclusive já tentei dessa forma, mas achei que ficasse bagunçado. Gostaria dessa forma se não houvesse repetição de exames e convênio, entende?

Por exemplo, eu criaria uma única tabela de exames e nesta um campo Convênio. Então, no meu formulário não poderia haver dois exames e convênio iguais.

Exame   Convênio
Glicose   SUS
Glicose   Particular
Glicose   SUS = Errado. Não é possível!

É possível criar um procedimento que realize essa verificação?
Fiz alterações no banco para adequá-lo dessa forma.

Grato

Oi Jonatan,

De qual formulário você está falando????

Nivaldo.

Bom dia Nivaldo, do Formulário_Exames. Lá tem todos os campos da tabela Exames.
Tem fazer aquilo que eu disse?

Grato

Bom dia Jonatan,

Não testei, más faz um teste para ver se dar certo:

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM TabExames")

With rst
If rst![NomeExame] = Me.NomeExame.Value And rst![CodConvenio] = Me.CodConvenio.Value Then
MsgBox "Exame já cadastrado...", vbCritical
Me.Undo
Else
End If
End With
rst.Close
End Sub

Coloca no evento Antes de Atualizar da combo Convênio.

Nivaldo.

Boa tarde Nivaldo, só funcionou com o primeiro registro da tabela. Tinha esquecido, teria também como incluir na verificação o campo CódigoExame?

Grato

Jonatan,

Dá para fazer com quantos campos você queira.

No momento estou sem access, más logo mais a tarde vejo para você.

Nivaldo.

Ok Nivaldo, estou no aguardo.

Abraços

Olá,

No arquivo em anexo, fiz algumas modificações (tabelas/relacionamento)
Criei o FormExames para cadastrar todos os exames com os quais você vai trabalhar. Nesse formulário é feita a verificação de duplicidade observando os campos NomeExame e CodConvenio (caso queira, pode incluir outros).
Você falou em incluir na verificação o campo CodExame, más não será preciso, pois o mesmo é chave primária.

Nivaldo.

Boa tarde Nivaldo, funcionou, mas se eu começar a cadastrar pelo convênio haverá dados duplicados. E sobre o campo CódigoExame, ele não é chave primária, e sim tipo texto. Também gostaria de incluí-lo no código.

Grato

Jonatan,

Como lhe disse, fiz algumas modificações nas tabelas/relacionamentos. Uma das mudanças na tabela TabExames foi tirar o relacionamento pela inicial do exame e colocá-lo pelo CodExame. Dá uma olhada na estrutura das tabelas.
Para verificação de duplicidade, foi colocado o nome do exame e o código do Convênio. Para incluir a inicial do nome do exame altere a seguinte linha (que está no evento Antes de Atualizar da ComboConvenios):

   ExameRepetido = DLookup("NomeExame", "TabExames", "(NomeExame ='" & Me!NomeExame & "') And ( CodConvenio =" & Me!CodConvenio & ") And (InicialExame = "' & Me!InicialExame & '")")

Nivaldo.

Bom dia Jonatan,

Como alternativa, fiz um exemplo colocando uma caixa de listagem para verificação visual.
Cadastre um novo exame (começando pela escolha do Convênio) e na caixa ao lado mostrará todos os exames cadastrados para o convênio selecionado.


Nivaldo.

Boa tarde Nivaldo, desculpa a demora em responder. O novo código que me passou para incluir a inicial na verificação não funcionou, nada acontece.

Grato