Método DoCmd.Close (Access)
O método Close executa a ação Fechar no Visual Basic.
Sintaxe
expression.Close (ObjectType, ObjectName, Save)
expression Uma variável que representa um objeto DoCmd.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| ObjectType | Optional | AcObjectType | Uma constante AcObjectType que representa o tipo de objeto a ser fechado. |
| ObjectName | Opcional | Variantes | Uma expressão de cadeia de caracteres que é o nome válido de um objeto do tipo selecionado com o argumento ObjectType. |
| Save | Optional | AcCloseSave | Uma constante AcCloseSave que especifica se as alterações feitas no objeto devem ou não ser salvas. O valor padrão é acSavePrompt. |
Comentários
Use o método Close para fechar uma janela especificada do Microsoft Access ou a janela ativa se nenhuma for especificada.
Se você deixar os argumentos ObjectType e ObjectName em branco (a constante padrão, acDefault, é considerada para ObjectType), o Access fechará a janela ativa. Se você especificar o argumento Salvar e deixar os argumentos ObjectType e ObjectName em branco, deverá incluir as vírgulas dos argumentos ObjectType e ObjectName .
Observação
Se um formulário tiver um controle associado a um campo com sua propriedade Required definida como Sim, e se o formulário for fechado usando o método Close sem inserir dados no campo, não será exibida uma mensagem de erro. Qualquer alteração feita no registro será anulada. Quando o formulário for fechado usando a interface do usuário, o Access exibirá um alerta.
Para exibir uma mensagem de erro, use o método RunCommand para invocar o comando acCmdSaveRecord antes de chamar o método Close. Isso causará um erro em tempo de execução se um ou mais campos obrigatórios forem Null. Essa técnica será ilustrada no exemplo a seguir.
Private Sub cmdCloseForm_Click()
On Error GoTo Err_cmdCloseForm_Click
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
Exit_cmdCloseForm_Click:
Exit Sub
Err_cmdCloseForm_Click:
MsgBox Err.Description
Resume Exit_cmdCloseForm_Click
End Sub
Exemplo
O exemplo a seguir usa o método Close para fechar o formulário Order Review, salvando todas as alterações feitas no formulário sem avisar.
DoCmd.Close acForm, "Order Review", acSaveYes
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.