Error 3021 En Tiempo De Ejecucion Vb6
Contents |
» Visual Basic cl醩ico » error 3021 en tiempo de ejecucion Estas en el tema de error 3021 en tiempo de ejecucion en el foro de Visual Basic error 1004 en tiempo de ejecucion cl醩ico en Foros del Web. cuando corro mi aplicacion me aparece el sig msj:
Error 70 En Tiempo De Ejecucion
error 3021 en tiempo de ejecucion either BOF or EOF is true, or the currente record ... #1 (permalink) error 91 en tiempo de ejecucion 26/11/2007, 12:10 yohannita Fecha de Ingreso: noviembre-2007 Mensajes: 39 Antig黣dad: 8 a駉s, 10 mesesPuntos: 0 error 3021 en tiempo de ejecucion cuando corro mi aplicacion me aparece el sig msj: error 3021 en tiempo error 339 en tiempo de ejecucion de ejecucion either BOF or EOF is true, or the currente record has been deleted. requested operation requires a current record. #2 (permalink) 27/11/2007, 08:10 Kruzado Fecha de Ingreso: marzo-2007 Mensajes: 307 Antig黣dad: 9 a駉s, 7 mesesPuntos: 17 Re: error 3021 en tiempo de ejecucion ese error lo da cuando no existe el registro buscado o no tienes registros en tu tabla, para solucionarlo escribe al
Error 3021 En Tiempo De Ejecucion Access
inico de tu codigo On Error Resume Next con esto capturas los errores generados en el programa tambien puedes revisar si estan bien hechas las consultas y si efectivamente la consulta que estas haciend tiene datos #3 (permalink) 27/11/2007, 08:29 yohannita Fecha de Ingreso: noviembre-2007 Mensajes: 39 Antig黣dad: 8 a駉s, 10 mesesPuntos: 0 Re: error 3021 en tiempo de ejecucion he estado modificando el codigo ..... pero no encuentro la solucion !!! te envio el codigo.... haber si m puedes ayudar...... Private Sub btn_save_Click() Dim weekRepId As Integer Dim appProfile As Integer Dim projId As String Dim actId As String Dim comp As Integer Dim siExiste As Boolean Dim countreg As Integer If Text1.Visible Then fgd_timesheet = Text1 Text1.Visible = False RecalcTotal (fgd_timesheet.Col) End If 'checa si ya esta cerrado el registro Set rst = New ADODB.Recordset strSQL = " SELECT distinct id " & _ " FROM current_week_report, current_daily_entry " & _ " WHERE id = week_report_id " & _ " AND signature = '" & TRUser & "' " & _ " AND current_week_report.week_id = " & txt_week & " " & _ " AND completed = 1 " rst.Open strSQL, de_TimeReportDB.cnn_TimeReportDB, adOpenStatic, adLockReadOnly, adCmdText If Not rst.EOF Then Exit Sub
ProgramadoresIniciar sesi贸nCorreo: Contrase帽a: Entrar Recordar sesi贸n en este navegadorRecordar contrase帽a?Iniciar sesi贸nCrear cuentaDocumentaci贸n y RecursosCursos error 3021 en tiempo de ejecucion vba y ManualesBiblioteca de TemasC贸digo FuenteNoticias/Art铆culosForos y ConsultasForos de ConsultaChats de error 3021 en tiempo en visual basic prog.Nuevo!!Tabl贸n de NotasDiccionario inform谩ticoProgramadoresProgramadoresOfertas de TrabajoSolicitudes para prog.Lista de CorreoProgramasProgramas/UtilidadesNuestros ProgramasIconos y CursoresPreguntas/RespuestasOtrosUtilidadesColaboradoresEncuestas/Estad铆sticasContactarLWP »
Numero De Error 3021 Access
Foros » Visual Basic » error 3021 tiempo de ejecucion AYUDA!!!!!! Visual Basic - error 3021 tiempo de ejecucion AYUDA!!!!!! VolverNuevo Tema<<>> Vista: http://www.forosdelweb.com/f69/error-3021-tiempo-ejecucion-536155/ arbolcronológicoerror 3021 tiempo de ejecucion AYUDA!!!!!!alex(03/02/2004 15:02:35)5.343 visitas2 respuestasRE:error 3021 tiempo de ejecucion AYUDA!!!!!!Pancho(03/02/2004 16:39:06)RE:error 3021 tiempo de ejecucion AYUDA!!!!!!Fabian(03/02/2004 17:08:20) error 3021 tiempo de ejecucion AYUDA!!!!!!Publicado por alex(39 intervenciones) el 03/02/2004 15:02:35 me tira este error cuando la base de datos esta basia me pueden http://www.lawebdelprogramador.com/foros/Visual-Basic/327510-error-3021-tiempo-de-ejecucion-AYUDA.html ayudar con el codigo pa este error y para validar cuando la clave primaria esta repetida y no se me caiga el programa. gracias Valora esta pregunta0ResponderOtras secciones de LWP con contenido de Visual Basic- C贸digo fuente de Visual Basic- Cursos de Visual Basic- Temas de Visual Basic- Chat de Visual BasicC贸digos de Visual Basic- Venta mostrador- Juego de la serpiente- Conversion de Registros de Recordset a XML RE:error 3021 tiempo de ejecucion AYUDA!!!!!!Publicado por Pancho(53 intervenciones) el 03/02/2004 16:39:06Hola Sub or Function Clave() On error goto ErrorClave rst.AddNew rst!Campo1 rst!CampoN rst.Update SalirClave: Exit Sub or Function ErrorClave: if err.number=3021 then MsgBox "Clave Duplicada" else MsgBox Err.Description endif resume SalirClave end Sub or Function SaludosValora esta respuesta0Comentar RE:error 3021 tiempo de ejecucion AYUDA!!!!!!Publicado por Fabian(501 intervenciones) el 03/02/2004 17:08:20El error 3021 da cuando no encuentra ningun registro,
siguiente sentencia esta desarrollada en visual Basic 6 y cuando se ejecuta me aparece el siguiente cartel:Error'3021' en tiempo de ejecución:El valor de BOF http://www.todoexpertos.com/categorias/tecnologia-e-internet/programacion/visual-basic/respuestas/2113180/error-en-tiempo-de-ejecucion-en-una-sentencia-desarrollada-en-visual-basic o EOF es true, o el actual registro se elimino, la operación solicitada requiere un registro actual.Esta es la sentencia'Abre la conexión.StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BaseDeDatos.mdb;Persist http://solocodigo.com/38495/solucionado-error-3021-no-hay-ningun-registro-activo/ Security Info=False" Set Rst = New ADODB.RecordsetRst.CursorLocation = adUseClientRst.CursorType = adOpenStaticRst.LockType = adLockBatchOptimistic'Controla que todos los campos este llenos para proceder a la eliminacionIf Text1.Text = "" And en tiempo Text2.Text = "" And MaskEdBox1.Text = "__/__/____" And Text4.Text = "" And Text5.Text = "" Then MsgBox "Debe Seleccionar una Registro a Eliminar!!!", vbInformation + vbOKOnly" If vbOK Then DataGrid1.SetFocus Exit Sub End IfElseRst.Open "SELECT * FROM Tabla WHERE Cod1 = '" & CMod & "'" and Cod2 = " & C2Mod & " and Fecha = #" en tiempo de & FEMod & "#", StrCnn, , , adCmdText 'Pregunta por las dudas que no este seguro de eliminar SMS = MsgBox("Esta seguro de Eliminar este Registro!!!!", vbExclamation + vbYesNo)If SMS = 6 Then 'Elimina el Registro Rst.Delete Rst.UpdateBatch Rst.Requery Rst.Close Limpiar 'Limpia las Campos de la Modificación Actualizar_GrillaEnd IfEnd IfLa verdad no se que estoy haciendo mal y lo miro y lo miro y no me doy cuenta por ahí si lo ves vos enseguida te vas a dar cuenta pero yo estoy como enceguecido :-) y no me doy cuenta ... Seguir Siguiendo Dejar de seguir 2 2 respuestas Respuesta de drinfierno 1 1 drinfierno, Luis Tomasto Exp Amigo toy viendo parece no tener error, pero en la noche lo reviso detalladamente o si no t envío u ejemplo concreto ok, espero entiendas que ahora estoy ern el trabajo y estoy a full el 9 jun. 09 Bueno dale gracias si te comprendo...Saludos el 9 jun. 09 Cn.ConnectionString = "File Name=C:\Documents and Settings\Programa2\BDPruebaRel.Mdb" Con. Open Rs. Open "Select * from Refer
» Programaci贸n General » Visual Basic 6.0 e inferiores » Bases de Datos (Moderador: F_Tanori) » [SOLUCIONADO] Error 3021 No Hay Ningun Registro Activo « anterior pr贸ximo » Imprimir P谩ginas: [1] Autor Tema: [SOLUCIONADO] Error 3021 No Hay Ningun Registro Activo (Le铆do 8808 veces) korsakof Miembro activo Mensajes: 36 Nacionalidad: [SOLUCIONADO] Error 3021 No Hay Ningun Registro Activo « en: Mi茅rcoles 25 de Febrero de 2009, 20:11 » 0 Publicidad Ola buenas, perdonad.Me aprece un mensaje que no entiendo porque cuando voy a realizar una busqueda de un registro en access.Lo que aparece es eso: Error 3021 No Hay Ningun Registro ActivoNo consigo entender el porque. Muchas gracias de nuevo. Tweet « 煤ltima modificaci贸n: Jueves 26 de Febrero de 2009, 18:09 por korsakof » m0skit0 Miembro de PLATA Mensajes: 2337 Nacionalidad: Re: Error 3021 No Hay Ningun Registro Activo « Respuesta #1 en: Jueves 26 de Febrero de 2009, 03:35 » 0 驴Puedes poner una parte relevante del c贸digo que te genera este error?Salud Fr33k K0mpu73r korsakof Miembro activo Mensajes: 36 Nacionalidad: Re: Error 3021 No Hay Ningun Registro Activo « Respuesta #2 en: Jueves 26 de Febrero de 2009, 17:27 » 0 Este es el codigo de la busqueda.C贸digo: Visual BasicPrivate Sub txtcodpaciente_LostFocus() Dim criterio As String Dim v As Integer v = Val(txtcodpaciente.Text) If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then criterio = "codpHIS = " & Val(txtcodpaciente.Text) registrohispacientes.FindFirst criterio If registrohispacientes.NoMatch Then txtcodpaciente.Text = registrohispacientes.Fields("codpHIS") txtnumcorre.Text = registrohispacientes.Fields("cohHIS") txtcodenfermedad.Text = registrohispacientes.Fields("codeHIS") txtcodmedico.Text = registrohispacientes.Fields("codmHIS") txtcodtratamiento.Text = registrohispacientes.Fields("codtHIS") txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS") txtnotashistorial.Text = registrohispacientes.Fields("notaHIS") tbarhispacientes.Buttons(1).Enabled = False tbarhispacientes.Buttons(2).Enabled = True tbarhispacientes.Buttons(3).Enabled = True Else tbarhispacientes.Buttons(1).Enabled = True tbarhispacientes.Buttons(2).Enabled = False tbarhispacientes.Buttons(3).Enabled = False End IfEnd IfEnd SubGracias. korsakof Miembro activo Mensajes: 36 Nacionalidad: Re: Error 3021 No Hay Ningun Registro Activo «