MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Consulta com Count, retornando o valor em um label

    avatar
    lspetrucci
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 23/12/2019

    [Resolvido]Consulta com Count, retornando o valor em um label Empty [Resolvido]Consulta com Count, retornando o valor em um label

    Mensagem  lspetrucci em 2/1/2020, 20:59

    Boa noite pessoal!!!

    Mais uma vez, conta com a ajuda de todos. Estou com uma dificuldade de fazer um select com count via VBA e exibir o resultado deste count em um label do formulário.

    Exemplo:

    No fomulário chamado dashboard eu tenho um label chamado "lb_online", este label tem que receber o valor a quantidade de registro de um select, onde, o critério será igual a "online".

    Vamos a estrutura da tabela
    =====================
    Nome tabela: Gerar
    Campos:

    ID -> Autonum
    Loja -> String
    Status -> String

    Estou usando o VBA com o código abaixo para fazer o select com o count, mas não sei se está correto e não sei como exibir o resultado deste select no label "lb_online".

    Function online()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSql As String


    strSql = "SELECT Count(Gerar.ID) AS conta ,Gerar.Loja, Gerar.Status FROM Gerar "
    strSql = strSql & " GROUP BY Gerar.Loja, Gerar.Status"
    strSql = strSql & " HAVING (((Gerar.Status) = 'Online'))"
    strSql = strSql & " ORDER BY Gerar.Status;"

    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSql)


    If Not rs.EOF Then

    VMat = rs
    MsgBox VMar


    End If
    End Function

    Obrigado a todos!!!!

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 21/04/2011

    [Resolvido]Consulta com Count, retornando o valor em um label Empty Re: [Resolvido]Consulta com Count, retornando o valor em um label

    Mensagem  Marcelo David em 3/1/2020, 12:24

    Bom dia e bom ano!
    Se é apenas um único resultado, basta usar a função de domínio Dcount.

    Código:
    Me.lb_online.caption = DCount("ID","Gerar","Status='online'")


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)
    avatar
    lspetrucci
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 23/12/2019

    [Resolvido]Consulta com Count, retornando o valor em um label Empty Consulta com Count, retornando o valor em um label

    Mensagem  lspetrucci em 3/1/2020, 12:42

    Show...muito obrigado.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 21/04/2011

    [Resolvido]Consulta com Count, retornando o valor em um label Empty Re: [Resolvido]Consulta com Count, retornando o valor em um label

    Mensagem  Marcelo David em 3/1/2020, 12:58

    Grato pelo retorno, o fórum agradece!


    .................................................................................
    Marcelo David
    https://www.freetool.dev (em construção)

      Data/hora atual: 27/10/2020, 04:01