[Resolvido]Consulta vba + access

Bom dia, galera!

Estou com um problema em uma consulta sql no access. Se alguém puder me indicar o caminho a seguir, agradeço desde já.

Vou anexar um print do meu problema pq já escrevi em mil fóruns e não aguento mais escrever a mesma coisa hehe.

Aí vai:

Olá, seja bem vindo ao fórum!

Está tentando isso em um formulário simples ou formulário contínuo? Que valor é esse que deve ser inserido em Qretirada? De que forma esse valor deve ser inserido? Ao clicar em um botão? Todos os detalhes são importantes para agilizar o entendimento e acelerar uma possível solução.

Olá criquio, obrigado pela atenção!

O formulário é simples, o valor para retirada está em outra textbox. Essa parte de inserção de códigos no banco de dados eu até consigo fazer, o meu problema tá em usar o "select" para selecionar aquele código em outra tabela. Já tentei select com inner join e diversas outras maneiras. Tá difícil hehehe. Por exemplo, para selecionar na primeira tabela o código digitado na textbox de procura eu estava utilizando este comando. Mas ele precisa ser complementado

ComandoSQL = "select * from tb_pacabado where tb_pacabado.pacabado like '" & id & "'"

Se bem entendi você quer selecionar o registro caso o código digitado dele esteja na segunda tabela, é isso? Se for do jeito que estou entendendo não precisa colocar a primeira tabela na sql, apenas a segunda:

Código:

Me.RecordSource = "SELECT * FROM tb_pagranelb WHERE Pgranel = " & Me.campoDoForm

sendo "campoDoForm" o nome do campo aonde irá digitar o código a ser pesquisado. Estou supondo que o campo desse código, na tabela, está no formato Número. Se estiver no formato Texto precisará incluir aspas simples no nome do campo do form:

Código:

Me.RecordSource = "SELECT * FROM tb_pagranelb WHERE Pgranel = '" & Me.campoDoForm & "'"

Criquio, o código digitado na textbox1 seleciona o produto pela coluna "pacabado" na tabela1, depois de selecionado este item eu preciso que a coluna código, também da tabela 1, seja buscada em outra coluna na tabela 2. Se este código estiver na tabela2, selecionar este item pra eu atribuir um valor nesse registro. Não sei se consegui ser mais claro...

Na verdade acho que não entendi. A intenção não é o código procurado estar no campo Pgranel na tabela 2? Se esse código está nessa segunda tabela, creio que ele também está na primeira e então a primeira não precisa ser envolvida na questão. Ou então realmente ainda não entendi

Sim, mas o código procurado pela textbox não é a coluna "código", e sim a coluna "pacabado". E eu preciso que ele verifique na tabela2 se existe a coluna "código" e não a coluna "pacabado". Mas pra ele pesquisar a coluna "código"na tabela 2, eu preciso que a coluna "pacabado" já esteja selecionada pelo critério do código inserido na textbox de busca hehehehe

Ainda não consegui entender. Até agora ainda estou achando que a tabela 1 não precisa ser envolvida na questão. A coluna código me parece estar presente em todas as linhas da tabela 2.

Não sei se esse código te esclarece melhor. Falaram pra eu usar esse comando em um fórum:

ComandoSQL = "select tb_pacabado.código, tb_pacabado.pacabado, tb_pagranelb.pgranel from tb_pacabado inner join tb_pagranelb on tb_pacabado.código = tb_pagranelb.pgranel"

Porém não consigo adaptar o código anterior junto com esse abaixo:

select * from tb_pacabado where tb_pacabado.pacabado like '" & id & "'"

No início eu tinha pensado no inner join mas ainda não estou conseguindo entender qual relação tem a tabela 1 com a tabela 2 para essa pesquisa. A tabela 2 me parece ter todos os dados que precisa para essa pesquisa.

As colunas "código" das duas tabelas são diferentes, não possuem os mesmos códigos (produtos diferentes).
A coluna "número" é só uma numeração automática, não vai afetar em nada.
As colunas que possuem os mesmos valores são "código"(tabela1) e "Pgranel"(tabela2). São essas duas colunas que eu preciso cruzar os dados.
Só que pra cruzar esses dados, antes eu preciso fazer uma verificação que selecione pela coluna Pacabado(tabela1) através da textbox que vai ser onde o código vai ser colocado pra realizar a consulta.

Valeu pela ajuda aí, criquio, mesmo não nos entendendo hahaha

As colunas que possuem os mesmos valores são "código"(tabela1) e "Pgranel"(tabela2)

Mas é isso que estou falando ou pelo menos tentando entender. Se todos os "Pgranel(tabela2)" estão em "código(tabela1)", me parece não precisar citar a tabela 1 na SQL.

Se ainda não o fez, tente a dica que passei usando apenas a segunda tabela para ver se não retorna o que precisa. Se não retornar, poste um exemplo gráfico do resultado esperado, identificando os campos de ambas tabelas envolvidos, a relação entre eles e o resultado que deve aparecer no formulário.

Ok! Não consegui através daquele comando. Isto pq a tabela1 possui 1500 registros, e na coluna "código" tem valores repetidos (produtos repetidos). Por isso que preciso selecionar primeiro a coluna "Pacabado" a partir do código que for digitado na textbox de busca. Com o produto definido a partir dessa busca, verificar se os códigos da coluna "Código" estão na coluna Pgranel da tabela2.

Vou tentar adaptar seus códigos novamente e se não conseguir eu posto gráficos

Vamos para a última tentativa, criquio! Hehe

Aqui está o formulário com a consulta do produto 2984:



Eu preciso que o código que eu digitei na textbox (2984) seja procurado na tabela1 (tb_pacabado) na coluna Pacabado porque eu preciso que me retorne a composição desse produto, são vários itens, conforme a figura abaixo:


Após isso eu preciso que os códigos da coluna "Código" (tabela1) sejam consultados na tabela2 (tb_pagranelb) para ver se eles existem na coluna Pgranel. Se existir na coluna Pgranel algum dos Códigos(coluna Código) da tabela1, então eu realizo uma operação matemática na Qretirada.

No caso do exemplo a seguir, eu realizei a pesquisa do produto 2984, me retornou a composição deste produto na coluna "código": 440; 2191; 2986 e assim por diante. Então eu preciso que ele pesquise estes códigos para ver se eles existem na coluna Pgranel da tabela 2. Pode-se notar que o 2191 consta na coluna Pgranel. Então, por fim, que em todas linhas que o Pgranel 2191 estiver faça a operação na coluna Qretirada.

Criquio, eu estava fazendo o comando certo até agora, porém o erro que dava era o 3027 - Não é possível efetuar a atualização pois o banco de dados é somente leitura. Como aparecia isto eu achava que era erro no código.

ComandoSQL = "SELECT * from tb_pagranelb, tb_pacabado where tb_pacabado.pacabado like '" & id & "' and tb_pacabado.código = tb_pagranelb.pgranel"

Foi este o código que utilizei. A seleção que faz no banco de dados tá correta, porém na Coluna Qretirada da tb_pagranelb eu não consigo adicionar nada a este registro pois está dando esse erro.

Obrigado!