Leon@rdo
|
PORTO ALEGRE
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2004 10:03 hs
Bom dia a todos Tenho uma variavel string que retorna o valor de uma inputbox como eu faço para buscar o valor do vbcancel busca = inputbox("dfadfas","adfasd") tipo if busca = vbcancel ' isto não funciona como eu faço ????? |
|
|
|
|
|
@ngel
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2004 10:08 hs
não consegui entender ... explica melhor ?
@ngel
|
|
|
|
|
|
Postada em 30/07/2004 10:20 hs
Tente assim: Dim busca As String
busca = InputBox("Teste")
If vbCancel Then
MsgBox "OK"
End If
T+ Rinaldo |
|
|
|
Roßerto
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2004 10:33 hs
mResposta = InputBox("Digite o Nome Autorizado.", "Confirmação")
If StrPtr(mResposta) = 0 Then
Exit Sub
End If
If UCase(mResposta) = "BOME" Then
cmdECF.Enabled = False
load frmGerenteEcf
frmGerenteEcf.Show , Me
Else
MsgBox "Nome Incorreto !!!", vbInformation, ROTULO
End If
Roberto |
|
|
|
Rinaldo
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2004 10:34 hs
Assim funcionu melhor Private Sub Command1_Click()
Dim busca As String
busca = InputBox("Teste")
If busca = "" Then
MsgBox "Cancel pressionado"
Else
MsgBox busca
End If
End Sub T+ Rinaldo |
|
|
|
Roßerto
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/07/2004 10:38 hs
Rinaldo no seu codigo acima, se ele der OK com o campo vazio, vai dar errado Roberto |
|
|
|
