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]Converter consulta SQL para código VBA

    avatar
    DiegoJuanSilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 25/01/2018

    [Resolvido]Converter consulta SQL para código VBA Empty [Resolvido]Converter consulta SQL para código VBA

    Mensagem  DiegoJuanSilva em Seg 07 Out 2019, 11:25 am

    Olá, estou com uma dúvida em um código em SQL e estou precisando de ajuda.

    Criei a seguinte consulta:

    Código:
    SELECT [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodCotacao, [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodFornecedor, clientes.APELIDO, [T/Compras/Improdutivos/Cotacoes].Ganhador, [T/Compras/Improdutivos/Cotacoes].CodProduto, [T/Compras/Improdutivos/Cotacoes].Quantidade, [T/Compras/Improdutivos/Cotacoes/Fornecedores].Preco, [T/Compras/Improdutivos/Cotacoes].Status, [T/Compras/Improdutivos/Cotacoes].DataCompra, [T/Compras/Improdutivos/Cotacoes].Comprador
    FROM clientes INNER JOIN ([T/Compras/Improdutivos/Cotacoes/Fornecedores] INNER JOIN [T/Compras/Improdutivos/Cotacoes] ON [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodCotacao = [T/Compras/Improdutivos/Cotacoes].Codigo) ON (clientes.CGC = [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodFornecedor) AND (clientes.APELIDO = [T/Compras/Improdutivos/Cotacoes].Ganhador)
    WHERE ((([T/Compras/Improdutivos/Cotacoes/Fornecedores].CodFornecedor)=[Formulários]![F112A-F/Compras/Improdutivos/PedidosCompraDigitacao]![CodFornecedor]) AND (([T/Compras/Improdutivos/Cotacoes].Status)="Aprovado"));
    [/b]

    Essa consulta me retorna os valores corretamente, Porém estou precisando acessar e manipular ela em código VBA através do CurrentDb.OpenRecordset. Converti o código e acabou assim:

    Código:

    Dim varItemCotacao As DAO.Recordset
    Set varItemCotacao = CurrentDb.OpenRecordset("SELECT DISTINCTROW [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodCotacao," _
        & " [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodFornecedor," _
        & " [clientes].APELIDO," _
        & " [T/Compras/Improdutivos/Cotacoes].Ganhador," _
        & " [T/Compras/Improdutivos/Cotacoes].CodProduto," _
        & " [T/Compras/Improdutivos/Cotacoes].Quantidade," _
        & " [T/Compras/Improdutivos/Cotacoes/Fornecedores].Preco," _
        & " [T/Compras/Improdutivos/Cotacoes].Status," _
        & " [T/Compras/Improdutivos/Cotacoes].DataCompra," _
        & " [T/Compras/Improdutivos/Cotacoes].Comprador" _
        & " FROM clientes" _
        & " INNER JOIN ([T/Compras/Improdutivos/Cotacoes/Fornecedores]" _
        & " INNER JOIN [T/Compras/Improdutivos/Cotacoes]" _
        & " ON [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodCotacao = [T/Compras/Improdutivos/Cotacoes].Codigo)" _
        & " ON clientes.APELIDO = [T/Compras/Improdutivos/Cotacoes].Ganhador" _
        & " AND clientes.CGC = [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodFornecedor" _
        & " WHERE [T/Compras/Improdutivos/Cotacoes/Fornecedores].CodFornecedor = " & [Formulários]![F112A-F/Compras/Improdutivos/PedidosCompraDigitacao]![codFornecedor] & "" _
        & " AND [T/Compras/Improdutivos/Cotacoes].Status = 'Aprovado';")
    varItemCotacao.MoveFirst

    Quando executo o código ele acusa o seguinte erro:
    "Erro em tempo de execução '2465':
    O Microsoft Access não pode localizar o campo '|1' referido em sua expressão."

    Acredito que seja erro de sintaxe, mas olhei o código várias vezes e não encontrei.

    Será que alguém poderia ver isso, as vezes é erro simples que o dono da obra acaba não vendo e outros olhos conseguirão.

    Agradeço desde já a atenção de todos que lerem esse post.
    avatar
    DiegoJuanSilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 25/01/2018

    [Resolvido]Converter consulta SQL para código VBA Empty Mudança de planos

    Mensagem  DiegoJuanSilva em Seg 07 Out 2019, 7:52 pm

    Boa tarde,

    Passei a tarde toda quebrando a cabeça com isso. Pensando melhor irei por outro caminho onde eu não precise dessa consulta.

    Agradeço a todos pela atenção.

      Data/hora atual: Sab 31 Out 2020, 12:48 am