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

    setar critério de consulta pelo vb

    Compartilhe

    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

    setar critério de consulta pelo vb

    Mensagem  cakanilo em Ter 24 Jun 2014, 14:10

    bom dia, gostaria de setar um valor para o critério de uma consulta usando o vba.

    ex: nome: joao

    isso pelo vba como poderia fazer isso?

    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1574
    Registrado : 12/11/2009

    Re: setar critério de consulta pelo vb

    Mensagem  Leandro em Ter 24 Jun 2014, 17:15

    Olá!

    Você pode construir a SQL pelo VBA, mas primeiro é preciso saber onde você quer utilizar essa consulta, relatório, formulário ou outro tipo de objeto.


    .................................................................................




    Algumas soluções em access



    Menu Treeview

    Restringir valores já lançados em caixa de combinação - Texto

    Restringir valores já lançados em caixa de combinação - Valores numéricos



    cakanilo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 09/04/2011

    Re: setar critério de consulta pelo vb

    Mensagem  cakanilo em Ter 24 Jun 2014, 18:38

    eu preciso indicar para uma consulta que tem meses de janeiro a dezembro que o mes atual receberá = 0 de acordo com o select case abaixo: para depois realizar o envio de e-mail.


    Mes = Me.Mes


    Select Case Me.Mes
    Case 1
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaJan")
    Case 2
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaFev")
    Case 3
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaMar")
    Case 4
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaAbr")
    Case 5
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaMai")
    Case 6
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaJun")
    Case 7
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaJul")
    Case 8
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaAgo")
    Case 9
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaSet")
    Case 10
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaOut")
    Case 11
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaNov")
    Case 12
    'Abre um recordset
    Set RsEmails = CurrentDb.OpenRecordset("ConsMailFrequenciaDez")
    VarMes = RsEmails.Fields("Freq_Fev")

    End Select



    Leandro
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1574
    Registrado : 12/11/2009

    Re: setar critério de consulta pelo vb

    Mensagem  Leandro em Qui 26 Jun 2014, 11:56

    Desculpa, mas ainda não entendi!  Sad 


    .................................................................................




    Algumas soluções em access



    Menu Treeview

    Restringir valores já lançados em caixa de combinação - Texto

    Restringir valores já lançados em caixa de combinação - Valores numéricos



    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

    Re: setar critério de consulta pelo vb

    Mensagem  Gilberto Rocha em Qui 26 Jun 2014, 12:51

    Para passar valores de critério para a consulta faça o seguinte:

    Em um novo módulo crie uma variável global
    Global SuaVariavel as String

    Public Function fncFiltra()
    fncFiltra = SuaVariavel
    End function

    Antes de gerar a consulta passe o valor que deseja para a variável SuaVariavel, exemplo
    SuaVariavel = me.Mes

    E na sua consulta no campo que deseja filtrar coloque no critério a função fncFiltra()

    Não sei se é isso que deseja, mas...


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Baixe o sistema Congrega Fácil Online: Baixe aqui
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    Faça Faculdade Teológica Online: Baixe aqui
    [Você precisa estar registrado e conectado para ver este link.]

    Batalha Bíblica, teste gratis!
    [Você precisa estar registrado e conectado para ver este link.]


    Analista de Controladoria

      Data/hora atual: Sex 09 Dez 2016, 03:49