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

    [Resolvido]Uso de column na caixa de texto em procedimentos diferentes

    avatar
    wjfe48
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 03/09/2016

    [Resolvido]Uso de column na caixa de texto em procedimentos diferentes Empty [Resolvido]Uso de column na caixa de texto em procedimentos diferentes

    Mensagem  wjfe48 16/4/2019, 17:46

    Boa tarde,

    Tenho uma dúvida que não consegui dirimir em pesquisa na internet:

    Para indexar uma informação que esteja numa caixa de listagem, clicamos sobre a linha da mesma e a selecionamos com o auxílio da função "column". Até aqui, sem dúvidas.

    Mas se isso é feito num evento do Procedimento, a informação fica guardada na memória para eventos seguintes ?

    Ou seja, a informação teria caráter de variável "Private" ?

    Apenas para exemplificar:

    1º instante:
    Private Sub CaixaTeste_Click()

    CampoA = CaixaTeste.Column(1)

    End Sub




    2º Instante: (sem clicar novamente na caixa)

    Private Sub Checar()

    If CaixaTeste.Column(1) = "A" Then CampoB = ""

    End Sub

    Isto é, embora não faça declaração, o sistema entenderia que as informações da linha clicada estariam disponíveis para uso em qualquer outro Sub ou Função seguinte ?

    Obrigado,

    Waldemar
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Uso de column na caixa de texto em procedimentos diferentes Empty Re: [Resolvido]Uso de column na caixa de texto em procedimentos diferentes

    Mensagem  JPaulo 17/4/2019, 14:48

    Olá;

    Negativo, só ficaria disponivel se você inserir a variavel fora dos procedimentos.

    Exemplo:
    Logo no inicio do VBA, logo após o "Option Compare Database"

    Código:
    Public strVar as String

    Depois no seu botão:
    Código:
    Private Sub CaixaTeste_Click()

    CampoA = CaixaTeste.Column(1)
    strVar = CaixaTeste.Column(1)

    End Sub

    E ae sim,
    Código:
    Private Sub Checar()

    If CaixaTeste.Column(1) = strVar  Then CampoB = ""

    End Sub

    Para funcionar fora do formulario, ou seja, para outros forms, a variavel terá de estar dentro de um modulo;
    Código:
    Public strVar as String


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Uso de column na caixa de texto em procedimentos diferentes Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Uso de column na caixa de texto em procedimentos diferentes Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Uso de column na caixa de texto em procedimentos diferentes Folder_announce_new Instruções SQL como utilizar...
    avatar
    wjfe48
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 03/09/2016

    [Resolvido]Uso de column na caixa de texto em procedimentos diferentes Empty Re: [Resolvido]Uso de column na caixa de texto em procedimentos diferentes

    Mensagem  wjfe48 17/4/2019, 17:41

    Ok. Obrigado.

      Data/hora atual: 25/7/2021, 04:38