Error 3061 En Tiempo De Ejecucion Pocos Parametros
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
» 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 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 Intento crear una fucion con un recorset pero me presenta un error. Se ha producido el error 3061 http://www.todoexpertos.com/preguntas/5gns4wcskfgtaorh/se-ha-producido-el-error-3061-pocos-parametros-se-esperaba-1 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)= " & Ipara & "))") If Not rs.EOF Then TraerParametro = rs!txtparametro Else TraerParametro = Null End If End Function la ejecuto desde un btn con el codigo http://www.forosdelweb.com/f69/error-recordset-1006648/ 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: agosto-2012 Ubicación: Bogota Colombia Mensajes: 4 Antigüedad: 4 años, 2 mesesPuntos: 0 Respuesta: error en Recordset Hola creo que el error era en armar la consulta en el mismo recordset, Lo soluione con un string pra el query ... pego el codigo Cita: Function TraerParametro(ByVal Ipara As String) As String Dim db As Database Dim r
be down. Please try the request again. Your cache administrator is webmaster. Generated Tue, 11 Oct 2016 08:58:01 GMT by s_wx1131 (squid/3.5.20)
Página de inicio Todas las categorÃas Arte y humanidades Automóviles y transporte Belleza y estilo Ciencias sociales Ciencias y matemáticas Comer y beber Computadoras e internet Deportes Educación y formación Electrónica de consumo Embarazo y maternidad Familia, Amor y Relaciones Hogar y jardinerÃa Juegos y recreación Mascotas Medio ambiente Música y entretenimiento Negocios locales Negocios y finanzas Noticias y eventos PolÃtica y gobierno Restaurantes Salud y belleza Sociedad y cultura Viajes Yahoo y sus Productos Internacional Argentina Australia Brasil Canadá Francia Alemania India Indonesia Italia Malasia México Nueva Zelanda Filipinas Quebec Singapur Taiwán Hong Kong España Tailandia Reino Unido e Irlanda Estados Unidos Vietnam Acerca de Acerca de respuestas Normas de la comunidad Clasificación Colaboradores oficiales Puntos y niveles Blog Consejos de seguridad Computadoras e internet Diseño y Programación Siguiente ¿Bases de datos. Vb 6.0 "Error 3061en tiempo de ejecución: pocos parámetros. Se esperaba 1"? El problema es que cuando ejecuto me da "error 3061 en tiempo de ejecución: pocos parámetros. Se esperaba 1" El codigo es el siguiente: Dim rs As Recordset Dim buscar, sql As String buscar = "'" + Text1.Text + "'" sql = "select nombre, apellido, usuario1, email,... mostrar más El problema es que cuando ejecuto me da "error 3061 en tiempo de ejecución: pocos parámetros. Se esperaba 1" El codigo es el siguiente: Dim rs As Recordset Dim buscar, sql As String buscar = "'" + Text1.Text + "'" sql = "select nombre, apellido, usuario1, email, ciudad from datos_perfil where nombre =" & buscar & "or apellido= " & buscar Set rs = Data1.Database.OpenRecordset(sql, dbOpenSnapshot) While Not rs.EOF Form8.List1.AddItem ("usuario1: " & rs.Fields("usuario")) Form8.List1.AddItem ("nombre: " & rs.Fields("nombre")) Form8.List1.AddItem ("apellido: " & rs.Fields("apellido")) Form8.List1.AddItem ("correo: " & rs.Fields("email")) Form8.List1.AddItem ("ciudad: " & rs.Fields("ciudad")) rs.MoveNext Wend Hide Form2.Show Ayuda por favor :D Seguir 3 respuestas 3 Notificar abuso ¿Estás seguro que deseas eliminar esta respuesta? Sà No Lo sentimos, ocurrió un error. Trending Now Respuestas Calificación Más reciente Más antigua Mejor respuesta: pocos parámetros. Se esperaba 1, te idica que alguno de estos campos nombre, apellido, usuario1, email, ciudad no posee el mismo nombre en tu base de datos, por otro lado dificulto que arreglado eso te funcione pues te faltan comillas simples ' en la compraracion de nombre