error en tiempo de ejecucion hola amigos del foro
me podrian ayudar con el siguiente error
error '3021' en tiempo de ejecucion :
el valor de BOF o EOF es True, o el actual registro se elimino; la operacion solicitada requiere un registro actual.
aca les dejo el codigo para ver si ay esta el error :\
muchas gracias
If Optdetalleregiones.Value = True Then
rsllenar.Open "SELECT DATOSVISITADOR.RutVisitador, DATOSVISITADOR.DvVisitador, DATOSVISITADOR.NombreVisitador, VISITAS.HoraVisita, VISITAS.Fecha, DATOSCLIENTE.Region, DATOSCLIENTE.Ciudad FROM (VISITAS INNER JOIN DATOSVISITADOR ON (VISITAS.RutVisitador=DATOSVISITADOR.RutVisitador) AND (VISITAS.DvVisitador=DATOSVISITADOR.DvVisitador)) INNER JOIN DATOSCLIENTE ON (VISITAS.RutCliente=DATOSCLIENTE.RutCliente) AND (VISITAS.DvCliente=DATOSCLIENTE.DvCliente) Where (DATOSCLIENTE.Region = (' " & com_regiones.Text & " '));", cnn1, adOpenStatic, adLockOptimistic
If rsllenar.BOF = False And rsllenar.EOF = False Then
If com_regiones.Text <> "" Then
If rsllenar("region") = com_regiones.Text Then
Call CargarDataGrid(DataGrid1)
Else
MsgBox ("no hay datos para cargar"), vbInformation
End If
Else
MsgBox ("Debe seleccionar un dato"), vbCritical
End If
Else
MsgBox ("La tabla no tiene registros"), vbCritical
End If
Call Ajustar_Columna_DataGrid(DataGrid1, adodc1, True)
End If
cmdVistaPrevia.Enabled = True
End Sub
