boa noite amigos do fórum mais uma vez preciso da ajuda dos senhores . tenho um formulário produtos - compras nele contem uma caixa de combinação onde seleciono ref código de barra preciso que ao selecionar uma ref que o mesmo traga o nome do produto que esta na tabela produtos inserir obrigado!
2 participantes
[Resolvido]trazer nome do produto com seleção da ref em caixa de combinação
Nogaro513- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 482
Registrado : 12/08/2013
formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 11/09/2013
Veja um Exemplo:
- Código:
'AQUI FAZ-SE A VERIFICAÇÃO SE O CÓDIGO EXISTE NA TABELA
If DCount("CodBarra", "Produto", "CodBarra ='" & Me.txtCodBarra & "'") Then
'SE SIM UTILIZA-SE DA FUNÇÃO DLOOKUP PARA BUSCAR OS DADOS DA TABELA DE ACORDO COM O CÓDIGO DE BARRAS.
Me.txtqtd = DLookup("qtdEstoque", "Produto", "CodBarra ='" & Me.txtCodBarra & "'")
Me.txtValor = DLookup("ValorUnitario", "Produto", "CodBarra ='" & Me.txtCodBarra & "'")
Me.txtDescricao = DLookup("Descricao", "Produto", "CodBarra ='" & Me.txtCodBarra & "'")
Me.txtLocalFoto = DLookup("LocalFoto", "Produto", "CodBarra='" & Me.txtCodBarra & "'")
'SENÃO
Else
If MsgBox("Nenhum Produto Faz Referência à Este Código. Gostaria de Abrir o Formulário de Busca de Produtos?", vbYesNo + vbExclamation, "*** CEV - Controle de Estoque e Vendas ***") = vbYes Then
Me.txtCodBarra = Null
Exit Sub
End If
End If
.................................................................................
Abraço
Formiga10x
Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
“Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
Formiga10x
Formiga10x
"Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
- Maurice Vicent Wilkes
- Maurice Vicent Wilkes
Nogaro513- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 482
Registrado : 12/08/2013
- Mensagem nº3
onde coloco este código ,caixa de combinação
caro amigo Formiga , obrigado por me ajudar este código que me enviou como vou inserir e onde obrigado
formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 11/09/2013
Bom o código é um exemplo para seguir pois não sei como está o seu bd. Seria legal se você postasse o bd junto com a dúvida...
Veja você deve ter uma caixa de texto ou cbo na qual você digita o código. Pois bem no evento ao sair ou após atualizar você coloca o código alterando os nomes dos objetos.
Veja você deve ter uma caixa de texto ou cbo na qual você digita o código. Pois bem no evento ao sair ou após atualizar você coloca o código alterando os nomes dos objetos.
.................................................................................
Abraço
Formiga10x
Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
“Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
Formiga10x
Formiga10x
"Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
- Maurice Vicent Wilkes
- Maurice Vicent Wilkes
Nogaro513- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 482
Registrado : 12/08/2013
- Mensagem nº5
formiga este é o banco de dados
clique no botão adicionar compras e inserir cadastro de produtos abraço nogaro
- Anexos
- Vendas Nogaro -.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (562 Kb) Baixado 26 vez(es)
formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 11/09/2013
Criei uma caixa de texto de nome txtDescricao e inseri o código na cboRef no evento após atualizar.
Dica...
Evite espaços e acentos nos nomes tanto no formulário como nas tabelas.
- Código:
Me.txtDescricao = DLookup("[Produto]", "[Produtos Inserir]", "Ref ='" & ref & "'")
Dica...
Evite espaços e acentos nos nomes tanto no formulário como nas tabelas.
- Anexos
- Vendas Nogaro -.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (121 Kb) Baixado 56 vez(es)
.................................................................................
Abraço
Formiga10x
Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
“Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
Formiga10x
Formiga10x
"Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
- Maurice Vicent Wilkes
- Maurice Vicent Wilkes
Nogaro513- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 482
Registrado : 12/08/2013
Formiga muito obrigado estou grato por ter resolvido meu Bd vendas muito agradecido mesmo. abraço !
formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 11/09/2013
O fórum agradece o retorno.
.................................................................................
Abraço
Formiga10x
Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
“Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
Formiga10x
Formiga10x
"Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
- Maurice Vicent Wilkes
- Maurice Vicent Wilkes
Conteúdo patrocinado
» [Resolvido]Preenchimento automático da caixa de seleção após seleção de caixa de combinação
» [Resolvido]Caixa de combinação mostro seu conteúdo em função da seleção de outra Caixa de combinação
» [Resolvido]Preencher Caixa de Combinação em função de seleção feita em outra Caixa de Combinação
» [Resolvido]Trazer informação de uma Caixa de Combinação do Formulário anterior para o atual como Caixa de Texto ou Rótulo
» [Resolvido]Ocultar produto da caixa de combinação
» [Resolvido]Caixa de combinação mostro seu conteúdo em função da seleção de outra Caixa de combinação
» [Resolvido]Preencher Caixa de Combinação em função de seleção feita em outra Caixa de Combinação
» [Resolvido]Trazer informação de uma Caixa de Combinação do Formulário anterior para o atual como Caixa de Texto ou Rótulo
» [Resolvido]Ocultar produto da caixa de combinação