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]Execução de consulta baseada em textbox

    Compartilhe

    suel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 06/05/2013

    [Resolvido]Execução de consulta baseada em textbox

    Mensagem  suel em 11/8/2014, 21:35

    Olá Pessoal,

    O problema é o seguinte criei um botão pra executar uma consulta e mostrar o resulta ao usuário, mas ao clicar dá o seguinte erro: "Erro em tempo de execução 7874 e diz q não pode localizar o objeto"

    Código:
            Comando = "SELECT * FROM tb_Obra WHERE codEmpreendimento = " & txtCodEmpreendimento & ""
            DoCmd.OpenQuery Comando, acViewNormal, acReadOnly

    Agradeço a ajuda

    suel
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 06/05/2013

    Re: [Resolvido]Execução de consulta baseada em textbox

    Mensagem  suel em 12/8/2014, 17:35

    Pessoal consegui resolver com o seguinte código no botão:
    Código:
    Private Sub btnDadosObra_Click()
        'cria consulta única que utiliza diversos critérios
        Dim Sql As String
     
        Sql = " SELECT * "
        Sql = Sql & " FROM tb_Obra"
        'where
        Sql = Sql & " WHERE codEmpreendimento = " & txtCodEmpreendimento & ""
       
        Dim db As DAO.Database
        Set db = CurrentDb()
        Dim rs As DAO.Recordset
        Set rs = db.OpenRecordset(Sql)
     
        If Not rs.EOF Then 'verifica se a consulta retornou vazia
        Else
            MsgBox "Nenhum registro encontrado", vbInformation, sTit
            Exit Sub
        End If
     
        ApagaConsulta
        'Cria Consulta
        Dim qry As DAO.QueryDef
        Set qry = db.CreateQueryDef("Dados_Obra", Sql)
       
        'Mostra consulta criada
        DoCmd.OpenQuery "Dados_Obra", acViewNormal, acReadOnly

    End Sub

    Obrigado pela atenção

    Edgar Massa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/01/2017

    Re: [Resolvido]Execução de consulta baseada em textbox

    Mensagem  Edgar Massa em 25/12/2017, 21:08

    Cara, consegue me ajudar?
    utilizei seu código pra trazer uma consulta sql num textbox mais retornou o seguinte erro.

    "caracteres encontrados após o final da instrução sql"

      Data/hora atual: 14/11/2018, 11:51