MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Contar data em uma coluna.

    Compartilhe

    tsenna
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/10/2013

    Contar data em uma coluna.

    Mensagem  tsenna em Qua 23 Out 2013, 12:20

    Bom dia galera! Estou iniciando em ACCESS, então paciencia. haha
    Antes de postar minha dúvida, vou colocar meu objetivo final já aqui.

    Eu pretendo que toda a vez que eu clique no botao criar novo registro, seja gerado um codigo no campo CODIGOINTERNO do meu formulario, esse codigo servira como o nome do meu novo registro cadastrado.

    Enfim, como é esse codigo.

    Seria o numero 9 + a data sem barras + a quantidade de registros no dia.

    Entao por exemplo, se hoje eu cadastrei 5 registros e vou adicionar mais um.

    Seria: 9 + 231013 + 06 = 923101306

    Amanha o primeiro seria:
    9 + 241013 + 01 = 924101301

    Beleza.

    Meu primeiro passou foi tentar contar, na coluna que contem as datas que foram cadastrados os registros, quantas datas são iguais ao dia de hoje.
    Ou seja, sabendo quantas datas iguais a hoje tenho na minha coluna, saberei quantos projetos foram cadastrados hoje.
    Função igual ao cont.se do excel, eu ja sei que não existe, dei uma pesquisada na internet e cheguei nessa formula aqui em uma caixa de texto.

    =Sum(Iff([TAB_BancodeDados]![DATAINSERCAO] = Data(),1,0))

    Já com o nome da minha coluna.

    Esta dando erro de sintaxe :/
    Tentei outras formas e nada, mas partindo daí.

    Resolvendo isso, minha ideia era.
    (Se fosse igual excel)
    Ao Clicar em novo registro, no campo codigo interno já automaticamente
    Concatenar o 9 + a data sem barras (ainda nao pensei nisso, mas talvez concatenar Dia + Mes + Ano) + A contagem da fórmula acima acrescentada de 1

    Resumindo
    Então se houvessem 5 registros cadastrados hoje.
    Contaria 5, e ao clicar em novo registro o codigo gerado seria 923101306

    Espero que tenha feito entender.
    E obrigado pela paciencia e atenção! Very Happy

    Editando: Usei ponto e virgula no lugar das virgulas e ja acabou o problema de sintaxe, mas ainda não funciona :/

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  HARYSOHN em Qua 23 Out 2013, 14:01

    Bom dia colega, seja bem vindo ao fórum.

    Poste um modelo do teu bd com as tabelas envolvidas para que possamos ver isto pra ti.

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    tsenna
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/10/2013

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  tsenna em Qua 23 Out 2013, 14:27

    Ainda estou começando, mas, segue Smile
    Anexos
    Registros.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (25 Kb) Baixado 9 vez(es)

    tsenna
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/10/2013

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  tsenna em Qua 23 Out 2013, 14:45

    Muito obrigado pelo exemplo.
    Vou estudar e trabalhar em cima dele, e qualquer coisa retorno aqui.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  HARYSOHN em Qua 23 Out 2013, 14:46

    Boas Lupercio aguardaremos ver se ele consegue adaptar do Seu.

    Obrigado.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    tsenna
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/10/2013

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  tsenna em Qua 23 Out 2013, 14:53

    1 - Estou entendendo, mas será que poderia me explicar o que acontece nesses 3 codigos? Não estou associando a necessidade deles, nem como eles rodam.

    2 - As consultas tem necessidade? Pois fico com medo de depois que houver muito registro pesar o banco.

    Private Sub Data_Teste_Exit(Cancel As Integer)
    Me.Refresh
    Me.Recalc
    Me.TxTeste = DLast("[expr1]", "[C_Rdata]")
    Me.TxtData = Me.Data_Teste
    EndSub

    -

    Private Sub CODIGOINTERNO_Exit(Cancel As Integer)

    Me.TxTeste = DLast("[expr1]", "[C_Rdata]")
    Me.Refresh
    Me.Recalc
    End Sub

    -

    Public Sub filtro()

    If CODIGOINTERNO <> "" Then
    f1 = "[TxTeste] Like '*" & CODIGOINTERNO & "*'" 'Busca Campo1
    f1 = f1 & " Or [TX_001] Like '*" & CODIGOINTERNO & "*'" 'Busca Campo2
    f1 = f1 & " Or [TxtData] Like '*" & CODIGOINTERNO & "*'" 'Busca Campo3
    Else
    f1 = ""
    End If


    FilterOn = True

    End Sub

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  Lupércio em Qua 23 Out 2013, 15:51

    Desculpe amigo esse último código pode deletar.
    Public filtro!


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  Lupércio em Qua 23 Out 2013, 16:06

    Boas Piloto, como vai amigo? Espero que esteja bem!
    Piloto por favor exclui as mensagem 4 para não poluir o fórum, obrigado!




    Veja:
    Private Sub Data_Teste_Exit(Cancel As Integer)
    Me.Refresh
    Me.Recalc
    Me.TxTeste = DLast("[expr1]", "[C_Rdata]")
    Me.TxtData = Me.Data_Teste
    End Sub

    Após você digitar a data no formulário,
    Ao sair do campo:
    Me.Refresh
    Me.Recalc
    Atualiza os dados.

    Me.TxTeste = DLast("[expr1]", "[C_Rdata]")       Busca o último registro da consulta atualizado com a contagem da mesma.
    Me.TxtData = Me.Data_Teste                           Me.TxtData essa caixa de texto , repete a data que você digitou.

    Ao entrar no campo: CODIGOINTERNO

    Me.CODIGOINTERNO = [TX_001] & [TextDia] & [TextMes] & [TextAno] & [TxTeste]  inseri os dados filtrados pelas caixas de texto, no campo: CODIGOINTERNO


    Deletei o que não precisava.

    Segue o bd exemplo novamente.
    Anexos
    Exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (74 Kb) Baixado 6 vez(es)


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    tsenna
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 11/10/2013

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  tsenna em Qui 24 Out 2013, 12:25

    Consegui!
    Com um pouco de paciencia para a leitura e com a ajuda de vocês consegui.
    Vou colar aqui embaixo meu codigo adaptado para o que eu queria,
    para conhecimento Very Happy

    Private Sub novoregistro_Click()
    On Error GoTo Err_Novo_Click


    DoCmd.GoToRecord , , acNewRec
    Me.DATAINSERCAO = Date
    Me.Refresh
    Me.Recalc
    Me.CodigoPolo = "09"
    Me.ContaProjetos = DLast("[Expr1]", "[CON_Contar]")
    If DLast("[Expr1]", "[CON_Contar]") < 10 Then
    Me.CODIGOINTERNO = [CodigoPolo] & [TextDia] & [TextMes] & [TextAno] & "0" & [ContaProjetos]
    Else
    Me.CODIGOINTERNO = [CodigoPolo] & [TextDia] & [TextMes] & [TextAno] & [ContaProjetos]
    End If
    Exit_Novo_Click:
    Exit Sub

    Err_Novo_Click:
    MsgBox Err.Description
    Resume Exit_Novo_Click


    End Sub

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  Lupércio em Qui 24 Out 2013, 14:56

    O fórum agradece o retorno!


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  HARYSOHN em Qui 24 Out 2013, 18:43

    Boa mandada Lupercio!

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1134
    Registrado : 07/05/2011

    Re: [Resolvido] Contar data em uma coluna.

    Mensagem  Lupércio em Qui 24 Out 2013, 20:28

    Obrigado Piloto,Very Happy 


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sex 09 Dez 2016, 09:33