MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    avatar
    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 Empty [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
    avatar
    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 Empty 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
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Execução de consulta baseada em textbox Empty 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: 28/10/2020, 08:37