Meu objetivo é localizar um produto em um Form pesq_prod e uma vez localizado captar o código dele e transferir este código para o form de vendas inserindo o código na combo codigo_produto. Consigo fazer a transf. porém quando o código entra na combo sou obrigado a abrir a combo e dar um clique para que realmente o código entre e a venda se efetue. Teria como evitar este clique?
3 participantes
Transferir código de um produto de um form para outro
Gilson40- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 18/07/2011
formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 10/09/2013
Boa tarde Geilson.
Este código vc está importando de uma lista?
Este código vc está importando de uma lista?
Gilson40- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 81
Registrado : 18/07/2011
- Mensagem nº3
Importar de Lista
Como disse tenho um form que lista todos os produtos que tenho e ali localizo o que eu quero e ao lado tenho um botão transferir. Este botão transfere o codigo_produto para uma String Global e o leva até o outro form largando este código na combo. O problema é que o código entra na combo mas me obriga a ir lá com o mouse e selecionar de novo este código para dar o Start e finalmente a entrada do produto na venda.
RDuarte- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 39
Registrado : 22/11/2012
Gilson, boa dia.
Verifica esse código e faça a adaptação para o seu propósito, ok.
Private Sub cmdExportar_Click()
On Error GoTo Err_cmdExportar_Click
[Forms]![Consulta de Preços]![txtCodigo] = Me.codProduto 'Aqui você coloca o nome do formulário 'Vendas'
MsgBox ("Transferência realizada com sucesso!"), vbInformation, "Aviso"
DoCmd.Close acForm, Me.Name
Exit_cmdExportar_Click:
Exit Sub
Err_cmdExportar_Click:
MsgBox Err.Description
Resume Exit_cmdExportar_Click
End Sub
Espero ter ajudado.
Sem mais, RDuarte.
Verifica esse código e faça a adaptação para o seu propósito, ok.
Private Sub cmdExportar_Click()
On Error GoTo Err_cmdExportar_Click
[Forms]![Consulta de Preços]![txtCodigo] = Me.codProduto 'Aqui você coloca o nome do formulário 'Vendas'
MsgBox ("Transferência realizada com sucesso!"), vbInformation, "Aviso"
DoCmd.Close acForm, Me.Name
Exit_cmdExportar_Click:
Exit Sub
Err_cmdExportar_Click:
MsgBox Err.Description
Resume Exit_cmdExportar_Click
End Sub
Espero ter ajudado.
Sem mais, RDuarte.
» [Resolvido]Transferir valores de um form para outro
» [Resolvido]Copiar Campo Código de Form de Pesquisa para Outro Form Lançamento
» Transferir dados de um campo para outro de um outro formulario acoplado
» [Resolvido]transferir combinação para cx texto outro formulario
» [Resolvido]Como transferir dados de um formulário para outro?
» [Resolvido]Copiar Campo Código de Form de Pesquisa para Outro Form Lançamento
» Transferir dados de um campo para outro de um outro formulario acoplado
» [Resolvido]transferir combinação para cx texto outro formulario
» [Resolvido]Como transferir dados de um formulário para outro?