MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Transformar datas em valores numéricos

    Compartilhe

    jbgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 29/09/2016

    [Resolvido]Transformar datas em valores numéricos

    Mensagem  jbgj em 30/9/2016, 13:25

    Bom dia.
    Tenho uma tabela no BD Access que contem dados pessoais. Estou pretendendo criar uma outra tabela relacionada onde fiquem registradas duas datas de eventos, através de um formulário.

    Até aí tranquilo. Minha dificuldade é fazer o seguinte: (Não sei se é possível)

    Quando lançar no formulário a data1 de participação no evento1, quero que compute em outro campo o valor "1"
    Quando lançar no formulário a data2 de participação no evento2, quero que compute em outro campo o valor "0,5"

    E no último campo o total de pontos: Somando os pontos 1 ou 0,5 se tiver.

    Mais ou Menos isso:
    Matricula  Nome  Data1  Data2  ValorData1 ValorData2 TotaldePontos

    Obs.: Preciso fazer uma consulta onde aparece o total de pontos, independente se o membro possui pontos em todos os tipos de evento.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  FabioPaes em 30/9/2016, 14:52

    Deixa ver se entendi...



    Se o campo Data1 estiver Preenchido, entao ValorData1=1.0
    Se o Campo Data2 estiver Preenchido, Entao ValorData2 = 0.5


    Se nao estive ValorData1 =0 ...


    Seria isso?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    jbgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 29/09/2016

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  jbgj em 30/9/2016, 14:58

    no meu formulário teria dois campos de datas.

    se o membro participar de um evento que valha 1 ponto, eu lançaria no campo data1 e computaria 1 ponto,
    se o membro participar de um evento que valha 0,5 pontos, eu lançaria no campo data2 e computaria 0,5 pontos.

    criando uma tabela com Id numeração automática, esses registros ficariam separados, mas de forma que numa consulta eu pudesse
    ver quantos pontos ele tem no geral.

    Quando não for preenchida algum desses dois campos (Data1 ou Data2), o valor seria zero.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  FabioPaes em 30/9/2016, 15:13

    No seu Formulário, no evento apos atualizar do seu Campo Data1 coloque:


    If Nz(Len(Me.Data1.Value)>0) then


    Me.ValorData1 = 1


    end if








    Data1 é o Nome do Campo que recebera a data para computar 1 ponto


    ValorData1 é o Campo que recebera o valor 1 caso seja preenchido o campo Data1






    Esse Campo TotaldePontos é Desnecessário...




    Pois poderá quando precisar apenas calcular com uma formula simples:  =Nz(ValorData1 +ValorData2)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    jbgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 29/09/2016

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  jbgj em 30/9/2016, 15:21

    FabioPaes, obrigado pela força!

    Vou criar a tabela/formulario e consulta, baseadas no seu exemplo.

    Depois dou um retorno.

    Grato
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  FabioPaes em 30/9/2016, 16:26

    Blz...

    Crie uma consulta em cima da abela, e coloque o Campo Calculado para somar os Pontos...


    No formulário aponte essa consulta como Origem dos dados...

    E coloque  o total de pontos bloqueado, apenas para mostrar a soma...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    jbgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 29/09/2016

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  jbgj em 30/9/2016, 16:34

    Fiz todo o processo e deu certo.

    Valeu mesmo.

    Só vou acrescentar essa visualização no form e vai ficar dez.

    Abraço até a próxima!!!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  FabioPaes em 30/9/2016, 17:07

    Grato pelo Retorno! Até a Próxima se Deus quiser!

    Nao esquece de Marcar o Tópico como Resolvido!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    jbgj
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 29/09/2016

    Re: [Resolvido]Transformar datas em valores numéricos

    Mensagem  jbgj em 1/10/2016, 03:38

    Obrigado

      Data/hora atual: 22/10/2018, 22:13