formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 10/09/2013
formiga10x Ter 07 Abr 2015, 2:01 am
Veja se é isto Assis.
- 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
- 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
- lstValor.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 Ter 07 Abr 2015, 6:45 am, editado 2 vez(es)
.................................................................................
AbraçoFormiga10xSempre 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