|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Retornar a ação de um erro, por opção do usuário
|
 |
|
|
|
Postada em 27/3/2007 por LCRamos
Algumas vezes ocorrem erros inesperados, e então em uma outra tentativa tudo pode correr bem, deixe que o usuário determine, se tenta novamente, ou se cancela a operação. Voce pode até por um contador e o usuário tentar apenas um número de vezes determinado.
Pode ser em qualquer evento.
Private Sub Form_Load()
On Error GoTo ErroInesperado
TentedeNovo:
' aqui vai a sua ação
' se OK continua
' Exit Sub
ErroInesperado
Dim sMENSAGEM As String
sMENSAGEM = "Ocorreu um erro inesperado. " & vbCrlf
sMENSAGEM = sMENSAGEM & "Pressione SIM para Tentar Novamente e NÃO "
sMENSAGEM = sMENSAGEM & "para cancelar a operação."
If MsgBox(sMENSAGEM, vbYesNo + vbCritical , "Erro Inesperado!") = vbYes Then
Resume TentedeNovo
Else
End
End If
End Sub
Até a próxima.
vlu//
|
|
|
|
|
