bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Como fazer o código VBA esperar por uma informação do usuário
Como fazer o código VBA esperar por uma informação do usuário

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).



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: