MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Variável que eu possa utilizar em todo o formulário

    avatar
    Adelor da Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 15/08/2013

    Variável que eu possa utilizar em todo o formulário Empty Variável que eu possa utilizar em todo o formulário

    Mensagem  Adelor da Silva 20/9/2013, 20:04

    Como eu faço para declarar uma variável que possa ser utilizada em todo o formulário, e onde eu declaro ela?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Variável que eu possa utilizar em todo o formulário Empty Re: Variável que eu possa utilizar em todo o formulário

    Mensagem  criquio 20/9/2013, 22:25

    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


    .................................................................................
    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.

    avatar
    Adelor da Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 15/08/2013

    Variável que eu possa utilizar em todo o formulário Empty Re: Variável que eu possa utilizar em todo o formulário

    Mensagem  Adelor da Silva 26/9/2013, 18:32

    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"
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Variável que eu possa utilizar em todo o formulário Empty Re: Variável que eu possa utilizar em todo o formulário

    Mensagem  criquio 26/9/2013, 18:45

    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.

    avatar
    Adelor da Silva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 15/08/2013

    Variável que eu possa utilizar em todo o formulário Empty Re: Variável que eu possa utilizar em todo o formulário

    Mensagem  Adelor da Silva 26/9/2013, 18:58

    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
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Variável que eu possa utilizar em todo o formulário Empty Re: Variável que eu possa utilizar em todo o formulário

    Mensagem  criquio 26/9/2013, 19:15

    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
    No evento "Após atualizar" do campo:

    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.


    Conteúdo patrocinado


    Variável que eu possa utilizar em todo o formulário Empty Re: Variável que eu possa utilizar em todo o formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2024, 13:32