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


    [Resolvido]SQL - Actualizar Query com Select

    avatar
    dave123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 07/03/2011

    [Resolvido]SQL - Actualizar Query com Select Empty SQL - Actualizar Query com Select

    Mensagem  dave123 11/1/2012, 00:18

    Olá

    Estava a precisar de uma ajuda.

    Tenho uma query e gostava que o seu filtro fosse alterando durante a execução do programa.

    Ou seja, tenho uma QueryDados , e mediando a variavel que me aparecer numa combox gostava que o filtro alterasse

    Queria algo genero

    CurrentDb.Execute ("Select * From QueryDados Where painel ='" & Combo18 & "'")

    Mas este comando só funciona se for uma tabela ...como faço para uma Query?

    Obrigado ajuda
    avatar
    Convidad
    Convidado


    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  Convidad 11/1/2012, 08:06

    Olá

    O método Execute só funciona com consultas ação.

    Uma ideia seria colocar o filtro direto no critério do campo da consulta:

    [Forms]![NomeSeuForm]![NomeSuaCombo]
    avatar
    dave123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 07/03/2011

    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  dave123 11/1/2012, 10:38

    Mas não há hipotese de o fazer via SQL .... sem ter de escrever directamente filtro?
    avatar
    Convidad
    Convidado


    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  Convidad 11/1/2012, 11:18

    Em que situação você usa a consulta?
    avatar
    dave123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 07/03/2011

    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  dave123 11/1/2012, 11:44

    Basicamente tenho um form (Alarmes) no qual tem incluido um subform (SubAlarmes).

    O subform (SubAlarmes) é preenchido através dos campos de uma consulta (ConsultaAlarmes).

    O filtro realizado nessa consulta depende do que o utilizador for escolhendo na Combobox que está no Form (Alarmes).

    O que queria é que o subform (SubAlarmes) fosse alterando conforme o que for seleccionado na Combobox.

    Em VBA.

    avatar
    Convidad
    Convidado


    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  Convidad 11/1/2012, 12:25

    Penso que então precisa manipular a origem do registro do subform.
    Tente algo assim:

    Private Sub Combo18_AfterUpdate()
    If Not IsNull(Me.Combo18) Then
    Me.SubAlarmes.RecordSource = "SELECT ... WHERE ((NomeTabela.painel)=[Forms]![Alarmes]![Combo18])"
    Forms!Alarmes!SubAlarmes.Requery
    End If
    End Sub

    avatar
    dave123
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 07/03/2011

    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  dave123 11/1/2012, 14:19

    Obrigado pela ajuda

    acabei por usar o:

    CurrentDb.QueryDefs("[NomeQuery]").SQL = "Select * From (Tabela] Where Painel = '" & Combo18 & "'"

    Funcionou bounce
    avatar
    Convidad
    Convidado


    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  Convidad 11/1/2012, 14:25


    Grato pelo retorno!

    Conteúdo patrocinado


    [Resolvido]SQL - Actualizar Query com Select Empty Re: [Resolvido]SQL - Actualizar Query com Select

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2024, 13:14