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

    [Resolvido]Referirencia a coluna de listBox e Linha

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Referirencia a coluna de listBox e Linha Empty [Resolvido]Referirencia a coluna de listBox e Linha

    Mensagem  Assis 7/4/2015, 00:42

    Boa noite amigos

    Como fazer para fazer referencia a uma coluna em determinada linha

    If IsNull(Me.ListBox.column(2)) e aqui fazer referencia á linha tipo id = me.id Then

    MsgBox " Mensagem ", vbCritical, "Aviso"

    End If

    ID      Descrição              Valor
    01         Teste                      20
    02         aqui é nulo        10

    Queria fazer referência na coluna 2 aonde o campo é nulo, na linha 2 aonde Id = 02

    Espero ser entendido.


    .................................................................................
    *** Só sei que nada sei ***
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Referirencia a coluna de listBox e Linha Empty Re: [Resolvido]Referirencia a coluna de listBox e Linha

    Mensagem  formiga10x 7/4/2015, 07:01

    Veja se é isto Assis.

    [Resolvido]Referirencia a coluna de listBox e Linha 264tdl3

    Código:
    Dim K As Variant
                                 '0 é a linha
    K = Form_S.lstTeste.Column(3, 0)
                              '3 é o index
                              
                              
                              'Por exemplo se eu por 1,0 vai pegar o valor Elias
                              'Se eu por por exemplo 1,1 vai pegar o valor Erick


        If IsNull(K) Or K = "" Then
        
            MsgBox ("Nulo")
            
            Else
            
             MsgBox ("Não nulo " & K & "")
            
            Form_S.txtTeste1 = K
        
        End If

    Veja também.

    Código:
    Private Sub Comando5_Click()

    Dim Linha As Integer

    Linha = Me.lstTeste.ListIndex

    Me.Texto6 = Me.lstTeste.Column(3, Linha)

    End Sub

    Veja utilizando a propriedade ListCount
    [Resolvido]Referirencia a coluna de listBox e Linha 291hspf
    Código:
    Dim index2, k As Integer
    Dim s As Variant

    index2 = Me.txtIndexNull

    For k = 1 To Form_S.lstTeste.ListCount - 1
    s = Form_S.lstTeste.Column(index2, k)

        If IsNull(s) Or s = "" Then
        MsgBox ("Hé Nulo " & s & "")
        
        Texto32 = "HÉ NULO"
        Exit Sub
        
            Else
        
        Texto32 = s
        
        End If

    Next k
    Anexos
    [Resolvido]Referirencia a coluna de listBox e Linha AttachmentlstValor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 18 vez(es)


    Última edição por formiga10x em 7/4/2015, 11:45, editado 2 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Referirencia a coluna de listBox e Linha Empty Re: [Resolvido]Referirencia a coluna de listBox e Linha

    Mensagem  formiga10x 7/4/2015, 08:25

    Caso use access 2003
    Anexos
    [Resolvido]Referirencia a coluna de listBox e Linha AttachmentlstValorMDB.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 14 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Referirencia a coluna de listBox e Linha Empty Re: [Resolvido]Referirencia a coluna de listBox e Linha

    Mensagem  Assis 7/4/2015, 14:52

    Obrigado Formiga
    Com a sua dica resolvi....


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Referirencia a coluna de listBox e Linha Empty Re: [Resolvido]Referirencia a coluna de listBox e Linha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:20