[Resolvido]Somar campos de um SubFormulario

Boa noite, a todos...

Aprendi muito aqui com todos no fórum... vejo que tem muitos aqui de grande saber em ACCESS.

Estou "tentando" finalizar um projeto de agendamento eletrônico. Quase finalizando. Mas infelizmente estou tendo algumas dificuldades para contar registro em um subformulario.

Tentei fazer um aprimoramento, mas não tenho conhecimento suficiente para tal.

Queria colocar uns contadores automáticos ... tipo quantos atendimento concluídos a mesa 1 fez, contas pessoas presente... no filtro abaixo no formulário.

A agenda entre 70 a 80 pessoas... já com os horários...

Nos comandos das datas tem a descrição: AGE: 70, gostaria de uma dica de colocar tipo 30/70, ou seja, 30 nomes preenchidos nos 70 registros disponíveis, não sei se é possível.

Bom é isto, se puder me dar umas dicas ou algum auxílio ficarei extremamente grato

Vou enviar o projeto para que todos entendam melhor. Selecionem o dia 03/04/2023.

Aceito dicas e sugestões.

Olá wjbenedito

Para contar o número de atendimentos, coloque como fonte de controle nos campos de mesa o código abaixo.

Código:


=DContar("*";"TbAgendamento";"[Status] = 'CONCLUIDO' AND [Atendimento] = 'MESA 1' AND [data] = #" & Format(Data();"mm/dd/yyyy") & "#")


Vale lembrar que após atualizar sub formulário, você deve inserir um comando para atualizar os campos do formulário principal, para que haja a recontagem dos pedidos finalizados.

Para contar os valores em "Total em situação de Status", utilize o código abaixo no evento "Após atualizar" do campo TxtStatus:

Código:



    'DECLARAR VARIÁVEL
    Dim Status As String
   
    'ATRIBUIR VALOR PARA A VARIÁVEL
    Status = Me.TxtStatus.Column(1)
   
    'CONTAR VALORES

    If Me.TxtStatus = "" Or IsNull(Me.TxtStatus) Then
        Me.TxtTotalStatus = DCount("*", "TbAgendamento", "[data] = #" & Format(Date, "mm-dd-yyyy") & "#")
    Else
        Me.TxtTotalStatus = DCount("*", "TbAgendamento", "[Status] = '" & Status & "'")
    End If



Muito obrigado.

Seu conhecimento de ACCESS foi muito preciso. Funcionou perfeitamente. TOP.
Continue assim dando apoio ao forum... precisamos de pessoas assim dispostas a ajudar e distribuir um pouco de seu saber em programação.

Agora só foi mais um detalhe nesta agenda, nas datas do calendário. Que ainda estou estudando uma forma para identificar uma solução.

Nos comandos das datas tem a descrição: AGE: 70, gostaria de colocar tipo 30/70, ou seja, 30 nomes preenchidos nos 70 registros disponíveis.

Cheguei perto mais não está contando direito..

Valeu amigo

No Private Sub atCalendario(), tente utilizar o seguinte código na linha 196:

Código:


cName.Caption = Day(dta) & vbNewLine & "---" & vbNewLine & "Age: " & DCount("*", "TbAgendamento", "Not IsNull([Nome]) AND [data] = #" & Format(dta, "mm-dd-yyyy") & "#") & "/" & QtdAgendamentoPorData(dta)


Boa Tarde,

Novamente só tenho a agradecer. Simplismente funcionou com exatidão. Até melhor que eu esperava.

Muito obrigado pelo apoio.

Sem a ajuda sua aqui do forum, jamais conseguiria termina sozinho.

Já estamos usando há dois dias. Esta sendo de grande ajuda e agilidade.

Notamos que no campo "Total em situação de Status" ele busca os dados não só do dia atual, mas sim de todo o banco de dados.

Mas isto é o de menos, depois tendo identificar por que isto ocorre.

Mas uma vez muito obrigado..

Basta incluir o critério de data atual. Segue código revisado.

Código:


    'DECLARAR VARIÁVEL
    Dim Status As String
   
    'ATRIBUIR VALOR PARA A VARIÁVEL
    Status = Me.TxtStatus.Column(1)
   
    'CONTAR VALORES

    If Me.TxtStatus = "" Or IsNull(Me.TxtStatus) Then
        Me.TxtTotalStatus = DCount("*", "TbAgendamento", "[data] = #" & Format(Date, "mm-dd-yyyy") & "#")
    Else
        Me.TxtTotalStatus = DCount("*", "TbAgendamento", "[data] = #" & Format(Date, "mm-dd-yyyy") & "# AND [Status] = '" & Status & "'")
    End If


Caro amigo Cristian Souza,

Muito obrigado pelo seu apoio. Sem sua ajuda não seria possivel terminar este projeto. Esta funcionando perfeitamente. Há meu ver está ótimo.

Obrigado a todos aqui do forum, temos muitos topicos muito bom...

Mas uma vez obrigado...

Perfeito amigo, que bom que deu certo.

Não se esqueça de marcar este tópico como "Resolvido".

Cumprimentos.