SENHAS

HILARIO 12/12/2006 00:16:56
#189421
Olá...
Tenho um form chamado 'abertura'. Nele tem um menu Administração com seus submenus Cheques, Dinheiro e Duplicatas. Cada submenu remete a um form específico. Criei outro form para senha, de maneira que quando eu clico no submenu cheque, por exemplo, aparece o form senha.
Como posso fazer para que apareça o form solicitado (cheques, dinheiro ou duplicatas) se a senha estiver correta.
Para um form eu consegui, mas estou me atrapalhando para abrir os outros.
Fiz o seguinte código para o cmdok do form senha.Tentei o select mas não está dando certo.

sql = "select * from win_part where nome='" & Text1.Text & "' and valor='" & Text2.Text & "'"
win_part.Open sql, mercadoria
If win_part.RecordCount = 0 Then
MsgBox "Nome ou Senha errados, tente novamente ou consulte o administrador"
Text1.SetFocus
Text1 = ""
Text2 = ""
win_part.Close

Else
Select Case abertura.mnuadmin
Case abertura.mnucheque
cheque.Show 1
Case abertura.mnuduplicata
duplicata.Show 1
case abertura.dinheiro
dinheiro.show 1
End Select
Unload Me
End If

Desde já, obrigado pela atenção.
ESLEYSANCHES 12/12/2006 00:21:06
#189422 Resposta escolhida
Já tentou tipo colocar uma variavel public no form principal e puxar ela tipo:

'FORM PRINCIPAL, com menus e submenus
public OQUE as string

'Ao clicar em algum item, chegue por exemplo faça assim:
me.OQUE = "cheque"
frm_de_senha.show

'Ae do form se faz todo o seu código acima para validar a senha e verifica oque ele selecionou para abrir o form correto tipo:
if FORM_PRINCIPAL.OQUE = "cheque" then
    me.hide
    frm_cheque.show
    unload me
end if
'...
'E assim por diante



Espero que te ajude !!
Abraços ?!
HILARIO 12/12/2006 00:38:49
#189423
Esley, valeu! Funcionou blz!
Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar