CODIGO REPETINDO MENSAGEM
Boa tarde,
Galera, no código abaixo que me foi enviado pelo KURTGU, está acontecendo a repetição da mensagem :
MsgBox([Ô]Administrador : [Ô] & txtUserName.Text) aparece : [Ô] Administrador: JMRF [Ô]
Dou Ok no MsgBox a mensagem aparece novamente e depois do segundo Ok no Msgbox é que abre o Programa. Onde está o erro, por favor.
Observei também, um outro problema: Se eu digitar o Usuário com letras MAIÚSCULAS, o Form login para na tela e nem sai nem abre o Form Principal, o que normalmente não ocorre com os programas que utilizo no dia a dia. Se eu digito o Usuário não importa como é escrito com MAIÚSCULAS ou minúsculas se a senha estiver correta o programa abre. Tente no Código que me enviou e digite o DARIO com letras MAIÚSCULAS e verá que acontece também no seu código. Achei que fosse o meu que estava dando esse problema mas verifiquei que no seu também dá esse problema, por favor. Vê se dá pra ajudar nesses dois problemas que estou tentando resolver.
KURTGU, eu só troquei no código que você me enviou: os nomes dos textbox e dos Forms. Você ou algém pode me dizer onde está o erro no meu código, por gentileza.
VB.NET
BD - Access
Me código abaixo:
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Conectar()
comando = New OleDbCommand([Ô]select senha, login, perfil from tb_usuarios where login=[ô][Ô] & _
txtUserName.Text + [Ô][ô] and senha=[ô][Ô] + txtPassword.Text + [Ô][ô][Ô], conecta)
checar = comando.ExecuteReader
Dim login As String = Nothing
Dim senha As String = Nothing
While checar.Read
If checar.Item([Ô]perfil[Ô]) = [Ô]Admin[Ô] Then
MsgBox([Ô]Administrador : [Ô] & txtUserName.Text)
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = True
Usuarios.btnIncluir.Enabled = True
Usuarios.btnAlterar.Enabled = True
Usuarios.btnExcluir.Enabled = True
Else
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = False
Usuarios.btnIncluir.Enabled = False
Usuarios.btnAlterar.Enabled = False
Usuarios.btnExcluir.Enabled = False
End If
senha = checar.Item([Ô]senha[Ô]).Trim
login = checar.Item([Ô]login[Ô]).Trim
End While
If Login = txtUserName.Text And senha = txtPassword.Text Then
Me.Visible = False
MDI_Principal.ShowDialog()
ElseIf login = Nothing Or senha = Nothing Then
MsgBox([Ô]Usuário ou Senha incorreto![Ô], MsgBoxStyle.Information, [Ô]Erro[Ô])
txtUserName.Text = [Ô][Ô]
txtPassword.Text = [Ô][Ô]
txtUserName.Focus()
End If
checar.Close()
[ô][ô]Desconectar()
End Sub
Obrigado a todos pela atenção.
JMRF
Galera, no código abaixo que me foi enviado pelo KURTGU, está acontecendo a repetição da mensagem :
MsgBox([Ô]Administrador : [Ô] & txtUserName.Text) aparece : [Ô] Administrador: JMRF [Ô]
Dou Ok no MsgBox a mensagem aparece novamente e depois do segundo Ok no Msgbox é que abre o Programa. Onde está o erro, por favor.
Observei também, um outro problema: Se eu digitar o Usuário com letras MAIÚSCULAS, o Form login para na tela e nem sai nem abre o Form Principal, o que normalmente não ocorre com os programas que utilizo no dia a dia. Se eu digito o Usuário não importa como é escrito com MAIÚSCULAS ou minúsculas se a senha estiver correta o programa abre. Tente no Código que me enviou e digite o DARIO com letras MAIÚSCULAS e verá que acontece também no seu código. Achei que fosse o meu que estava dando esse problema mas verifiquei que no seu também dá esse problema, por favor. Vê se dá pra ajudar nesses dois problemas que estou tentando resolver.
KURTGU, eu só troquei no código que você me enviou: os nomes dos textbox e dos Forms. Você ou algém pode me dizer onde está o erro no meu código, por gentileza.
VB.NET
BD - Access
Me código abaixo:
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Conectar()
comando = New OleDbCommand([Ô]select senha, login, perfil from tb_usuarios where login=[ô][Ô] & _
txtUserName.Text + [Ô][ô] and senha=[ô][Ô] + txtPassword.Text + [Ô][ô][Ô], conecta)
checar = comando.ExecuteReader
Dim login As String = Nothing
Dim senha As String = Nothing
While checar.Read
If checar.Item([Ô]perfil[Ô]) = [Ô]Admin[Ô] Then
MsgBox([Ô]Administrador : [Ô] & txtUserName.Text)
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = True
Usuarios.btnIncluir.Enabled = True
Usuarios.btnAlterar.Enabled = True
Usuarios.btnExcluir.Enabled = True
Else
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = False
Usuarios.btnIncluir.Enabled = False
Usuarios.btnAlterar.Enabled = False
Usuarios.btnExcluir.Enabled = False
End If
senha = checar.Item([Ô]senha[Ô]).Trim
login = checar.Item([Ô]login[Ô]).Trim
End While
If Login = txtUserName.Text And senha = txtPassword.Text Then
Me.Visible = False
MDI_Principal.ShowDialog()
ElseIf login = Nothing Or senha = Nothing Then
MsgBox([Ô]Usuário ou Senha incorreto![Ô], MsgBoxStyle.Information, [Ô]Erro[Ô])
txtUserName.Text = [Ô][Ô]
txtPassword.Text = [Ô][Ô]
txtUserName.Focus()
End If
checar.Close()
[ô][ô]Desconectar()
End Sub
Obrigado a todos pela atenção.
JMRF
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Conectar()
comando = New OleDbCommand([Ô]select senha, login, perfil from tb_usuarios where login=[ô][Ô] & _
txtUserName.Text + [Ô][ô] and senha=[ô][Ô] + txtPassword.Text + [Ô][ô][Ô], conecta)
checar = comando.ExecuteReader
Dim login As String = Nothing
Dim senha As String = Nothing
While checar.Read
If checar.Item([Ô]perfil[Ô]) = [Ô]Admin[Ô] Then
MsgBox([Ô]Administrador : [Ô] & txtUserName.Text)
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = True
Usuarios.btnIncluir.Enabled = True
Usuarios.btnAlterar.Enabled = True
Usuarios.btnExcluir.Enabled = True
Else
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = False
Usuarios.btnIncluir.Enabled = False
Usuarios.btnAlterar.Enabled = False
Usuarios.btnExcluir.Enabled = False
End If
senha = checar.Item([Ô]senha[Ô]).Trim
login = checar.Item([Ô]login[Ô]).Trim
Exit While
End While
If Login = txtUserName.Text And senha = txtPassword.Text Then
Me.Visible = False
MDI_Principal.ShowDialog()
ElseIf login = Nothing Or senha = Nothing Then
MsgBox([Ô]Usuário ou Senha incorreto![Ô], MsgBoxStyle.Information, [Ô]Erro[Ô])
txtUserName.Text = [Ô][Ô]
txtPassword.Text = [Ô][Ô]
txtUserName.Focus()
End If
checar.Close()
[ô][ô]Desconectar()
End Sub
Conectar()
comando = New OleDbCommand([Ô]select senha, login, perfil from tb_usuarios where login=[ô][Ô] & _
txtUserName.Text + [Ô][ô] and senha=[ô][Ô] + txtPassword.Text + [Ô][ô][Ô], conecta)
checar = comando.ExecuteReader
Dim login As String = Nothing
Dim senha As String = Nothing
While checar.Read
If checar.Item([Ô]perfil[Ô]) = [Ô]Admin[Ô] Then
MsgBox([Ô]Administrador : [Ô] & txtUserName.Text)
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = True
Usuarios.btnIncluir.Enabled = True
Usuarios.btnAlterar.Enabled = True
Usuarios.btnExcluir.Enabled = True
Else
Entradas_saidas_estoque.btnIncluir.Enabled = True
Entradas_saidas_estoque.btnAlterar.Enabled = False
Usuarios.btnIncluir.Enabled = False
Usuarios.btnAlterar.Enabled = False
Usuarios.btnExcluir.Enabled = False
End If
senha = checar.Item([Ô]senha[Ô]).Trim
login = checar.Item([Ô]login[Ô]).Trim
Exit While
End While
If Login = txtUserName.Text And senha = txtPassword.Text Then
Me.Visible = False
MDI_Principal.ShowDialog()
ElseIf login = Nothing Or senha = Nothing Then
MsgBox([Ô]Usuário ou Senha incorreto![Ô], MsgBoxStyle.Information, [Ô]Erro[Ô])
txtUserName.Text = [Ô][Ô]
txtPassword.Text = [Ô][Ô]
txtUserName.Focus()
End If
checar.Close()
[ô][ô]Desconectar()
End Sub
Boa noite,
Valeu LUIZCOMINO,
Você deu a solução do problema de repetição de Mensagem.
Muito Obrigado
JMRF
Tópico encerrado , respostas não são mais permitidas