[Resolvido]organizar codigo

boa tarde a todos, gostaria que voces me ajudassem organizar estes dois modulos que estou utilizando no meu formulario de ponto de venda (estilo PDV)o primeiro modulo tem a funçao de lançar as vendas no subformulario e o segundo dar baixa no estoque. O que eu queria era que organizaçao para para melhor desempenho do sistema. Esporo que tenham entendido. Jorge




1º modulo

If IsNull(DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!CodBarras & "'")) Then
MsgBox "Produto não Cadastro", vbInformation, "ATENÇÃO"

Exit Sub
End If


DoCmd.GoToControl "frmdetalhesvenda"
DoCmd.GoToRecord , , acNewRec

Forms!frmpontodevenda!frmdetalhesvenda!quant = Me.txtQtd 'Essa linha aqui que está atribuíndo a quantidade
Forms!frmpontodevenda!frmdetalhesvenda!desc = Me.desc
Forms!frmpontodevenda!frmdetalhesvenda!vrlunitario = DLookup("PreçoUnitário", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!CodBarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!descricao = DLookup("Descrição", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!CodBarras & "'")
Forms!frmpontodevenda!txtproduto = DLookup("Descrição", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!CodBarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!CodBarras = DLookup("CódigoBarras", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!CodBarras & "'")
Forms!frmpontodevenda!frmdetalhesvenda!codprod = DLookup("CódigoProduto", "Tab_Produto", "CódigoBarras='" & Forms!frmpontodevenda!CodBarras & "'")
Forms!frmpontodevenda!CodBarras = ""
Forms!frmpontodevenda!desc = 0
Forms!frmpontodevenda!CodBarras.SetFocus
Forms!frmpontodevenda!frmdetalhesvenda!coddetalhevenda = Me.codvenda

Me.txtQtd = 1

=====================================================================
2º modulo

Dim apaga As Integer
Dim msg
On Error GoTo Err_Excluir_Click
DoCmd.SetWarnings False
'=====================================================
'FAVOR NÃO RETIRE OS CRÉDITOS
'por Glicério Júnior (Jungli) ... jungli@ibest.com.br em 8.6.2011
'Modificado por: XXXXXXXX em DD/MM/YYYY
'=====================================================

'Define as variáveis
Dim qtd, qtd2 As Double
Dim sql1 As String
Dim z As String
z = Me!produto
'Pega o valor do estoque atual do produto
qtd = Format(DLookup("[QuantidadeEstoque] ", "[Tab_Produto]", "[CódigoProduto] = " & Me.codproduto), "#,##0.00")
'Exibe questionameto sobre a atualização da quantidade e atualiaza em caso de confirmação
If MsgBox("Deseja baixar o item: " & z, vbYesNo + vbQuestion, "Baixa no estoque") = vbYes Then
qtd2 = Format(qtd, "0.00") - Format(quant, "0.00")
sql1 = "UPDATE Tab_Produto SET QuantidadeEstoque = '" & qtd2 & "' WHERE CódigoProduto=" & Me.codproduto & ""
CurrentDb.Execute sql1
DoCmd.RunMacro "Macro1"


'Mensagem de confirmação
MsgBox "Item baixado!!!", vbInformation, "CONFIRMAÇÃO"
Else
Me.Undo

'Me.CodProduto.Dropdown
End If






Me.Refresh



Exit_Err_Excluir_Click:
Exit Sub
Err_Excluir_Click:
'MSG = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click

Não entendi muito bem qual é a dificuldade, mas acredito que consigas o que pretendes se pensar na sequência que deve ser seguida e organizar o código seguindo essa sequência.

justamente é essa sequencia, pois o 1º modulo atualiza o subformulario e o 2º modulo da baixa no estoque. Eu utilizo tudo isso em uma caixa de texto chamado CodBarras.

Ainda não entendi o que está dando errado.

criquio boa noite, consegui o problema da ordem dos codigos. So que agora surgiu um pequeno probleminha quando da baixa no estoque, ele so baixa numeros inteiros, quando utilizo decinais não dar baixa. Poderia me ajudar a configurar.

Jorge

ola alguem poderia me ajudar

Verifique o tipo de campo na tabela e no formulário.

consegui resolver, obrigado pela atenção. Jorge