Notifications
Clear all

[Resolvido] Comando Salvar automático

3 Posts
1 Usuários
0 Reactions
1,116 Visualizações
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

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
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Anderson, desculpe mas eu não entendi o que fazer. Tentei como tinha entendido e não deu certo. 

Deixa explicar novamente:

1) O Userform Contas a Receber tem registros de cobranças de parcelas. Ao quitar a parcela, automaticamente abre um botão o qual eu clico e abre o Formulário do Caixa. 

2) No Formulário do caixa eu faço o lançamento e salvo. Assim que eu salvo, fecho e retorno para o Contas a Receber.

3) Quando retorno ao Contas a Receber, tenho um textbox que informa que já foi lançado no caixa. Agora que vem o problema: Tenho que salvar todas as informações fornecidas no Contas a Receber. Se não fizer, haverá uma perda destas informações.

4) Penso em fazer assim: Ao retornar automaticamente ele salvaria o formulário Contas a Receber (sem a ação do usuário).

5) Como fazer ? qual comando usar? (duas questões)

 

 

 

 
Postado : 23/12/2020 8:19 am
NERI S
(@neri-s)
Posts: 0
Estimable Member
Topic starter
 

Anderson 

o teu comando serve em partes....serve quando tem um registro, altero e saio - neste momento ele salva.

Porém no contas a receber o usuário altera um lançamento, vai para o caixa e quando volta teria que salva o registro no Contas a receber, pois logo em seguida eles alteram outros registros (de outros clientes).

A questão é quando salva (não descrevi certo acima - o que eu queria saber se o código que possuo funciona no Query).

Tenho que encontrar a opção de quando der "foco" ou "retorna" para o Contas a Receber automaticamente salve.

Desculpe se não fui claro o suficiente para que pudesse me ajudar.

 

 

 
Postado : 23/12/2020 11:03 am