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

    Criar consulta temporária via vba

    Compartilhe

    Ribar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/08/2013

    Criar consulta temporária via vba

    Mensagem  Ribar em Ter 05 Ago 2014, 17:58

    Olá pessoal,

    Necessito aprender como se criar consulta temporária via vba,

    Consigo fazer a consulta buscando os campos em uma tabela existente, e ordenar campo desejado, mais não consigo criar um filtro utilizando uma caixa de combinação do meu formulário, veja o código abaixo.

    Private Sub Btn_FiltroNome2_Click()

    CurrentDb.QueryDefs.Delete ("Cst_Temp")
    Set qdf = DBEngine(0)(0).CreateQueryDef("Cst_Temp", "SELECT [Tbl_Produto].TagNOME1,[Tbl_Produto].TagNOME2,[Tbl_Produto].TagNOME3,[Tbl_Produto].TagNOME4,[Tbl_Produto].TagNOME5,[Tbl_Produto].TagNOME6 FROM Tbl_Produto order by Tbl_Produto.TagNOME2")

    End Sub

    Gostaria de saber como criar um código para a consulta temporária para filtrar um determinado campo da tabela, selecionado na combobox do formulário.

    Exemplo: quero filtrar o campo TagNOME1 como os regitros escolhido pela minha caixa de combinação (combobox)

    Legenda:
    Tbl_Produto = Nome da tabela
    TagNOME1/2/3/4/5/6 = Nomes dos campos na Tbl_Produto
    Cst_Temp = Nome da consulta temporária

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Criar consulta temporária via vba

    Mensagem  Marco Messa em Qui 25 Set 2014, 15:33

    Já tentou concatenar?

    Código:

    Private Sub Btn_FiltroNome2_Click()

    CurrentDb.QueryDefs.Delete ("Cst_Temp")
    Set qdf = DBEngine(0)(0).CreateQueryDef("Cst_Temp", "SELECT [Tbl_Produto].TagNOME1,[Tbl_Produto].TagNOME2,[Tbl_Produto].TagNOME3,[Tbl_Produto].TagNOME4,[Tbl_Produto].TagNOME5,[Tbl_Produto].TagNOME6 FROM Tbl_Produto where TagNOME1 = " & Combobox.Value & " order by Tbl_Produto.TagNOME2")

    End Sub


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 04 Dez 2016, 01:52