VARIAS TENTATIVAS ANTES DE DIGITAR UM DADO VALIDO

MANCKENNA 15/08/2009 22:18:47
#319946
Pessoal me ajudem a colocar os objetos nestes códigos abaixo:
Obs: Não é abuso mas preciso realmente de um pontapé inicial se não for possível colocar a imagém e/ou enviar o frm [Ô]zipado[Ô] me informém os nomes dos objetos .....grato..


Listagem 6.10 [Ô] Seu Usuário Pode Precisar de Várias Tentativas Antes de Digitar um Dado Válido[Ô]

____________________Código_____________________________________________________________________


Dim String

[ô]

[ô] Faz ao Usuário Uma Pergunta Com Respostas do Tipo Sim ou Não

lblPrompt.Caption = [Ô]Do You Want to Continue (Yes or Not) ?

[ô]

[ô] Coloca a Entrada na Variável de String

[ô] denominada strAns

[ô] Verifica a Resposta e Continua Perguntando

[ô] Se o Usuário Não Digitar Sim ou Não

Do while (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])

[ô] Coloque a Entrada na Variável de string

[ô] Denominada strAns Novamente

Loop

[ô] apaga a Mensagem de Erro

lblError.Caption = Null

[ô] como Eu Termino este código ?
TECLA 15/08/2009 22:58:41
#319948 Resposta escolhida
Para testar a rotina abaixo, insere um controle COMMANDBUTTON ao FORM.

Private Sub Command1_Click()
Dim strAns As String
Do While (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])
    strAns = InputBox([Ô]Do You Want to Continue ([ô]Yes[ô] or [ô]No[ô]) ?[Ô], [Ô]Test[Ô])
Loop
MsgBox [Ô]Resposta: [Ô] & strAns
End Sub
MANCKENNA 15/08/2009 23:20:21
#319954
Citação:

TECLA escreveu:
Para testar a rotina abaixo, insere um controle COMMANDBUTTON ao FORM.

Private Sub Command1_Click()
Dim strAns As String
Do While (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])
    strAns = InputBox([Ô]Do You Want to Continue ([ô]Yes[ô] or [ô]No[ô]) ?[Ô], [Ô]Test[Ô])
Loop
MsgBox [Ô]Resposta: [Ô] & strAns
End Sub



Criei um botão e chamei de cmd1 e o Caption chamei de Click e form1 = name e caption= form 1 porém clico no botão e nada acontece......
TECLA 15/08/2009 23:29:47
#319956
Crie o botão, e NÃO MUDE o nome dele que funciona.

Caso queira alterar o NAME do controle, RENOMEIE e em seguida dê um DUPLO-CLIQUE sobre o mesmo e copie somente esta parte do código.
Dim strAns As String
Do While (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])
    strAns = InputBox([Ô]Do You Want to Continue ([ô]Yes[ô] or [ô]No[ô]) ?[Ô], [Ô]Test[Ô])
Loop
MsgBox [Ô]Resposta: [Ô] & strAns
MANCKENNA 16/08/2009 13:27:40
#319968
Valeu , funcionou !!!
Tópico encerrado , respostas não são mais permitidas
Voltar