Códigos VB para Access - fechar formulários

1) Código para fechar formulários a partir de um botão criado manualmente.

Aplicação e vantagem:

Para quem possui vários formulários e também um menu principal (formulário de iniciação) e não quer ficar naquela chatice de construir macros por macros (com uma infinidade de nomes e nomes de formulários) ou se não quer ficar construindo botão por botão e depois padronizá-los manualmente, deixando iguais a altura, largura, cor, tamanho e fonte iguais, basta somente copiar um botão já pronto (neste caso será o de fechar formulários) colá-lo em todos os outros formulários que desejar, porém fazendo isto (copiar e colar), o botão perderá a sua função, ou seja o código vb interno, desta forma seria necessário construir outro botão ou inserir um código vb, para evitar isto basta copiar e colar o botão e depois colar este código no evento ao clicar do botão, assim teremos botões padronizados e com funcionalidade.

Neste caso é bom que o banco de dados tenha um menu principal ou (formulário de iniciação), pois em qualquer formulário que o código estiver colado, ele fechará e o menu principal ou formulário de iniciação será aberto.

Obs: Um banco de dados bem apresentável prima pela padronização, portanto caso tenha vários formulários, procure deixar todos os botões (fechar, imprimir, abrir, confirmar, etc...) padronizados e sempre na mesma direção e cantinho da página. Lembre-se, os sistemas existem para facilitar a correria do dia a dia, deles (o povo que irá usar...)

* crie um botão usando a barra de ferramenta
* cole o código abaixo na propriedade ao clicar do botão
on error goto err_comando(incluir número do botão de comando)_click
docmd.close
exit_comando(incluir número do botão de comando)_click:
exit sub
err_comando(incluir número do botão de comando)_click:
msgbox err.description
resume exit_comando(incluir número do botão de comando)_click
end sub