henrique-albano

Boa tarde, Mais uma duvida em VBA :unsure: Seguinte tenho uma tabela de produtos e quero fazer uma consulta através do código, para saber a quantidade em estoque do produto, porém queria que ficasse assim: Em um formulário houvesse uma caixa de texto pedindo para digitar o código, e após clicar no botão para pesquisa aparecesse o resultado no mesmo formulário onde se encontram a caixa de texto e o botão de pesquisa isso em vba Ex: a pessoa digita o código e após clicar em pesquisar, aparece logo abaixo o resultado de sua pesquisa, não precisando abrir um novo formulário desde já, agradeço

Iceguy, desculpe a demora para resposta Form!cb!Tab_Produtos­­_Fornecedor2_add isto era para indicar o Formulario Tab_Produtos­­_Fornecedor2_add na coluna cb :blush: Bem Iceguy, obrigado pela tua dica, não consegui executar este codigo que você me passou, porém fiz de outra forma, minha intenção era que o usuario procurasse um produto e se este produto não estivesse cadastrado retornaria uma msgem de alerta, fiz isto de uma outra forma e deu ceto, mas mesmo assim Obrigado pela tua dica! Abraços

Boa tarde, estou tentando a tarde inteira resolver isto, mas esta dificil, sou novato nesta area de VBA em access, então se eu disser alguma besteira me desculpem, seguinte: no código abaixo eu quero que na hora que a pessoa digite um código de barras ou faça a leitura pelo leitor de barcode ele já entre na tela de atualização de estoque, o problema esta em: If cb.Value = Form!cb!Tab_Produtos­­_Fornecedor2_add Then nesta linha eu quero dizer que Se o codigo digitado (campo cb) for igual a qualquer linha da coluna cb da tabela do fornecedor 2 For verdadeiro executa o resto do codigo, porém não esta certo essa linha de codigo quando eu digito um código verdadeiro e clico no botão cns retorna a mensagem: "O procedimento Property Let não foi definido e o procedimento Property Let não retornou um objeto " Private Sub cns_Click() If cb.Value = Form!cb!Tab_Produtos­­_Fornecedor2_add Then DoCmd.OpenForm "Tab_Produtos­­_Fornecedor2_add", , "cb", "cb=" & cb Else MsgBox "Produto não cadastrado, Contate o Administrador", vbExclamation, Estoque End If End Sub Desde já agradeço