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]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 7/10/2019, 12:25

    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 7/10/2019, 20:52

    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: 16/12/2019, 10:50