erro: 800a01ca

[kaplan 0]

Salve gente beleza bom eu fiz um select q traz todos os cheques pra mim e crie um variavel aonde ira armezenar todos os id de cheques nele, ele funcionou em um site que eu ja fiz, quando eu fui pegar a mesma função e usar em outro site e começou a apareçer este erroErro de tempo de execução do Microsoft VBScript erro '800a01ca' A variável usa um tipo de automação sem suporte no VBScript O pior é q esta dando o ero na If id_cheque = "" Then.ae eu deixei assim: If CInt(id_cheque) = "" Then e começou a dar erro nesta linha e nao consegui arrumar:Id_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")o que podera ser heim???

While Not RsIdCheque.EOF If Id_cheque = "" Then ' - Erro akiId_cheque = RsIdCheque("id_cheque")ElseId_cheque = Id_cheque & ", " & RsIdCheque("id_cheque")End IfRsIdCheque.MoveNextWend

[jrcardozo 4]

o recordset não está retornando vazio?faça a verificação antes do whileif Not RsIdCheque.EOF thenwhile loopend if

[kaplan 0]

ao grande amigo jonathandj eu consegui arrumar aki

 

mais era mesmo este problema cara brigado e ate mais

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif