[Resolvido]caixa de combinação não repetir nome

Em um form de cadastro tenho um subform nele tenho uma caixa de combinação na 1ª coluna tem sigla dos exames e 2ªcoluna tem exames como faço para não repetir o mesmo exame.
Ex:
                             sigla     Exame
Caixa de combinação   hc      hemograma
                              Su      Sumario
                              hc      hemograma = isso que não gostaria que repetir tipo assim uma       msgbox: Exame ja cadastrado!

Deu-me uma trabalheira lhe arranjar o código. Tem a bd bastante enrolada.
Na tabela tbCadastro retire a Origem da Linha
cole no módulo do formulário
Private Function PreencheLista() As String
Dim I As Integer, strBase As String

strBase = "TRHG;TESTE RÁPIDO HIV GESTANTE;TRO;TROPONINA I;CG75;CURVA GLICEMICA 75g;PLF;PESQ.LEUCOCITOS NAS FEZES;SOF;SANGUE OCULTO NAS FEZES;HC;HEMOGRAMA COMPLETO" _
& ";ERI;ERITROGRAMA;LEU;LEUCOGRAMA;SD;SOROL. DENGUE;HB;HEMOGLOBINA;HT;HEMATOCRITO;PLT;PLAQUETAS;VHS;VHS;PCR;PROTEINA C. REATIVA;ASO;ASO;LAT;LATEX;BHCG;BETA HCG;" _
& "TIP;ABO/RH;COBD;COOMBS DIRETO;COBI;COOMBS INDIRETO;VDRL;VDRL;TRS;TESTE RÁPIDO SÍFILIS;TRH;TESTE RÁPIDO HIV;TRC;TESTE RÁPIDO CALAZAR;TGO;TGO;TGP;TGP;UR;UREIA;" _
& "CR;CREATININA;GASA;GASOMETRIA ARTERIAL;GASV;GASOMETRIA VENOSA;COAG;COAGULOGRAMA;TG;TRIGLICERIDEOS;CL;CLORO;FA;FOSFATASE ALCALINA;AMIL;AMILASE;LIP;LIPASE;" _
& "GGT;GAMA GT;LDH;LDH;RPC;REL.PROTEINURIA/CREATINURIA;PAF;PARASITOLOGICO DE FEZES;AU;ACIDO URICO;BIL;BILIRRUBINAS;PT;PROTEINA TOTAL ALB/GLOB;GL;GLICEMIA;" _
& "GLP;GLICEMIA POS PRANDIAL;NA;SODIO;K;POTASSIO;CA;CALCIO IONICO;CPK;CPK;CKMB;CKMB;CT;COLESTEROL TOTAL;CTFR;COLESTEROL TOTAL E FRAÇÕES;TP;TAP;TTPA;TTPA;" _
& "SU;SUMARIO DE URINA"
For I = 1 To 20
If Not IsNull(Me("EX" & I).Column(0)) Then
strBase = Replace(strBase, Me("EX" & I).Column(0) & ";", "")
strBase = Replace(strBase, Me("EX" & I).Column(1) & ";", "")
strBase = Replace(strBase, ";" & Me("EX" & I).Column(0), "")
strBase = Replace(strBase, ";" & Me("EX" & I).Column(1), "")
End If
Next
PreencheLista = strBase
End Function

No acontecimento AoEntrar de cada caixa de combinação, coloque:
Me(ActiveControl.Name).RowSource = PreencheLista

Só agora vi que disponibilizou exemplo com subform. Veja se adeqúa, senão veremos depois

Alexandre

Não vejo o bd dele disponibilizado.

Estava enviando um post quando foi travado, pois o Alexandre estava também postando   

Amigos

Vocês já viram  a tabela de exames da AMB?

vejam aqui

Sugiro que o Atila crie uma tabela para os exames e se oriente por aquela tabela e utilize os códigos de cada exame por serem único.

Irá cadastrando a medida que os exames forem solicitados.

Assim evita de utilizar string, que são propenso a erros, exemplo disso: vejam o nome do anexo que o Atila nos disponibilizou.    

então o código para verificar duplicado será:

if Dlookup("*","tblExames","[IDExame] =" & me.IDExame) > 0 then
  msgbox "Exame já cadastrado"
  ...
  ...

End IF


Abraços

Noob

Caro Alexandre peço desculpas e muito obg pela ajuda. Mais criando uma TblExames e tambem uma TblPedidoExames deu certo fazer a estatistica do jeito que eu queria.
Agora estou com outro pro como relatei acima.
Nosso colega colocou esse codigo
if Dlookup("*","tblExames","[IDExame] =" & me.IDExame) > 0 then
msgbox "Exame já cadastrado"
mais não estou sabendo utilizar
Coloquei esse codigo apos atualizar no campo sigla mais não dar certo.
Vamos la
Nome da minha tabela TblExame: seus campos IDExames;Sigla;Exames

Boa tarde,
O DLookup procura na tabela, o DCount conta na tabela. Se quer contar, use o DCount
Deve ser assim
tabela tblExames
campo na tabela IDExames
controlo no formulário IDExame
if Dcount("*","tblExames","IDExames=" & me.IDExame) > 0 then

