ERROR 35601 ELEMENT NOT FOUND

STEWARTCINTRA 17/05/2010 20:07:12
#342003
ola galera meu programinha esta dano um erro que eu num sei o que e
alguem sabe RUN-TIME ERROR 35601 ELEMENT NOT FOUND
o erro esta na linha abaixo


RS.Open [Ô]SELECT * FROM VendaProduto WHERE CodProduto = [ô]%[Ô] & frmInfoMesas.ListView1.ListItems(I).ListSubItems(1) & [Ô]%[ô] AND DataVenda = [ô][Ô] & Format(Date, [Ô]dd/MM/yyyy[Ô]) & [Ô][ô][Ô], CON


me ajudem
MICROSCHEME 17/05/2010 20:40:16
#342011

Cara
Não será porque tu tá usando indice I no listitens e indice 1 no listsubitens
STEWARTCINTRA 17/05/2010 20:50:02
#342013
sobre o 1 no subitem eh porque eh o segundo subItem do listviem entende...

O listview esta assim, Item, CodProduto, etc


COMO VOCE ACHA QUE DEVERIA FAZER ESSE CODIGO?
ROBIU 17/05/2010 21:38:08
#342021

é isso?
frmInfoMesas.ListView1.ListItems(I).ListSubItems(1)


ou isso?
frmInfoMesas.ListView1.ListItems(1).ListSubItems(1)
STEWARTCINTRA 17/05/2010 21:40:43
#342022
Citação:

:

é isso?

frmInfoMesas.ListView1.ListItems(I).ListSubItems(1)


ou isso?
frmInfoMesas.ListView1.ListItems(1).ListSubItems(1)




frmInfoMesas.ListView1.ListItems(I).ListSubItems(1)

com I de Inveja
ROBIU 17/05/2010 22:02:01
#342025
Antes da sql, verifica o valor retornado neste criterio:
msgbox frmInfoMesas.ListView1.ListItems(I).ListSubItems(1)
Se possível, posta o projeto.
STEWARTCINTRA 17/05/2010 23:08:13
#342030
Citação:

:
Antes da sql, verifica o valor retornado neste criterio:

msgbox frmInfoMesas.ListView1.ListItems(I).ListSubItems(1)
Se possível, posta o projeto.



COLOCANDO ESSE CODIGO AI DA ERRO NELE
AQUI VAI MAIS UM POUCO DO MEO CODIGO

For X = 1 To frmInfoMesas.ListView1.ListItems.Count

Connect

RS.Open [Ô]SELECT * FROM VendaProduto WHERE CodProduto = [ô][Ô] & frmInfoMesas.ListView1.ListItems(I).ListSubItems(1) & [Ô][ô] AND DataVenda = [Ô] & Format(Date, [Ô]dd/MM/yyyy[Ô]) & [Ô][ô][Ô], CON

If RS.EOF Then

ADDPRODUTOS = [Ô]INSERT INTO VendaProduto (CodProduto,NomeProduto,Quantidade, DataVenda) VALUES ([ô][Ô] & frmInfoMesas.ListView1.ListItems(I).ListSubItems(1) & [Ô][ô],[ô][Ô] & frmInfoMesas.ListView1.ListItems(I).ListSubItems(2) & [Ô][ô],[ô][Ô] & frmInfoMesas.ListView1.ListItems(I).ListSubItems(3) & [Ô][ô], [ô][Ô] & Format(Date, [Ô]dd/MM/yyyy[Ô]) & [Ô][ô])[Ô]
CON.Execute (ADDPRODUTOS)

Else

xQuantidade = Val(frmInfoMesas.ListView1.ListItems(I).ListSubItems(3)) + Val(RS([Ô]Quantidade[Ô]))
EDITAPRODUTOS = [Ô]UPDATE VendaProduto SET Quantidade = [ô][Ô] & xQuantidade & [Ô][ô] WHERE CodProduto = [ô][Ô] & frmInfoMesas.ListView1.ListItems(I).ListSubItems(1) & [Ô][ô][Ô]
CON.Execute (EDITAPRODUTOS)

End If

Next X
MSMJUDAS 18/05/2010 12:06:28
#342073 Resposta escolhida
No FOR vc está usando a variável X, iniciando em 1 (um), mas no ListItems vc está usando o I


Falta de atenção.
STEWARTCINTRA 18/05/2010 19:11:55
#342127
Citação:

:
No FOR vc está usando a variável X, iniciando em 1 (um), mas no ListItems vc está usando o I


Falta de atenção.



EXATAMENTE MEU CARO, OBRIGADO PELA DICA

ABRACOS
Tópico encerrado , respostas não são mais permitidas
Voltar