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]Como usar a função Dcount

    Compartilhe
    avatar
    Carvalho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 19/01/2013

    [Resolvido]Como usar a função Dcount

    Mensagem  Carvalho em Ter 05 Ago 2014, 20:12

    Senhores boa tarde,



    Estou com um Proplema com essa função, é o seguinte tenho dois form em folha de dados uma com o nome de Tb_base e Sub_lista.

    A Tb_base tem os mesmo registros que a Sub_lista porem na Tb_base não se repete e a Sub_lista repete, queria colocar a função Dcount nos campos da Tb_base.



    Exemplo:

    Tb_base

    Campo1                     Qtd_Registro                         ResumoReceb
    001                                   2                                              2
    002                                   4                                              3
    003                                   2                    


    Sub_lista

    Campo1                        Recebimento
    001                                     ok
    001                                     ok
    002                  
    002                                     ok
    002                                     ok
    002                                     ok
    003
    003


    No aguardo!
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 747
    Registrado : 11/09/2013

    Re: [Resolvido]Como usar a função Dcount

    Mensagem  formiga10x em Ter 05 Ago 2014, 22:40

    Se for apenas contar os campos e enviar o resultado para uma textbox poderia ser:

    me.txtCaixaTexto = Dcount ("Campo_1","Tb_base")

    Caso seja contagem de uma lista pode ser assim:

    Dim C as Integer, SomaQtd As Double

    'Soma a quantidade

    For C = 1 To suaLista.ListCount - 1 'Caso a lista tenha cabeçalho use -1
    SomaQtd = SomaQtd + suaLista.Column(4, C)
    Next C
    Me.txtSomaQtd = SomaQtd


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    avatar
    Carvalho
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 19/01/2013

    Como usar a função Dcount

    Mensagem  Carvalho em Qua 06 Ago 2014, 17:07

    formiga, muito obg pela ajuda,

    Não era exatemente o que eu queria! mais dei uma estuda melhor sobre essa função e consegui fazer o que eu queria.


    Mesmo assim muito obg.



    Deus te abençoe.



      Data/hora atual: Qua 16 Ago 2017, 16:25