Olá, Assisti todos vídeos “Cadastro de pessoas” @gratisnopc porém gostaria de saber como FECHAR o formulário após excluir o registro para não correr o risco de clicar duas vezes…
Sub excluir_registroC
Dim linhas
Dim codigo_retorno as integer
Linha_registroC = Val(LinhaRegistroPqC.Text) - 1
plan_Acoes_Comum = ThisComponent.Sheets.getByName( "Acoes_Comum" )
linhas = plan_Acoes_Comum.getRows()
codigo_retorno = msgBox ( "O cadastro será apagado DEFINITIVAMENTE" + chr$(13) + "Deseja CONTINUAR ?", 4 + 48 + 256, "ALERTA")
If codigo_retorno = 7 Then
Stop
Else
linhas.removeByIndex(Linha_registroC, 1) '(linha a excluir , Qtde de linha a excluir)
msgBox ( "Cadastro Excluído" , 0 + 64 , "AVISO" )
End If
End sub
