O comando abaixo eu utilizo para salvar os lançamentos. Mas estou com uma dúvida:
Eu abro o arquivo abaixo (form1) , que possui um botão que automaticamente abre outro arquivo (form2). Faço as alterações necessárias no Form2 e ao retornar para Form1 eu preencho uma textbox (no Form1) dizendo que o lançamento foi realizado. Quando este campo está preenchido preciso que automaticamente ele salve o lançamento que está no Form1. Atualmente ele faz isto ao clicar no botão "Salvar". Porém isto pode falhar se o usuário não clicar. Tenho que deixar automático. Qual é a linha de comando que devo inserir?
Comando utilizado:
Private Sub btnsalvar_Click()
Dim proximoId As Long
'Altera
If optalterar.Value Then
Call SalvaRegistro(CLng(txtCodigo.Text), indiceRegistro)
MsgBox "Registro salvo com sucesso!", vbInformation + vbOKOnly, ""
End If
'Novo
If optnovo.Value Then
proximoId = PegaProximoId
'pega a próxima linha
Dim proximoIndice As Long
proximoIndice = wsCadastro.UsedRange.Rows.Count + 1
Call SalvaRegistro(proximoId, proximoIndice)
txtCodigo = proximoId
MsgBox "Registro salvo com sucesso!", vbInformation + vbOKOnly, ""
' travar botoes
btnalterar.Enabled = False
End If
'Excluir
If optexcluir.Value Then
Dim result As VbMsgBoxResult
result = MsgBox("Deseja excluir o registro nº " & txtCodigo.Text & " ?", vbYesNo, "Confirmação")
If result = vbYes Then
wsCadastro.Range(wsCadastro.Cells(indiceRegistro, colCodigo), wsCadastro.Cells(indiceRegistro, colCodigo)).EntireRow.Delete
Call CarregaDadosInicial
MsgBox "Registro salvo com sucesso!", vbInformation + vbOKOnly, ""
End If
End If
End Sub
Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.
Postado : 21/12/2020 4:15 pm