AYuda por favor ERROR 3021

cristiangarofalo
02 de Octubre del 2003
NEcesito s auda Urgente, debo entregar un trabajo para la facultad y esta

estupidez me tiene totalmente parado, la cosa es asi debo carbar un combo

con registros provenientes de la seleccion de otro el primero lo carga bien

pero el segundo me da el sigueinte error y he probado de todo y nada de

nada. Muchas racias por sus respuestas!
ERROR 3021 en tiempo de ejecucion

EIther BOF or EOF, or the current record has been deleted.
Requested operation requieres a current record.

Private Sub concurso_Click()
concu.RecordSource = "Select * from concurso where cncnom='" & _
concurso.Text & "' "
concu.Refresh
cargarprueba
End Sub

Private Sub Form_Load()
concu.Refresh
concu.Recordset.MoveFirst
Do While Not concu.Recordset.EOF
concurso.AddItem concu.Recordset!cncnom
concu.Recordset.MoveNext
Loop
End Sub

Sub cargarprueba()
prueb.RecordSource = "Select * from pruebasc where cnccod='" & _
concurso.Text & "' "
prueb.Refresh
prueb.Recordset.Movefirst
Do While Not prueb.Recordset.EOF
Prueba.AddItem prueb.Recordset!prbnom
prueb.Recordset.MoveNext
Loop
End Sub

Ronald
02 de Octubre del 2003
Mira mi pana, el error lo provoca que la BD esta vacia al momento de hacer la consulta.

Lo unico que tienes que hacer es un código de detección de errores al inicio despues de sub cargarprueba:

on error goto vacio
AQUI VA TU CODIGO
y antes del end sub escribes
exit sub
vacio:

if err.number = 3021 then
Aqui puedes mandar un mensaje, o sencillamente lanzar el mismo codigo pero sin el movefirst.
end if
end sub

Suerte!! cualquier cosa escribe