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]Retornar valor de consulta

    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Retornar valor de consulta Empty [Resolvido]Retornar valor de consulta

    Mensagem  Peutrindade 22/2/2015, 18:34

    Boa tarde, pessoal

    tenho uma consulta que contem a coluna ContarDeTurma.
    Como faço para retornar o valor da coluna no evento BeforeUpdate de uma combobox?
    Estou tentando essa forma:

    MsgBox "Turma com " & Cons_Quant_Alunos.ContarDeTurma & " alunos!", vbInformation, "Atenção!!"

    Mas aparece a mensagem de erro de compilação: variável não definida.

    O que está faltando? Ou melhor, Como definir a variavel cons_quant_alunos?
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  formiga10x 22/2/2015, 18:57

    Tente assim.
    MsgBox ("Turma com: " & Cons_Quant_Alunos.ContarDeTurma & ""), vbInformation, "Atenção"



    .................................................................................
    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
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  Peutrindade 22/2/2015, 19:04

    Obrigado, amigo

    mas continua aparecendo a mesma mensagem de erro.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  formiga10x 22/2/2015, 19:06

    Você quer retornar uma coluna de uma combo isso?

    Se sim tente:

    MsgBox ("Turma com: " & Cons_Quant_Alunos.ContarDeTurma & ""), vbInformation, "Atenção"

    me.NomeDaCombo.Column(Numero da coluna onde está o valor que deseja)


    .................................................................................
    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
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  Peutrindade 22/2/2015, 19:43

    Tentei da forma que vc postou e de novo não obtive sucesso. Obrigado de qualquer forma. Vou rever meus rascunhos e ver se consigo resolver.
    O que eu quero é retornar um valor de uma consulta que representa a quantidade de alunos de uma turma.
    Antes de matricular um novo aluno na turma, o que faço através de uma combobox, quero que apareça uma mensagem com a quantidade de alunos já matriculados na turma.

    Private Sub Combinação104_BeforeUpdate(Cancel As Integer)

    MsgBox "Turma com " & Cons_Quant_Alunos.ContarDeTurmPrat & " alunos!", vbInformation, "Atenção!!"

    End Sub
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  formiga10x 22/2/2015, 20:00

    O que eu quero é retornar um valor de uma consulta que representa a quantidade de alunos de uma turma.
    Antes de matricular um novo aluno na turma, o que faço através de uma combobox, quero que apareça uma mensagem com a quantidade de alunos já matriculados na turma.

    humm

    Dim IntQtd as Integer

    IntQtd = Dcount("nomeCampo", "nomeTabela")

    MsgBox ("Turma com: " & IntQtd & ""), vbInformation, "Atenção"


    "Sem postar o banco fica difícil, por não saber os objetos envolvidos."
    Anexos
    [Resolvido]Retornar valor de consulta AttachmentalunoTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 13 vez(es)


    .................................................................................
    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
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  Peutrindade 22/2/2015, 22:39


    Ainda não deu certo, mas chegou perto. O problema é que eu não quero o valor da soma da coluna e sim o valor de um campo específico, ou seja, o referente à turma em questão.
    DSum está retornando a soma das quantidades de alunos de todas as turmas.

    obrigado pelas tentativas.
    Vou tentar mandar o banco
    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  Peutrindade 22/9/2022, 20:02

    Obrigado

    Conteúdo patrocinado


    [Resolvido]Retornar valor de consulta Empty Re: [Resolvido]Retornar valor de consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/4/2024, 11:58