[Resolvido]Comando para Botão "Salvar e Fechar"

Pessoal,
Estou com dificuldade para colocar uma condição no botão que eu chamei de "Salvar e Fechar". Criei um formulário onde todos os campos devem ser preenchidos obrigatóriamente, a condição que cheguei mais próximo do que eu quero foi essa:

If IsNull(Texto1) Or IsNull(Texto2) Or IsNull(Texto3) Then
MsgBox "Favor preencher TODOS os campos!", vbExclamation, "Alerta"
End If
DoCmd.Close

O que acontece é o seguinte: Ao clicar no "OK" da caixa de mensagem, acaba fechando o formulário com os campos em branco. O que eu quero é: Ao clicar no "OK", o formulário continue aberto para que os campos sejam preenchidos. Aí sim com todos os campos preenchidos, fecho o formulário clicando no botão "Salvar e Fechar".

Fico no aguardo.

Abraço.

Tente assim:

If IsNull(Texto1) Or IsNull(Texto2) Or IsNull(Texto3) Then
MsgBox "Favor preencher TODOS os campos!", vbExclamation, "Alerta"
Exit Sub
Else
DoCmd.Close
End If

O salvamento é automático? Ou seja, são formulários vinculados às tabelas? Porque se não for, precisará ainda incluir a rotina de salvemento.

Outra coisa, procure não usar nomes com espaços nos seus controles, pois você poderá ter dores de cabeças em vários momentos. Ao invés de "Salvar e fechar", use SalvarFechar ou melhor ainda, btnSalvar.

Obrigado Criquio,

Funcionou legal.

Obrigado pelo retorno. Só faltou clicar no botão Resolvido, ali na frente do título do tópico logo acima do botão Enviar que envia a mensagem. Pode deixar que vou fazê-lo dessa vez.

Ops!!!! Desculpa, da próxima vez não vou esquecer.