Error 3061 En Tiempo De Ejecucion Se Esperaba 1
esperaba 1 Agradezco quien me puede ayudar con esta consulta de intro, llevo medio día y no doy con el problema.Tengo un problema con el siguiente código, al momento de ejecutarlo me arroja el error "3061 en tiempo de ejecución. Pocos Parámetros. Se esperaba 1.Option Compare DatabaseOption ExplicitDim dbs As DatabaseDim rst As RecordsetDim str As String Private Sub Form_DblClick(Cancel As Integer)Set dbs = CurrentDb str = "INSERT INTO ITSalida_Registros_Pagos_Detallado(IdAptosInst, Vr_Unitario_Detallado, IdCtrl_Precio_Insta, IdSalida_Pagos_Detall, Cantidad_Cancelar )" str = str & " SELECT [ITConsulta_Control_pagos_Registros_DetalladoA].IdAptosInst, Vr_Detallado, IdCtrl_Precio_Inst," & Forms!ItSalida_Pagos_detallado![Id_Salida_Pagos_Detall] & ", Nz([Q Mueble],0)-TotalCanceladoDetall([IdAptosInst])" str = str & " FROM [ITConsulta_Control_pagos_Registros_DetalladoA]" str = str & " WHERE [ITConsulta_Control_pagos_Registros_DetalladoA].IdAptosInst =" & Me![IdAptosInst] dbs.Execute (str) Forms!ItSalida_Pagos_detallado!ITSalida_Registro_Pagos_Detallado.Form.Requery Forms!ItSalida_Pagos_detallado!ITConsulta_Salida_Registro_Pagos_Detall_Inst.Form.RequeryEnd SubTengo otra consulta similar a esta en otro formulario y me funciona correctamente, no se por que esta no. Seguir Siguiendo Dejar de seguir 1 1 Respuesta Angel Navales 32.525 pts. Diseño y desarrollo el 7 oct. 14 Para localizar el error una posibilidad sencilla es poner un punto de interrupción en el código y comprobar el valor de str. Si el objeto desde el que se ejecuta el código no tiene acceso a Forms!ItSalida_Pagos_detallado![Id_Salida_Pagos_Detall] o a Me![IdAptosInst] se producirá el error que comentas. Imagino que TotalCanceladoDetall([IdAptosInst]) es un campo calculado o función a la que le pasas el valor de IdAptosInst, por lo que también puede ser que no se tenga acceso a ese valor requerido. Otra posibilidad es que la acción desde donde se ejecuta el doble click provoque que no se tenga el enfoque en un registro en concreto de Forms! ItSalida_Pagos_detallado (suponiendo que éste sea un formulario o subformulario continuo), lo uqe provoca el mismo error.Puedes usar para verlo inspecciones. Créate variables para estas referencias a objetos y agrega inspecciones sobre ellas y sobre el valor de str. Alguna de ellas tiene que tener valor nulo. Una vez la localices no debe de ser complicado evitar ese error.Cordiales saludos. el 7 oct. 14 Solo un comentario más. SI no te manejas bien en el código con las interrupciones, variables... puedes realizarlo de un modo más manual. S
be down. Please try the request again. Your cache administrator is webmaster. Generated Tue, 11 Oct 2016 08:46:55 GMT by s_ac15 (squid/3.5.20)
» Visual Basic clásico » error en Recordset Estas en el tema de error en Recordset en el foro de Visual Basic clásico en Foros del http://www.forosdelweb.com/f69/error-recordset-1006648/ Web. Buenas tardes gracias ante todo es mi primer pregunta. vba en Acces 2007 Intento crear una fucion con un recorset pero me presenta un error. ... #1 (permalink) 02/08/2012, 14:33 andresorland Fecha de Ingreso: agosto-2012 Ubicación: Bogota Colombia Mensajes: 4 Antigüedad: 4 años, 2 mesesPuntos: 0 error en Recordset Buenas tardes gracias ante todo es mi primer pregunta. vba en Acces 2007 error 3061 Intento crear una fucion con un recorset pero me presenta un error. Se ha producido el error 3061 en tiempo de ejecucion. pocos parametros se esperaba 1 este es el codigo de la funcion Function TraerParametro(ByVal Ipara As String) As String Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = CurrentDb.OpenRecordset("SELECT Parametros.Entidad, Parametros.Parametro, Parametros.TxtParametro FROM Parametros WHERE (((Parametros.Entidad)=Nit()) AND ((Parametros.Parametro)= " error 3061 en & Ipara & "))") If Not rs.EOF Then TraerParametro = rs!txtparametro Else TraerParametro = Null End If End Function la ejecuto desde un btn con el codigo MsgBox TraerParametro("jeferh1") Bueno en lo que he buscado creo que es algo en la estructura de la consulta para el recordset pero no logro entenderlo. Gracias. #2 (permalink) 03/08/2012, 05:25 lojoam Fecha de Ingreso: marzo-2012 Ubicación: Springfield Mensajes: 32 Antigüedad: 4 años, 7 mesesPuntos: 7 Respuesta: error en Recordset Buenas, mira por lo que a mi me ha pasado y estoy 100% seguro q es eso xq me ha pasado mucho XD El tema esta en la clausula "WHERE" , no se que trae tu "Parametros" pero fijate de poner los campos q sean textos entre ' ' (comillas simples) y en todo caso debugea el codigo y frenalo en el armado de la consulta para ver como la arma, y si lo esta haciendo correctamente. X ej, hacete un String antes del "OpenRecorset" y armas la query en el, desp haces el "Open" y le pasas el String... Espero te haya servido de algo, Salutte #3 (permalink) 03/08/2012, 08:29 andresorland Fecha de Ingreso: agos