TRABALHANDO COM INPUTBOX

RICKSOUSA 27/06/2012 08:36:10
#404972
bom dia galera!

é a minha primeira vez usando inputbox, então na realidade não sei nada ainda dele.
ja tenho visto alguns tutoriais e tenho um pouco da lógica dele.
vamos lá, vou explicar oq eu estou tentando fazer....

tenho um botão ok

quando eu apertar esse botão eu quero que apareça o inputbox pedindo a senha, se a senha estiver exata então abre o formulario se não fecha o inputbox e volta para a tela.

eu fiz o seguinte:

[txt-color=#0000f0]Dim vSenhaMestra As String
Dim vInputbox As String
vSenhaMestra = [Ô]enghlesson[Ô]
vInputbox = InputBox([Ô]Informe a Senha Mestra[Ô], [Ô]Pesquisa[Ô], vbOK) [ô]erro aqui[/txt-color]

codigo do botão ok:

[txt-color=#0000f0] vInputbox
If vInputbox = Empty Then
MsgBox [Ô]Digite a Senha![Ô]
Exit Sub
ElseIf vInputbox = vSenhaMestra Then
frmCadSenhas.cboFuncao = [Ô]1 - Patrão[Ô]
frmCadSenhas.Show 1
Else: vInputbox Not vSenhaMestra
MsgBox [Ô]Senha Mestra não Confere![Ô]
Exit Sub
End If
[/txt-color]

quando eu clico no botão da o erro que segue na imagem...
ADILSOO 27/06/2012 08:42:17
#404973
Tenta assim...

 vInputbox
    If vInputbox = [Ô][Ô] Then
        MsgBox [Ô]Digite a Senha![Ô]
    ElseIf vInputbox = vSenhaMestra Then
        [ô]Faca oque vc quiser aqui
    Else
        MsgBox [Ô]Senha Mestra não Confere![Ô]
    End If


ve aí qualquer coisa da um toq...
LUIZCOMINO 27/06/2012 08:44:21
#404975 Resposta escolhida
Dim vSenhaMestra As String
Dim vInputbox As String
vSenhaMestra = [Ô]enghlesson[Ô]
vInputbox = InputBox([Ô]Informe a Senha Mestra[Ô], [Ô]Pesquisa[Ô], vbOK) [ô]erro aqui

codigo do botão ok:


If vInputbox = [Ô][Ô] Then
MsgBox [Ô]Digite a Senha![Ô]
Exit Sub
ElseIf vInputbox = vSenhaMestra Then
frmCadSenhas.cboFuncao = [Ô]1 - Patrão[Ô]
frmCadSenhas.Show 1
Else
MsgBox [Ô]Senha Mestra não Confere![Ô]
Exit Sub
End If
RICKSOUSA 27/06/2012 08:45:04
#404976
o erro ainda ta antes adilson esta nessa linha [txt-color=#0000f0]vInputbox[/txt-color]
RICKSOUSA 27/06/2012 08:48:03
#404977
então luiz, o erro continua no vInputbox:
ADILSOO 27/06/2012 09:09:16
#404979
vc só coloca daquele jeito quando é uma SUB
ou Funcao
aí sim
pra variavel vc nao faz isso, voce só declara ela no Geral e usa do jeito que quiser, valeu.
LUIZCOMINO 27/06/2012 09:18:36
#404980
Private Sub Command_Click()
CarregaSenha InputBox([Ô]Digite a Senha[Ô]), [Ô]3[Ô]
End Sub


Sub CarregaSenha(Senha As String, Tipo As String)
Dim sSenhaMestra As String
sSenhaMestra = [Ô]enghlesson[Ô]

If sSenhaMestra <> Senha Then
MsgBox [Ô]Senha informada inválida![Ô], vbCritical, [Ô]Atenção[Ô]
Exit Sub
End If

Select Case Tipo
Case [Ô]1[Ô]:
MsgBox [Ô]Senha para o Patrão[Ô]
[ô]frmCadSenhas.cboFuncao = [Ô]1 - Patrão[Ô]
[ô]frmCadSenhas.Show 1
Case [Ô]2[Ô]:
MsgBox [Ô]Senha para o Gerente[Ô]
[ô]frmCadSenhas.cboFuncao = [Ô]2 - Gerente[Ô]
[ô]frmCadSenhas.Show 1
Case [Ô]3[Ô]:
MsgBox [Ô]Senha para o Funcionario[Ô]
[ô]frmCadSenhas.cboFuncao = [Ô]3 - Funcionario[Ô]
[ô]frmCadSenhas.Show 1
End Select

End Sub
RICKSOUSA 27/06/2012 09:30:13
#404983
puxa, show de bola luiz valeu mesmo funcionou blzinha desse modo que vc fez, vc é mesmo mestre em funções hein rsrsrs

valeu tbm adilson pela ajuda.....
Tópico encerrado , respostas não são mais permitidas
Voltar