ajuda com campo obrigatorio

galera preciso de uma forcinha

tenho um campo obrigatorio no formulario usei essa formula da certo so que ela nao deixa eu sair do formulario sem prencher esse campo
gostaria de algo pra eu poder sair sem prenchela se eu desistir .


Private Sub IDUSUARIO_Exit(Cancel As Integer)
If IsNull(IDUSUARIO) Then
DoCmd.CancelEvent
DoCmd.RefreshRecord
MsgBox "O Nome do Usuario é Obrigatório...", vbCritical, "GERENCIADOR"
IDUSUARIO.SetFocus
End If
End Sub



pra sair uso esse codigo

Private Sub SAIR_Click()
If MsgBox("Deseja Sair do Sistema? ", vbYesNo, "Aviso de Saída") = vbYes Then
Undo
Quit
End If
End Sub

Cleber


Experimente o código abaixo que deverá ser colocado no evento Ao fechar ou ao descarregar o formulário.
O formulário não deve ter os botões de navegação, pois se mudar de registro, o código não ira ser executado.

Código:



If IsNull(Me.IDUSUARIO) Then
   If MsgBox("O nome do usuário é obrigatório." & vbCrLf & "Se fechar a formulário sem preencher o campo," & _
             "o registro não será salvo." & vbCrLf & "Deseja continuar?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
            
       DoCmd.Close acForm, "TeuForm", acSaveNo ' Sai sem salvar
   Else ' caso contrário não sai e retorna para o o controle em branco
      Me.usuario.SetFocus
   End If
End If



Obs.: Nome do controle - IDUSUÁRIO, mas na mensagem fala em nome do usuario. Verifique isso.

Abraços

Noob

amigo e id do ususario mesmo que esta ligado mas la mostra o nome

olha deu certo so que ele sai do campo idusuario

oque eu queria e que ficasse do jeito que eu lhe mandei o exemplo so que me deichase sair se eu não preenchesse

Você deve escolher entre , campo obrigatório ou não.

Da forma que deseja, quando estiver no campo obrigatório e sair dele sem OBRIGATORIAMENTE o preencher, é contraditório.

O código que postei, vai fazer isso, mas somente no momento de gravar ou salvar o registro.
Enquanto isso, o utilizador terá liberdade dentro desse formulário, inclusive de não gravar o registro.

Noob