MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]odontograma..

    avatar
    gracymary
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 192
    Registrado : 16/10/2010

    [Resolvido]odontograma.. Empty odontograma..

    Mensagem  gracymary 9/11/2010, 15:43

    Boa tarde!!

    Estou precisando criar um odontograma.. onde possa pintar o lugar no dente (azul=serviço feito E vermelho=serviço a fazer)... Aguardo muitas sugestões.. porque não sei exatamente "como fazer"...
    Desde já agradeço....
    gracy mary
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]odontograma.. Empty Re: [Resolvido]odontograma..

    Mensagem  criquio 9/11/2010, 15:53

    Existe uma boa quantidade de maneiras de se fazer tal procedimento. Uma delas seria você ter, em um formulário, pequenas caixas representando cada dente. Essas caixas poderiam ter nomes como Dente1Sup, Dente2Sup..., Dente1Inf, Dente2Inf... Você teria uma tabela com registros dos pacientes e uma tabela procedimentos vinculada pelo ID do cliente. Nessa tabela teria um campo para cada dente. Dente arrumado teria gravado em seu campo o valor "Feito" e dente por arrumar teria "A fazer". No form, nos eventos adequados, você colocaria algo assim:

    If DLookup("Dent1Sup", "TabelaProcedimentos", "ID=" & Me!ID") = "Feito" Then
    Me.Dente1Sup.BackColor = vbBlue
    ElseIf DLookup("Dent1Sup", "TabelaProcedimentos", "ID=" & Me!ID") = "A fazer" Then
    Me.Dente1Sup.BackColor = vbRed
    End If


    Pode tambem colocar a imagem de uma boca no formulário com as imagens dos dentes pintados de vermelho e azuis e condicionar da mesma forma para mostrar a imagem do dente azul ou vermelho dependendo do caso.
    São enes possibilidades.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]odontograma.. Empty Re: [Resolvido]odontograma..

    Mensagem  JPaulo 9/11/2010, 16:49

    Ola Gracy;

    Um exemplo pronto a utilizar, do Grande Marciano.

    http://dl.dropbox.com/u/771097/Odontograma2000.rar



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]odontograma.. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]odontograma.. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]odontograma.. Folder_announce_new Instruções SQL como utilizar...
    avatar
    gracymary
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 192
    Registrado : 16/10/2010

    [Resolvido]odontograma.. Empty Re: [Resolvido]odontograma..

    Mensagem  gracymary 9/11/2010, 20:23

    valeu o explo JPaulo!!! muito obrigada...

    Conteúdo patrocinado


    [Resolvido]odontograma.. Empty Re: [Resolvido]odontograma..

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:29