uso inválido de 'nulo'

[cristiano.evangelista]

Pessoal, tenho essa rotina na minha aplicação

Private Sub filtro(sql1 As String)

Set tfiltro = New Recordset
tfiltro.CursorLocation = adUseClient
tfiltro.Open sql1, conexao, adOpenForwardOnly, adLockReadOnly

'preenchendo o grid
Set griddados.DataSource = tfiltro
lblmsg.Caption = "(" & tfiltro.RecordCount & ")" & " Item (s) " & " encontrados!"

End Sub

quando mando a expressão sql dá o seguinte erro..

uso inválido de 'nulo', e aponta a linha onde está o recordcount, a instrução sql está correta..

fico no aguardo de uma dica.. t+

[raphael_suporte]

pode ser que sua consulta está vazia, coloca uma verificação se ele é nulo antes

if not tfiltro.eof = true then
     sua rotina
else
      msgBox = "Não há registros para essa consulta"
end if

[cristiano.evangelista]

pode ser que sua consulta está vazia, coloca uma verificação se ele é nulo antes

if not tfiltro.eof = true then
     sua rotina
else
      msgBox = "Não há registros para essa consulta"
end if

deu certo não cara, o tfiltro.eof ta retornando false e acusando o mesmo erro,

o que será que pode ser?

[raphael_suporte]

cara verifica seu sql1, tentar imprimir ele no immediate, e vê se o comando está correto. porque de qualquer forma ele teria que retornar 0 e não nulo...

[cristiano.evangelista]

o sql ta correto sim, o estranho é que se colocar um filtro um filtro ele funciona olha so:

assim funciona

filtro ("select e.cod_es as Código, e.desc_es as Descrição, t.descri as Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque  from estoque e, tipos t where cint(e.fabric_es) = t.codigo and t.numero = 9 and grupo_es= " & txtgrupo.Text & " ")

e assim para mostrar todos dá o erro

filtro ("select e.cod_es as Código, e.desc_es as Descrição, t.descri as Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque  from estoque e, tipos t where cint(e.fabric_es) = t.codigo and t.numero = 9 ")

num sei porque não viu :wacko:

falou..

[raphael_suporte]

você copiou isso do immediate? mandando "printar" a variável slq1?

porque se for, está faltando o comando de "=" informar que o filtro está recebendo o comando

[cristiano.evangelista]

não, testei a instrução no visdata

não, testei a instrução no visdata

[raphael_suporte]

verifica no immediate, coloca um break point na hora de abrir o RecordSet, e verifica o valor da variável, verifica se a sintaxe que está sendo passada pela variável está correta.

[kuroi]

quando da o erro, ele preenche o grid??

tenta o sql assim:

select e.cod_es as Código, e.desc_es as Descrição, t.descri as Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque from estoque e INNER JOIN tipos t ON cint(e.fabric_es) = t.codigo Where t.numero = 9