Como eu faço para declarar uma variável que possa ser utilizada em todo o formulário, e onde eu declaro ela?
2 participantes
Variável que eu possa utilizar em todo o formulário
Adelor da Silva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 44
Registrado : 15/08/2013
- Mensagem nº1
Variável que eu possa utilizar em todo o formulário
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
No início do módulo VBA, fora de qualquer evento do formulário ou dos controles:
Option Compare Database
Option Explicit
Dim NomeVar As TipoVar
Option Compare Database
Option Explicit
Dim NomeVar As TipoVar
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Adelor da Silva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 44
Registrado : 15/08/2013
Boa Tarde Criquio
Tentei fazer da seguinte forma mas não obtive resultado:
Option Compare Database
Option Explicit
Dim mask_11 As String
mask_11 = "(00) 0,0000-0000"
Tentei fazer da seguinte forma mas não obtive resultado:
Option Compare Database
Option Explicit
Dim mask_11 As String
mask_11 = "(00) 0,0000-0000"
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Se a ideia é usar uma máscara, seria mais produto inseri-la diretamente, já que vai ter mesmo que colocar uma linha para isso. Ou então formatar direto pelas propriedades do campo, na linha Formato da aba Formato ou na linha Máscara de entrada da aba Dados.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Adelor da Silva- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 44
Registrado : 15/08/2013
A minha dificuldade é que vou ter que testar a quantidade de números pois terei duas máscaras:
Select Case Len(fone)
Case 11
fone.InputMask = mask_11
Case 10
fone.InputMask = mask_10
End Select
Por isso gostaria de declarar de uma forma que eu possa utilizar em todo o programa
Select Case Len(fone)
Case 11
fone.InputMask = mask_11
Case 10
fone.InputMask = mask_10
End Select
Por isso gostaria de declarar de uma forma que eu possa utilizar em todo o programa
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Troque a variável por uma função:
- Código:
Function myMask() As String
If Len(ActiveControl) = 11 Then
myMask = "(##) #,####-####"
Else
myMask = "(##) ####-####"
End If
End Function
- Código:
ActiveControl.InputMask = myMask
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
» [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos
» [Resolvido]Como criar e utilizar uma variavel global posterirmente
» [Resolvido]como eu consigo inserir um valor padrão, mas que possa ser atualizado, direto no formulario
» [Resolvido]Criar formulario de inclusão todo em VBA
» Abrir formulário com campo lista todo selecionado
» [Resolvido]Como criar e utilizar uma variavel global posterirmente
» [Resolvido]como eu consigo inserir um valor padrão, mas que possa ser atualizado, direto no formulario
» [Resolvido]Criar formulario de inclusão todo em VBA
» Abrir formulário com campo lista todo selecionado
|
|