[Resolvido]Ajuda para entender código VBA

Boa tarde!

Encontrei o código abaixo neste tópico (mensagem nº 21), porém não entendi muito bem para poder ajustar à minha necessidade.

Alguém poderia por favor me ajudar, colocando na frente de cada linha o significado detalhado das expressões?

Código:

Dim curCusto As Currency
Dim rsf As Recordset, frm As Form
Set frm = Me
Set rsf = Me.RecordsetClone

If Me.IDProduto <> 0 Then
  rsf.FindFirst "[IDProduto]= '" & Me.IDProduto & "'"
  If Not rsf.NoMatch Then
      frm.Undo
      frm.Bookmark = rsf.Bookmark
      rsf.Edit
      rsf!Qtdade = rsf!Qtdade + 1
      rsf.Update
  End If
End If

Obrigado!

Dim curCusto As Currency = dimensione na memória que curCusto é moeda
Dim rsf As Recordset, frm As Form = dimensione rsf é registro, frm é um formulário
Set frm = Me = defina frm como sendo o formulário ativo
Set rsf = Me.RecordsetClone = defina rsf como uma cópia do formulário ativo

If Me.IDProduto <> 0 Then = se me.idproduto for diferente de zero então
rsf.FindFirst "[IDProduto]= '" & Me.IDProduto & "'" = encontro o Idproduto que seja igual o idproduto que está no formulário
If Not rsf.NoMatch Then = se não encontrar ou não for igual então
frm.Undo = desfaça
frm.Bookmark = rsf.Bookmark oque está no formulário é igual ao registro
rsf.Edit = faça a edição
rsf!Qtdade = rsf!Qtdade + 1 = a quantidade no formulário é igual a quantidade +1
rsf.Update = atualize o registro
End If
End If

Oi Silvio, boa tarde!

Com sua explicação ficou bem mais fácil de entender. Vou tentar adaptar aqui e te retorno. Por enquanto obrigado pela ajuda!

Bom dia..

Show de bola.
Até mais !

Oi Silvio, boa tarde!!

Eu tentei, mas meu conhecimento ainda é limitado a esse tipo de implementação. Se não for incomodá-lo, vc poderia me ajudar a atingir meu objetivo?

No BD anexo, tem um form chamado "formEmissaoPedidos" com um subform onde os itens serão adicionados de acordo com o que o usuário informar no campo "leitura sku".

Esse código que vc me explicou ali em cima, parece que ele tem a função de verificar se já existe o item na lista do subform, para evitar que exista duas linhas para o mesmo produto. No caso, se o usuário ainda não tiver inserido o código, o sistema acrescenta normal, mas se já tiver o código na lista, ele apenas soma +1 na quantidade dele em vez de acrescentar.

Só que de todo jeito que faço, não dá certo Vc pode me ajudar?

Boa tarde a todos se todos os códigos fossem comentádos assim seria mais fácil para todos somente uma sugestão

Bom dia.
Krauss, de uma olhada no anexo que mandou, veio faltando algumas rotinas de inclusão.

Oi Silvio, boa tarde!

A quais rotinas vc se refere?

Bom dia.

Não consigo adicionar itens ao sub formulário

Bom dia.

Não consigo adicionar itens ao sub formulário

Boa tarde Silvio!

Se vc usar somente o código abaixo no evento "Ao alterar" daí dá certinho para inserir no subformulário, porém o que eu realmente preciso é adaptar para que o sistema não insira 2 linhas para o mesmo produto, seguindo os critérios que citei na mensagem de nº 5.

Código:

  If Len(Nz(Me.txtLeituraSKU.Text)) = 13 Then
      DoCmd.GoToControl "formDetalhesPedido"
      DoCmd.GoToRecord , , acNewRec
      Forms!formEmissaopedidos!formDetalhesPedido!txtQtdeSaida = 1
      Forms!formEmissaopedidos!formDetalhesPedido!txtSkuTamanho = txLeituraSKU
      Forms!formEmissaopedidos!formDetalhesPedido!txtCodigoProduto = Right(txtLeituraSKU, 5)
      Forms!formEmissaopedidos!txtLeituraSKU = ""
      Forms!formEmissaopedidos!txtLeituraSKU.SetFocus
   End If


Na verdade eu preciso de ajuda para adaptar aquele código que vc me explicou, tipo substituir os nomes que estão nele pelos meus nomes (do meu form, do subform, dos campos, etc.), só que eu não consigo identificar bem quais nomes devo substituir e quais são parte do código.

Boas, estou aqui com 2 sistemas em desenvolvimento. Creio que a rotina abaixo poderá lhe ajudar, porém vai ter que dar um jeito de adaptar as tuas necessidades. Eu uso ela para verificar a duplicidade usando o código de produto.
Onde,
CodProdutoOculta = caixa de texto que recebe o valor ( numérico ou texto ) da Cbocodprod.
CodSubped = chave primária do subformulario ( campos pai/filho ), vínculos !!



Private Sub cbocodprod_BeforeUpdate(Cancel As Integer)
'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
Dim frm As Recordset
Dim AbreFrmCor As Boolean
Dim strProv As String, b As Byte
Set frm = Me.RecordsetClone
With frm
.FindFirst "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped & ""
If Not .NoMatch Then 'encontrou 1º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 2º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 3º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 4º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 5º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
If Not .NoMatch Then
If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
Else
Cancel = True
Me.cbocodprod.Undo
End If
End If
End If
End If
End If
End If
End If
Set frm = Nothing
End With

If b > 0 Then
If MsgBox("Deseja repetir esse artigo ?" & vbCrLf & "Já existe(m) " & b & vbCrLf & _
"Registos com esta condição:" & vbCrLf & strProv, vbYesNo, "CONFIRMAÇÃO") = vbYes Then AbreFrmCor
Else: AbreFrmCor = False:
Me.cbocodprod.Undo:
Cancel = True:
Exit Sub

End If


End Sub

Boas, estou aqui com 2 sistemas em desenvolvimento. Creio que a rotina abaixo poderá lhe ajudar, porém vai ter que dar um jeito de adaptar as tuas necessidades. Eu uso ela para verificar a duplicidade usando o código de produto.
Onde,
CodProdutoOculta = caixa de texto que recebe o valor ( numérico ou texto ) da Cbocodprod.
CodSubped = chave primária do subformulario ( campos pai/filho ), vínculos !!



Private Sub cbocodprod_BeforeUpdate(Cancel As Integer)
'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
Dim frm As Recordset
Dim AbreFrmCor As Boolean
Dim strProv As String, b As Byte
Set frm = Me.RecordsetClone
With frm
.FindFirst "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped & ""
If Not .NoMatch Then 'encontrou 1º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 2º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 3º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 4º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
.FindNext "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped
If Not .NoMatch Then 'encontrou 5º valor -> coloque-o em variável para usar depois
b = b + 1: strProv = vbCrLf & frm(0) & "-" & frm(1) & "-" & frm(2) & "-" & frm(3) & "-" & frm(4) & "-" & (5)
If Not .NoMatch Then
If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
Else
Cancel = True
Me.cbocodprod.Undo
End If
End If
End If
End If
End If
End If
End If
Set frm = Nothing
End With

If b > 0 Then
If MsgBox("Deseja repetir esse artigo ?" & vbCrLf & "Já existe(m) " & b & vbCrLf & _
"Registos com esta condição:" & vbCrLf & strProv, vbYesNo, "CONFIRMAÇÃO") = vbYes Then AbreFrmCor
Else: AbreFrmCor = False:
Me.cbocodprod.Undo:
Cancel = True:
Exit Sub

End If


End Sub

Oi Silvio,

Acredito que o que preciso seja um pouco mais simples rs.

Tipo, preciso que após digitar o código no campo "txtLeituraSKU" e teclar Enter, o sistema inclua ele no subformulário "formDetalhesPedido", mas caso já exista esse código no subformulário, em vez de incluir uma nova linha para o mesmo código, o sistema apenas some +1 na quantidade dele do subform.

Krauss, já vi essa dúvida persistindo no tópico do link abaixo
https://www.maximoaccess.com/t38771-emissao-de-pedidos-via-codigo-de-barras

Veja o exemplo anexo desta mensagem e adapte ao seu cenário. Não esqueça de fechar este e o outro tópico onde a mesma dúvida também já existe.

Oi Damasceno, boa tarde!!

Eu encerrei o outro tópico e peço desculpas pela duplicidade, não foi proposital. Testei seu exemplo aqui e ficou excelente! Vou tentar adaptar no meu BD e retorno para dizer se funfou.

Por enquanto obrigado pelas ajudas que tem me prestado!

Boa noite!

Consegui adaptar o código ao meu BD.

Agradeço especialmente ao Damasceno que facilitou muito minha vida nessa parte do meu projeto.

Abraço!

Parabéns pelo esforço e evolução.

O fórum agradece o retorno. Sucesso.