CODIGO EM VBA PARA CADASTAR CLIENTE

' quando eu cliquo no botão cadastrar o access cadastra mais não mostra nenhuma das mensagens: USUARIO INCLUIDO COM SUCESSO ou NOME DO USUARIO JA EXISTE.

Option Compare Database


Private Sub cmdCadastrar_Click()

If getUsuarioAtual = "ADMINISTRADOR" Then
If Not IsNull(CaixaNovoUsuario) Then
CaixaNovoUsuario = UCase(CaixaNovoUsuario)
If MsgBox("Deseja cadastrar o usuário" & CaixaNovoUsuario & "?", vbQuestion + vbYesNo, "Novo Usuário") = vbYes Then

DoCmd.GoToRecord , , acNewRec

If Not IsNull(DLookup("login", "Usuario", "login='" & CaixaNovoUsuario & "'")) Then
MsgBox "Nome de usuário já existe!", vbExclamation, "Novo Usuário"
CaixaNovoUsuario = Null

Exit Sub
End If

DoCmd.SetWarnings False
DoCmd.RunSQL "Insert into Usuario values('" & CaixaNovoUsuario & "','123')"
DoCmd.SetWarnings True
MsgBox "Usuário incluido com sucesso!", vbExclamation, "Novo Usuário"
CaixaNovoUsuario = Null
CaixaNovoUsuario.Requery

End If

Else

MsgBox "Informe o nome do usuário!", vbExclamation, "Novo Usuário"
DoCmd.Close
CaixaNovoUsuario = Null

End If

End If

End Sub

Private Sub Form_Open(Cancel As Integer)
login.SetFocus
DoCmd.GoToRecord , , acNewRec

End Sub

Fala Airton!!!!!

Cara, por acaso vc já tentou depurar o código e perceber em que momento exatamente acontece o erro????

Numa olhada rápida, me parece que o código está correto.....

Desde já agradeço....

abraço a todos!!!!!

não ta aparecendo nada quando aperta f8

Fala Airton....

cara, não entendi o q vc escreveu....

       

o que seria, "ñ aparece nada"???

Desde já agradeço...

Abraço a todos!!!!

ele esta com alguns erros por exemplo não aparece as msgbox quando eu clico em cadastrar

Fala Airton!!!!

Cara....

Eu acho q entendí sua lógica....

Fiz uma alteração no seu código, porque estava faltando fechar o if.... acredito que agora esteja rodando....

Um ponto que me pareceu estranho, é o fato de você usar o "getUsuarioAtual", mas ele ficar sempre em branco ( "" ).....
Não encontrei essa rotina no código que vc postou......

Dá uma olhada e depois manda os resultados....

Private Sub cmdCadastrar_Click()

If getUsuarioAtual = "ADMINISTRADOR" Then
If Not IsNull(CaixaNovoUsuario) Then
CaixaNovoUsuario = UCase(CaixaNovoUsuario)
If MsgBox("Deseja cadastrar o usuário" & CaixaNovoUsuario & "?", vbQuestion + vbYesNo, "Novo Usuário") = vbYes Then
DoCmd.GoToRecord , , acNewRec
If Not IsNull(DLookup("login", "Usuario", "login='" & CaixaNovoUsuario & "'")) Then
MsgBox "Nome de usuário já existe!", vbExclamation, "Novo Usuário"
CaixaNovoUsuario = Null
Exit Sub
End If
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert into Usuario values('" & CaixaNovoUsuario & "','123')"
DoCmd.SetWarnings True
MsgBox "Usuário incluido com sucesso!", vbExclamation, "Novo Usuário"
CaixaNovoUsuario = Null
CaixaNovoUsuario.Requery
End If
Else
MsgBox "Informe o nome do usuário!", vbExclamation, "Novo Usuário"
DoCmd.Close
CaixaNovoUsuario = Null
End If

End Sub


Desde já agradeço...

Abraço a todos!!!!!