Boa tarde Alexandre
Meu problema não e mais de contar.
Vou tentar explicar. No meu formulario cadastro de pacientes tem agora um subformulario que são dos exames cadastrado.Então eu gostaria que não repeti-se o mesmo exame cadastrado no mesmo paciente.Ele me informa-se uma mensagem exame ja cadastrado.
Da uma olhada na imagem que coloquei no começo do tópico. Vc percebe que a glicemia repeti eu não quero que isso aconteça.
Nosso colega colocou esse código mais o que eu percebi e que ele deve funcionar na tblexames para vc não cadastrar duas vezes o mesmo exame mais no subformulario não.
tblexames = campos IDExames;Sigla;Exames
tblPedidosExames=ID;Sigla;Exames
Então o que eu fiz foi criei uma consulta com os campos da tblexames.criei uma relação tblpedidosexames -tblcadastro
Pronto no meu subformulario eu tenho os campos sigla;exame

Desculpa ai mais não sou um gênio em access mais como ja falei iniciante.

Disponibilize dados para ver e trabalhar

Obg Alexandre.
Esta so faltando isso para eu atualizar BD no meu trab.

Tem tabela de cadastro com dados do pedido. Quer que o pedido da análise não se repita.
1º Numa segunda consulta terá de preencher todos os dados do doente
2º É muito difícil ter um histórico e avaliação da evolução do doente
3º Ao não repetir o exame. O doente nunca poderá fazer segundo exame.

pense se é isto que quer
Penso que devia ter tabela de doentes, tabela de exames pedidos (codigo do doente, exame, data do exame,etc) e, aí podia não permitir duplicação para a mesma data
Informe como vai seguir

Alexandre boa tarde e muito obrigado mesmo por me ajudar.
Acho que vc ainda não entendeu.Mais vamos la
Vou dar um exemplo simples vamos supor que esse BD seja de vendas então no pedido do cliente eu não quero q saia o mesmo item duas vezes naquela pedido.
Exemplo:
Marcos Antonio pediu maçã,pera,uva então no mesmo registro dela eu não quero que repita uva para não cadastrar uva duas vezes.
Essa repetição somente neste registro.
Se o Marcos pediu no outro dias blz não importa somente na hora.
Sera que não tem nenhum codigo somente no momento que ele verifique.

Já tinha percebido isso, mas parece-me que um dia vai alterar
Sobre a não repetição, TbPedidoEx subformulário -> caixa de comniação Sigla -> origem da linha -> SELECT Sigla, Exame, IDExames FROM TbExame WHERE Sigla NOT IN (SELECT Sigla FROM TbPedidoEx);

Alexandre coloquei mais não deu certo não aparece nada nenhum exame
caixa de comniação Sigla -> origem da linha -> SELECT Sigla, Exame, IDExames FROM TbExame WHERE Sigla NOT IN (SELECT Sigla FROM TbPedidoEx);

aqui vai

Desculpa Alexandre mais o q vc mandou não tem nada na linha de origem.Ficou do mesmo jeito não aparece nada
Sera que versão access o meu e 2007 ?

Só não tem quando já marcou todos os exames e, como não repete, não permite registar nada

Alexandre
So que assim quando vou colocar um novo registro ele não aparece nada? Não deixa eu selecionar nada caixa de combinação fica em branco

Isso foi o que pediu. Não pode repetir exames.

Alexandre
Sim isso mesmo mais isso so pode acontecer no mesmo pedido ja no proximo não.

deve ter controlo de pedido na tabela para que seja identificado

Atila

Eu devia ficar quieto, mas vou dar uma pequena aula de logica de programação em Access

Vamos lá, rapidinho:

if Dcount("*","tblExames","IDExames=" & me.IDExame) > 0 then

Você sabe que

x = Dcount("*","tblExames","IDExames=" & me.IDExame)

irá contar o que? Quantos exames tem na tabela tblExames, que seja igual ao exame que no momento está sendo cadastrado.
A resposta será x exames

Agora, subtituido todo o código só por x:

If x >0 then

Então, o código acima diz Se x for MAIOR QUE O ZERO, então Grite porque este item já está cadastrado.


Como pode ver, o código não é só pra contar, e sim pra ver sem tem duplicado.

Boa sorte

Noob

Noobezinho Boa tarde

Isso eu entendi mais não estou sabendo colocar esse codigo baixa meu bd e da uma olhada
eu quero que essa repetição não aconteça no form Pedido do exame em cada paciente por paciente.
obg. pela atenção

Atila

Acho que estou ficando vesgo.

Não vejo anexo algum teu, apenas o do Alexandre Snows (the winter is coming!)  

Noob

Noobezinho
Desculpas tinha excluído.

Obg pela ajuda.

Terá de alterar várias coisas.
O formulário abre e é carregado o 1º registo.
Ao escolher o doente na caixa de combinação, não se movimenta para o registos dele; mantêm-se no 1º registo
Assim, mesmo que controlo pelo codigo, o código será sempre o 1
Reveja a estruturação

Alexandre
Não gostaria de mudar a estrutura do bd e se eu colocar para abrir direto em um novo vou correr o risco do pessoal cadastrar pacientes direto.Outra coisa o botão localizar tambem não ira funcionar.

Noob boa noite
aguardando ansioso pois nao consigo colocar esse codigo.
Obg

Muito Obrigado a todos (Alexandre e Noob) pela compreensão e paciência comigo.

Esse Forum e Show de Bola !!!


Aprendendo Access 2007...