[Resolvido]Botão para Incluir produto da venda

Bom dia Pessoal!

mais uma vez precisando da ajuda de Vocês...

Nesse meu anexo abaixo, trata se de banco de venda, onda na tela de venda existem as caixa (ListBox) para localizar os produto de venda.
Ao selecionar o produto para venda usuário vai clicar no botão de incluir, onde ele deveria incluir o produto no subforms abaixo.




Alguém poderia me ajuda ?

Alguém ?

Boa tarde, tente algo assim:

Private Sub Comando638_Click()
Dim EstoqueAtual
Dim EstoqueMinimo
Dim RespostaIncluir
'Verifica qual é o estoque minimo do produto lanchado na caixa de cod
'EstoqueMinimo = DLookup("Minimo", "CS_MOV_Estoque_Compra_Venda", "CodProduto ='" & Me.CBOCodProduto & "'")
'verifica qual o valor do produto lanchado e se tem estoque
EstoqueAtual = TXTEstoque - TXTQuantidade

If IsNull(CBOCodProduto) Then
MsgBox "A seleção do produto é obrigatória", vbInformation, "Atenção"
Exit Sub
ElseIf IsNull(CBODescricao) Then
MsgBox "A seleção do produto é obrigatória", vbInformation, "Atenção"
Exit Sub
ElseIf EstoqueMinimo = TXTEstoque Then
MsgBox "Produto entrando no estoque Miníno", vbInformation, "Atenção"
ElseIf EstoqueAtual < EstoqueMinimo Then
RespostaIncluir = MsgBox("Produto esta com o Estoque abaixo, Deseja lancha o produto?", vbYesNo, "Atenção")
If RespostaIncluir = vbYes Then

' Forms!FrmPrincipal!SeuSubFormulario!CampoSubFormulario = suaconsulta.(0) ' suaconsulta e a coluna que vai para o campo de destino
'Exemplo: Forms!FrmPedido!SFrmVenda!EmailNF = suaconsulta.Column(20)Onde (20) é o campo da consulta
MsgBox "Produuto lanchado!", vbInformation, "Atenção" 'colocaaki tambem o codigo que faz o lanchamento do produto
Else
If RespostaIncluir = vbNo Then
Exit Sub
End If
End If
End If
End Sub

Porém vendo tua estrutura, ele contem alguns erros.

bom dia

Testei seu exemplo mais não deu certo... (Objeto é Obrigatorio) aparece essa mensagem de erro.

vc falou que pode ter erro na minha estruturas, quais ? vc poderia me indica os erros?

Mais muito obrigado pela ajuda.

Boa tarde!

Você poderia aplicar esse exemplo no meu banco dedados que coloquei no anexo?

Boa tarde..

Ramos, eu estou em cliente desde a semana passada, não estou em minha cidade no momento.
Só estarei no fim de semana.

Mas um dica eu vou te dar.

Muda para formulário continuo e não folha de dados como está lá.

Beleza amigo!

Vou tenta mudar para continuo sim, e vou espera sua tua resposta...



Muito obrigado pela ajuda!

"Pedindo licença ao colega Silvio"

Fiz algumas alteraçoes nos codigos e tabelas, mas depois vc coloca do seu jeito... Teste para vermos

Link: Copie o codigo abaixo e cole no seu navegador

dropbox.com/s/9k4icuicz3u3i9s/Testet%20Incluir%20produto_old.rar?dl=0

Bom dia!
Vou da uma olha nesse código e estudar.

Mais muito obrigado pela ajuda.

boa tarde

muito bom seu exemplo amigo!

so que modifica muita minha base então tem outros controle que depende deles então esse exemplo não me ajudou muito, mais gostei e é mais ou menos assim. tambem vi que o exemplo que mandei estava com alguns defeito e faltando algumas tabelas e consulta.
Vou colocar novamente o banco...

eu preciso que so o codigo do meu produto vai para planilha e assim de alguma forma os outros dados apareça de acordo o código do produto, o campo entrada é onde se marca para da baixa no estoque.

mais muito bem seu exemplo

Teste para vermos

Bom dia ! Vou tenta sim

