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


2 participantes

    [Resolvido]Somar números das datas do formulário

    Reinaldo Silva
    avatar
    Reinaldo Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 05/03/2014
    • Mensagem nº1

    [Resolvido]Somar números das datas do formulário Empty [Resolvido]Somar números das datas do formulário

    Mensagem  Reinaldo Silva 5/3/2014, 17:10

    Olá, por favor, gostaria de pedir a ajuda de todos, pois estou elaborando um formulário que precisa fazer algo que não é muito comum, pois já procurei em vários fóruns e no Google e não achei solução, preciso somar todos os números das datas do formulário, tem data de nascimento da pessoa, do pai e da mãe, é preciso somar todos os números para chegar a um resultado de um só número, exemplo:

    18/09/1980 1+8+0+9+1+9+8+0 =36 3+6= 9
    06/05/1960 0+6+0+5+1+9+6+0 =27 2+7=   9
    08/02/1965 0+8+0+2+1+9+6+5 =31 3+1= 4
                           Total 22 2+2 =4 (este número será uma referência para uma informação)

    No Excel consegui a função SomarNumeros, mas no Access não consegui achar solução.

    Agradeço a atenção e ajuda.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Avelino Sampaio 5/3/2014, 18:49

    Seja benvindo!

    Ótimo caso para exercitar a programação

    Copie o função abaixo para um módulo global

    Public Function fncDvData(varData1, vardata2, vardata3) As Byte
    Dim seq(3), vardata(3), dv%, dvf%
    Dim j As Byte
    vardata(0) = Replace(varData1, "/", "")
    vardata(1) = Replace(vardata2, "/", "")
    vardata(2) = Replace(vardata3, "/", "")
    For j = 0 To 23
        seq(j \ 8 )= seq(j \ 8 )+ Val(Mid(vardata(j \ 8 ), (j Mod 8 )+ 1, 1))
    Next
    For j = 1 To Len(seq(0) & seq(1) & seq(2))
        dv = dv + Val(Mid(seq(0) & seq(1) & seq(2), j, 1))
    Next
    For j = 1 To Len(dv)
        dvf = dvf + Val(Mid(dv, j, 1))
    Next
    fncDvData = dvf
    End Function


    Agora utilize a função no evento ao clicar de um botão, por exemplo:

    me!NomeCampo = fncDvData(me!DataPessoa,me!dataPai,me!dataMae)

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Reinaldo Silva
    avatar
    Reinaldo Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 05/03/2014
    • Mensagem nº3

    [Resolvido]Somar números das datas do formulário Empty Está dando erro #Nome?

    Mensagem  Reinaldo Silva 5/3/2014, 19:06

    Olá Avelino, muito obrigado pela resposta, mas acho que não estou sabendo aplicar, pois usei assim:

    =fncDvData([Nascimento];[Pai];[Mãe])

    e está dando o resultado #Nome?

    Aliás, todos módulos que estou tentando aplicar estão dando esse resultado, acho que fiz algo errado e não estou sabendo ver onde, estou usando o Access 2013.

    Agradeço a ajuda e a atenção.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº4

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Avelino Sampaio 5/3/2014, 19:46

    Aguarde um pouco, mandarei um exemplo.



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº5

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Avelino Sampaio 5/3/2014, 20:08

    Segue o exemplo.

    A função é aplicado na consulta.  Foi criado o campo virtual DV

    DV: fncDvdata([datanascimento];[datapai];[datamae])

    Abra a consulta e acrescente novos registros.

    Abra o formulário.  Alter datas e veja o resultado do DV.

    Acrescente novos registros no formulário e veja o resultado.

    E por fim faça os cálculos manualmente e veja se estão de acordo.

    Nota: Acrescentei a linha "on error resume next" na função.

    Aguardamos
    Anexos
    [Resolvido]Somar números das datas do formulário AttachmentDvdata.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 19 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Reinaldo Silva
    avatar
    Reinaldo Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 05/03/2014
    • Mensagem nº6

    [Resolvido]Somar números das datas do formulário Empty Funcionou mas...

    Mensagem  Reinaldo Silva 6/3/2014, 02:22

    Boa noite Avelino, o arquivo que mandou funcionou direitinho, é isso mesmo, muito obrigado, só estou com dificuldade de aplicar no banco de dados que eu já tenho criado, esse era o último item de uma lista de 37 rsrsrs, mas estou tentando entender o conceito para aplicar, muito obrigado.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº7

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Avelino Sampaio 6/3/2014, 06:13

    Olá!

    Monte um bd exemplo com o seu formulário + a sua tabela envolvida e cole aqui pra gente analisar. Não precisa mandar com os dados.

    Aguardamos



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Reinaldo Silva
    avatar
    Reinaldo Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 05/03/2014
    • Mensagem nº8

    [Resolvido]Somar números das datas do formulário Empty Quase lá...

    Mensagem  Reinaldo Silva 6/3/2014, 10:41

    Bom dia Avelino, mais uma vez obrigado pela atenção.

    Consegui colocar para funcionar +/-, só não estou conseguindo colocar a informação na Tabela, pois só está aparecendo na Consulta, depois vou ter que organizar o Formulário para imprimir cada cadastro e outra coisa, se possível por favor, o resultado final não pode ser maior que 9, se der 10 o resultado tem que ser 1, pois a lógica é 1+0, grato.
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº9

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Avelino Sampaio 6/3/2014, 11:58

    Olá!

    Segue uma nova versão:

    Acrescentei o campo DV na tabela tblTeste
    Criei um novo formulário de nome frmDvData2.  Este formulário tem origem na tabela tblTeste.
    Abra o formulário e altere o valor da datamae para ver o resultado.  Coloquei no evento "após atualizar" deste campo o seguinte código para preencher o campo DV:


    Private Sub DataMae_AfterUpdate()
    Me!DV = fncDvData(Me!DataNascimento, Me!DataPai, Me!DataMae)
    End Sub


    Alterei o código para o caso do DV ser maior que 9

    fncDvData = IIf(DVF > 9, DVF - 9, DVF)

    Segue abaixo a função modificada:


    Public Function fncDvData(varData1, vardata2, vardata3) As Byte
    Dim seq(3), vardata(3), DV%, DVF%
    Dim j As Byte
    On Error Resume Next
    vardata(0) = Replace(varData1, "/", "")
    vardata(1) = Replace(vardata2, "/", "")
    vardata(2) = Replace(vardata3, "/", "")
    For j = 0 To 23
        seq(j \ 8 )= seq(j \ 8 )+ Val(Mid(vardata(j \ 8 ), (j Mod 8 )+ 1, 1))
    Next
    For j = 1 To Len(seq(0) & seq(1) & seq(2))
        DV = DV + Val(Mid(seq(0) & seq(1) & seq(2), j, 1))
    Next
    For j = 1 To Len(DV)
        DVF = DVF + Val(Mid(DV, j, 1))
    Next
    fncDvData = IIf(DVF > 9, DVF - 9, DVF)
    End Function



    Nota: (j \ 8 ) é o mesmo que int(j / 8 )

    Aguardamos
    Anexos
    [Resolvido]Somar números das datas do formulário AttachmentDvdata_rev1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 14 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Reinaldo Silva
    avatar
    Reinaldo Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 05/03/2014
    • Mensagem nº10

    [Resolvido]Somar números das datas do formulário Empty Aqui não funcionou.

    Mensagem  Reinaldo Silva 6/3/2014, 13:51

    Olá Avelino.

    Aqui não funcionou, fiz alguns testes, todos os dados vão para a tabela, menos o número do total das datas, retorna o valor 0, pode verificar, por favor?
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº11

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Avelino Sampaio 6/3/2014, 14:35

    Funcionando normal.  Vc está testando o formulário frmDvdata2 ?

    Você pode estar com a MACRO DE SEGURANÇA habilitada.  Isso impede que o VBA funcione.  Veja como desbloquear neste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/tuto1.asp?id=1#inicio

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Reinaldo Silva
    avatar
    Reinaldo Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 05/03/2014
    • Mensagem nº12

    [Resolvido]Somar números das datas do formulário Empty Até que em fim!!!

    Mensagem  Reinaldo Silva 6/3/2014, 17:03

    Olá Avelino.

    Consegui, cara muito obrigado, obrigado mesmo, me ajudou muito, que tenha muito sucesso nos seus projetos.

    Mas só consegui quando coloquei na caixa de texto assim: =fncDvData([Nascimento];[Pai];[Mãe]), com o "DV" está dando erro.

    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010
    • Mensagem nº13

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Avelino Sampaio 6/3/2014, 17:18

    Obrigado pelo feedback e sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Reinaldo Silva
    avatar
    Reinaldo Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 05/03/2014
    • Mensagem nº14

    [Resolvido]Somar números das datas do formulário Empty Mais uma coisa.

    Mensagem  Reinaldo Silva 8/3/2014, 21:40

    Olá Avelino, poderia me dar mais uma ajuda por favor, é que não estou conseguindo salvar o cadastro com os dados com expressões, só salva o que estou digitando, procurei uma solução no fórum mas não consegui.

    Grato pela atenção.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº15

    [Resolvido]Somar números das datas do formulário Empty Re: [Resolvido]Somar números das datas do formulário

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/11/2024, 01:49