Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Brincando com o Looping For ... Next

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

21022014

Mensagem 

Brincando com o Looping For ... Next







Olá,

Uma maneira de dominar o looping For ... Next é utilizá-lo com algumas funções como a função Mid, por exemplo:

1- Crie um formulário com uma caixa de texto e dê um nome a ela.
2- No ambiente de código coloque esta função:

Public Function Analise()

Dim s As Integer
Dim sCripto As String

For s = 1 To Len(txtPalavra) 'txtPalavra seria o nome de sua caixa de texto
sCripto = Nz(Mid(txtPalavra, s, 1))
MsgBox sCripto 'Repare o que será exibido na variável sCripto. Em seguida,
troque a variável sCripto pela variável s.
Next s

End Function

Código do botão Testar:

Private Sub cmdTestar_Click()
Call Analise
End Sub

#Se você gostou da dica, curta minha página no Facebook, comente e compartilhe com seus amigos:

https://www.facebook.com/EduardoMachado
avatar
good guy
Facilitador
Facilitador

Brasil


http://www.goodguyaccessvba.com.br

Voltar ao Topo Ir em baixo

Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum