... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Como fazer o código VBA esperar por uma informação do usuário

Em alguns casos é necessário interromper a execução de um código para aguardar por uma informação do usuário.  Nestes casos, utiliza-se do argumento WindowMode setado para acDialog, do comando Docmd.OpenForm.   No exemplo abaixo, o código aguarda pelo fechamento do formulário frmRegistro para então processar as linhas seguintes.  Observe os comentários:

Public Sub fncCapturaRegistro()
On Error Resume Next
'-----------------------------------------------------------------------------
'Abre o formulário frmRegistro, solicitando a interrupção do código (acDialog)
'----------------------------------------------------------------------------
DoCmd.OpenForm "frmRegistro", , , , , acDialog, 1
'---------------------------------------------------------------------------
'A rotina prossegue a partir deste ponto, somente quando o usuário fechar 
'o formulário.
'A variável global booRegistrado tem seu valor definido no formulário 
'frmRegistro, por isso é necessário que a rotina aguarde por este valor.
'---------------------------------------------------------------------------
If booRegistrado = False Then
   'Sai do aplicativo
   DoCmd.Quit acQuitSaveAll
End If
End Sub

Bom estudo!


 

 


Não há comentário

Envie seu comentário: