|
|
Postada em 29/06/2004 14:55 hs
Peço para fazer a seguinte consulta: SQLSTR_MOSTRA = "Select * from INSCRICAO where MES = Janeiro rsMostra.moveMin
while not rsMostra.eof rsMostra.movenext
wend E ele retorna o seguinte erro pois não a registros com o mes de janeiro. "BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro" Como corrigir isso sem usar On error goto Obrigado
 Knight
http://host.csti.eti.br CSTI WebHosting
Hospedando Idéias 
|
|
|
|
|
|
defende
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 29/06/2004 15:09 hs
Depois de abrir o seu Recordset tenta assim Do While Not rs.EOF mes = rs("mes") rs.movenext loop confere ai.... |
|
|
|
|
|
Postada em 29/06/2004 15:11 hs
Troque o comando moveMin por Move"F.i.r.s.t", mas se não houver registros vai da erro do mesmo jeito... então vc primeiro precisa ver se encontrou alguma coisa. t+ - Eriston |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 29/06/2004 15:26 hs
Gente obrigado pela resposta, mas eu escrevi tudo errado. A pergunta correta seria a seguinte: Peço para fazer a seguinte consulta: SQLSTR_MOSTRA = "Select * from INSCRICAO where MES = Janeiro rsMostra.moveMin
while not rsMostra.eof mes = rsMostra("mes") rsMostra.movenext
wend Supondo q não ha registros na tabela com o mes de janeiro ele da esse erro "BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro" Como corrigir isso sem usar On error goto?? Obrigado e mais uma vez me desculpem
Knight http://host.csti.eti.br CSTI WebHosting
Hospedando Idéias
|
|
TÓPICO EDITADO
|
|
|
|
HadesLgc
|
PINDORAMA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/06/2004 16:44 hs
tente assim SQLSTR_MOSTRA = "Select * from INSCRICAO where MES = Janeiro" while not rsMostra.eof mes = rsMostra("mes") rsMostra.movenext
wend
Um trabalho se justifica na medida em que ganha experiências e esforços permitindo que outros comecem por onde terminamos, pois a vida é curta demais para que possamos pesquisar e analizar a grande quantidade de informações dispersas em muitas fontes que não podemos consultar 
|
|
|
|
|
|
Postada em 29/06/2004 17:03 hs
Ops Tenta assim Knight: SQLSTR_MOSTRA = "Select * from INSCRICAO where MES = Janeiro" '... If rsMostra.BOF=True And rsMostra.EOF = True Then Msgbox "Não existem ocorrências para o(s) critério(s) fornecido(s)" rsMostra.Close Set rsMostra = Nothing Exit Sub ' Ou exit function conforme o caso End if rsMostra.moveMin
while not rsMostra.eof mes = rsMostra("mes") rsMostra.movenext
wend Abraços, Sidnei |
|
|
|
