FECHAR FORM

USUARIO.EXCLUIDOS 16/09/2006 19:40:15
#171899
estou fazendo uma form de login e coloco se a senha for vedadeira coloco frmlogin.hide ou unload me frmlogin e nenhum desses codigos da certo o form fica por cima do mdi e nem fecha como posso resolver issu ?
USUARIO.EXCLUIDOS 16/09/2006 19:45:02
#171901
veja se este exemplo ajuda :

Private Sub cmdenter_Click()


Dim Criterio As String
        
        Criterio = "Nome = '" & txtusuário.Text & "'and Senha = '" & txtsenha.Text & "'and Acesso = '" & Sim.Text & "' "

        Tbsenha.FindFirst Criterio
        
        If Tbsenha.NoMatch = False Then
            MDIPrincipal.Toolbar1.Buttons(10).Enabled = false
            MDIPrincipal.Show
            Unload frmlogin
       Else
            MDIPrincipal.Toolbar1.Buttons(10).Enabled = True
            MDIPrincipal.Show
            Unload frmlogin
            
        End If
 
End Sub

USUARIO.EXCLUIDOS 16/09/2006 20:24:37
#171903
oq seria sim.text

tbsenha ??
CLEVERSON.F 16/09/2006 20:58:00
#171905
cara, fecha sim ,provavelmente vc esta se referenciando novamente ao form depois do comando unload me, ele tem q ser a ultima linha do evento...
USUARIO.EXCLUIDOS 16/09/2006 21:06:12
#171906
cara estou fazendo assim esta errado ?

tab_login.Close
tab_login.Open "select * from login where usuario='" & txtusuario.Text & "' and senha='" & txtsenha.Text & "'"

If tab_login.RecordCount = 0 Then
MsgBox "asdasdasd"
txtsenha = Clear
txtusuario = Clear

Else
Unload frmlogin
mdiPosto.Show


End If
USUARIO.EXCLUIDOS 16/09/2006 21:50:36
#171916
cara... pode ser que teja alguma coisa no load do MDI que esteja abrindo o form denovo.
MARCOSAV 17/09/2006 00:51:04
#171948 Resposta escolhida
Meu amigo, a galera toda aí em cima tá certa...
Testei isso de tudo que é jeito, e o frmLogin fecha sim..

Só restou vc tentar uma coisa (que por sinal deu erro aki)...

If tab_login.RecordCount = 0 Then 
   MsgBox "asdasdasd" 
   txtsenha = Clear ' troque o Clear por ""
   txtusuario = Clear ' ou por Empty
   ........
   ........



Não sei se vai resolver, mas......

Abraço
T+
Tópico encerrado , respostas não são mais permitidas
Voltar