Olá pessoal... Alguém sabe resolver isso aqui? (rs)
-----
Private Sub btnExcluir_Click()
MsgBox "USUÁRIO: " & txtLogin & ".", vbExclamation, "Aviso"
If MsgBox("Deseja excluir o usuário " & txtLogin & "?", _
vbQuestion + vbYesNo, "Aviso") = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
End Sub
----
Na verdade, só aparece a cx. de mensagem padrão do Access2003: "Você está prestes a excluir i registro bla bla bla..."
Não quero está mensagem... (rsrs)
Eu quero a minha mensagem:
-----
Private Sub btnExcluir_Click()
MsgBox "USUÁRIO: " & txtLogin & ".", vbExclamation, "Aviso"
If MsgBox("Deseja excluir o usuário " & txtLogin & "?", _
vbQuestion + vbYesNo, "Aviso") = vbYes Then
CurrentDb.Execute "DELETE * FROM Usuario WHERE txtLogin= '" Me.login "'"
DoCmd.RunCommand acCmdRefreshPage
MsgBox "O usuário " & txtLogin & " foi excluído.", vbInformation, "Aviso"
Form_CadastroUser.Requery
Else
End If
End Sub
-------
O problema que neste Form, a medida em que usuários são cadastrados, ELE vai criando linhas... Eu já "mexi um monte", mas fica sempre aparecendo a mensagem padrão do Access2003 e as vezes pergunta se quero excluir 10 registros de uma vez (socorro né... excluir todo mundo) E outra quando clico em não da mensagem padrão do Access2003... ele abre o depurar VB.
Desde já, eu agradeço!
Paulo César
-----
Private Sub btnExcluir_Click()
MsgBox "USUÁRIO: " & txtLogin & ".", vbExclamation, "Aviso"
If MsgBox("Deseja excluir o usuário " & txtLogin & "?", _
vbQuestion + vbYesNo, "Aviso") = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
End Sub
----
Na verdade, só aparece a cx. de mensagem padrão do Access2003: "Você está prestes a excluir i registro bla bla bla..."
Não quero está mensagem... (rsrs)
Eu quero a minha mensagem:
-----
Private Sub btnExcluir_Click()
MsgBox "USUÁRIO: " & txtLogin & ".", vbExclamation, "Aviso"
If MsgBox("Deseja excluir o usuário " & txtLogin & "?", _
vbQuestion + vbYesNo, "Aviso") = vbYes Then
CurrentDb.Execute "DELETE * FROM Usuario WHERE txtLogin= '" Me.login "'"
DoCmd.RunCommand acCmdRefreshPage
MsgBox "O usuário " & txtLogin & " foi excluído.", vbInformation, "Aviso"
Form_CadastroUser.Requery
Else
End If
End Sub
-------
O problema que neste Form, a medida em que usuários são cadastrados, ELE vai criando linhas... Eu já "mexi um monte", mas fica sempre aparecendo a mensagem padrão do Access2003 e as vezes pergunta se quero excluir 10 registros de uma vez (socorro né... excluir todo mundo) E outra quando clico em não da mensagem padrão do Access2003... ele abre o depurar VB.
Desde já, eu agradeço!
Paulo César