Mais obrigado pela ajuda até aqui

Boa tarde!
Ficou excelente agora muito obrigado... Mais tem uma coisa.
To usando uma outra tela com um Botão para abrir meu frm de venda, nesse botão tem um código q abre o frm venda em um novo registro, quando isso acontece não consigo lancha os produtos, ele lancha um produto mais quando vai se lancha outro produto ele só fica substituindo o produto lançado anteriormente.
Mais tirando isso ficou muito bom esse botão incluir, muito obrigado.

Tb testei abrindo o form com um novo registro e nao deu erro.

tente colocar no evento do formulario ao abrir ou ao carregar o codigo para ir para um novo registro.

DoCmd.GoToRecord , , acNewRec
ou
DoCmd.GoToRecord , "", acNewRec

Bom dia!
Para abrir minha tela de venda eu utilizo dois botão em um outo formulário,
1 botão ele abri o frm venda, já em um novo registro, pronto para fazer a venda, nesse botão eu utilizo o seguinte código;
DoCmd.openForm "FRM_MOV_Venda", acNormal, "","[IDVenda]=[Forms]![IDVenda]",,acNormal
Com esse código acima ele faz q a tela abra na em um novo registro.
2 botão ele só abre a tela, dando a opção de navegar em todas as vendas e com a opção de fazer uma nova venda.
Agora se eu colocar esse código que você me passou, toda vez q for abri minha tela de venda ele vai abrir sempre como novo.

tente trocar o camando do botão adicionar:

Deste:

'DoCmd.GoToControl "FRM_MOV_Venda_SubForms_ListaProduto"
'DoCmd.GoToRecord , , acNewRec
'Me.FRM_MOV_Venda_SubForms_ListaProduto.Requery

'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!IDVendaDet = Me.IDVenda
'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!CodProdutoVenda = DLookup("IDProduto", "TBL_CDS_Produto", "CodProduto='" & Me.CBOCodProduto & "'")
'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!QTDVenda = Me.TXTQuantidade
'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!Desconto = Me.Texto687
'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!EntradaEstoqueVenda = Me.Seleção689
'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!ValorUnit = Me.TXTValorUnitario
                                                                       
   
'    Me.Recalc
'    Me.Refresh
'    Me.Texto687 = 0
'    Me.Seleção689 = False
'    TXTQuantidade = 0
'    CBODescricao = Null
'    Me.CBOCodProduto = Null
'    Me.CBOCodProduto.SetFocus

para este:

Set db = CurrentDb() 'abre o banco de dados
Set rs = db.OpenRecordset("TBL_MOV_Venda_SubForms_ListaProduto") 'Abre Tabela
     
   rs.AddNew 'Adiciona um novo registro
   rs("IDVendaDet") = Me.IDVenda
   rs("QTDVenda") = Me.TXTQuantidade
   rs("CodProdutoVenda") = DLookup("IDProduto", "TBL_CDS_Produto", "CodProduto='" & Me.CBOCodProduto & "'")
   rs("Desconto") = Me.Texto687
   rs("EntradaEstoqueVenda") = Me.Seleção689
   rs("ValorUnit") = Me.TXTValorUnitario
   rs.Update ' atualiza
       
 
   rs.Close
   db.Close
   Me.FRM_MOV_Venda_SubForms_ListaProduto.Requery 'Atualiza o SubForm
   Me.Recalc
   Me.Refresh
   CBODescricao = Null
   Me.CBOCodProduto = Null
   Me.CBOCodProduto.SetFocus
   DoCmd.Save

Boa tarde !

Ficou excelente esse código...
to tentando como para bloquear a entrada de código de produto na tabela (subForms)para que não se repita o mesmo Código. mais estou com dificuldade você poderia me ajuda?
mais muito obrigado pela ajuda ate aqui.

Misson esclareça por favor nao entendi oq vc quer. no subfor nao da mais pra vc inserir produtos por ele. somente via form

bom dia, hoje eu conseguir inserir o código, e está funcionando legal...

Mais muito obrigado. Me ajudou muito.

Tinha esquecido de finalizar o tópico, kkk