VARIAVEL NAO DEFINIDA

ALANTB 25/07/2013 14:56:30
#426516
Oi gente,

Fiquei perdido em uma coisa agora: estou usando um codigo para carregar listview, no vb6 com access, que esta funcionando perfeitamente. Entretanto fui colar a mesma rotina em outro form, e da erro dizendo que [Ô]variavel não foi definida[Ô]. Sendo que, em outros forms não apresenta o erro. Uso a mesma rotina mais 3 ou 4 forms.Se estivesse errado, travaria os outros forms também. O código é o descrito baixo:

Sub CarregaSim()

If txtCodViagem.Text = [Ô][Ô] Then Exit Sub

ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
[ô]define a conexão e abre o Recordset com os dados da tabela
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CacheSize = 50


.Source = [Ô]SELECT tbCadastro.codPessoa, tbCadastro.nome, tbDestino.descricaoDestino AS Destino, tbParada.descricaoParada AS Parada, tbLista.horaMarcada, tbConfirma.desconfirma AS Confirma [Ô] & _
[Ô]FROM tbConfirma INNER JOIN (tbParada INNER JOIN (tbDestino INNER JOIN (tbCadastro INNER JOIN tbLista ON tbCadastro.codPessoa = tbLista.codPessoa) ON tbDestino.codDestino = tbLista.codDestino) ON tbParada.codParada = tbLista.codParada) ON tbConfirma.codconfirma = tbLista.codConfirma [Ô] & _
[Ô]WHERE tbLista.codConfirma=1 AND tbLista.codViagem=[Ô] & txtCodViagem.Text




Debug.Print
.ActiveConnection = conn
.Open
End With

[ô]Cria o cabeçalho do controle ListView

ListView1.ColumnHeaders.Add , , [Ô]Código[Ô], 900, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Nome[Ô], 3450, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Destino[Ô], 3050, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Parada[Ô], 2000, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Hora[Ô], 900, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Confirmação[Ô], 1400, lvwColumnLeft
ListView1.ColumnHeaders.Add , , [Ô]Índice[Ô], 1400, lvwColumnLeft



[ô]Preenche o controle listview com os dados da tabela
Dim i As Integer
For i = 0 To rs.RecordCount - 1
Set LIClientesID = ListView1.ListItems.Add(, [Ô]A[Ô] & rs(0), rs(0))[ô] O Erro é AQUI, LIClientesID, variavel não definida

If Not IsNull(rs(0)) Then
[ô]LIClientesID.SubItems(1) = ListView1.ListItems.Count
LIClientesID.SubItems(1) = [Ô][Ô] & rs!Nome
LIClientesID.SubItems(2) = [Ô][Ô] & rs!Destino
LIClientesID.SubItems(3) = [Ô][Ô] & rs!Parada
LIClientesID.SubItems(4) = [Ô][Ô] & rs!HoraMarcada
LIClientesID.SubItems(5) = [Ô][Ô] & rs!Confirma
LIClientesID.SubItems(6) = ListView1.ListItems.Count

End If
rs.MoveNext
Next i

rs.Close
Set rs = Nothing
End Sub
SAMUKA 25/07/2013 16:18:30
#426522 Resposta escolhida
Esse aviso de erro geralmente aponta a linha onde está a variavel que não está definida.
ALANTB 25/07/2013 16:43:34
#426524
SAMUKA, não faz sentido, em um form funciona, mas em outro pede definição de variável. A linha do erro eu comentei no código acima.Não tenho ideia de como defini-la, pois não sei o seu tipo???Esse modo de carregar listview eu venho usando sem problemas, até agora....
ALANTB 25/07/2013 17:12:03
#426526
As vezes de tanto bater na mesma tecla, a gente parece que sai fora do ar. A solução do meu problema era a mais óbvia possível: somente fiz as definições a seguir e resolvi:

Dim LIClientesID As ListItem
Dim i As Integer

Básico dos básicos.Sendo assim vou encerrar, valeu a atenção SAMUKA, vou pontuar...até mais..
Tópico encerrado , respostas não são mais permitidas
Voltar