MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    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 em 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 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10561
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    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 em 17/4/2019, 17:41

    Ok. Obrigado.

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 08:01