INSERT INTO - copia (multiple) de formulario (filtrado) a tabla

13/05/2012 - 02:14 por Victor | Informe spam
Hola.

Tengo un formulario en el cual le realizo unos filtros en los campos (así solo me enseña parte del contenido) y deseo copiar el contenido de una de las celdas a una tabla pensado para eso. Así estoy usando este código:


Private Sub Comando126_Click()

Dim dbs As String
dbs = "INSERT INTO emailsOut(email) Values('" & _
Forms.f_ListadoCursos.EMAIL & "')"
CurrentDb.Execute dbs

End Sub

Bueno, pues lo que me hace esto es que me copia el valor de dicha celda en la tabla, pero el primer valor, ignorando por completo el filtro realizado, y lo peor, es que yo necesito que me copie valor por cada celda. Es decir, en el formulario "f_ListadoCursos" tengo la celda "EMAIL" que contiene el email de cada paciente (o sea, unos cuantos emails y no solo uno, pues pacientes hay muchos) y necesito poder copiar aquellos que me muestre el formulario filtrado (o sin filtro, que en este caso serian todos).

¿no he escogido adecuadamente la técnica?¿O tal vez me falta algún parámetro?
¿Como lo podría solucionar?

Gracias por vuestra ayuda.

Víctor

Preguntas similare

Leer las respuestas

#11 José Mª Fueyo
31/05/2012 - 09:47 | Informe spam
Hola
El control subformulario lo llamo ctlSubDatos, ¿lo has nominado tu igual?

Salu2
José Mª Fueyo
[MS MVP Access]
Respuesta Responder a este mensaje
#12 José Mª Fueyo
31/05/2012 - 09:57 | Informe spam
Hola
Si, es un formulario.
Para tu ayuda, yo uso algo parecido a lo que se ha denominado "notación húngara" de objetos. Aquí encontrarás información al respecto, creo que te puede ayudar a hacer el código más legible: http://support.microsoft.com/kb/173738/es

Salu2
José Mª Fueyo
[MS MVP Access]
Respuesta Responder a este mensaje
#13 José Mª Fueyo
31/05/2012 - 10:12 | Informe spam
Hola nuevamente.
Como ayuda: la consulta que uso como origen de datos en el subformulario es esta:

SELECT [Detalles de pedidos].IdPedido, Productos.IdProducto, Productos.NombreProducto, [Detalles de pedidos].PrecioUnidad, [Detalles de pedidos].Cantidad, [Detalles de pedidos].Descuento, CCur([Detalles de pedidos].PrecioUnidad*[Cantidad]*(1-[Descuento])/100)*100 AS PrecioConDescuento
FROM Productos INNER JOIN [Detalles de pedidos] ON Productos.IdProducto = [Detalles de pedidos].IdProducto
ORDER BY [Detalles de pedidos].IdPedido;

Salu2
José Mª Fueyo
[MS MVP Access]
Respuesta Responder a este mensaje
#14 Victor
31/05/2012 - 13:42 | Informe spam
claro, yo lo que he hecho ha sido seguir al pie de la letra tus indicaciones con los mismos nombres (para no liarme). [he creado los dos formularios, y los botones y he puesto el código tal cual me has dicho...) Entonces entiendo ahora que me falta un formulario y alguna tabla. Mas tarde mi miro con calma todo lo que me has pasado hoy a ver si consigo reconstruir el tema y que funcione, de ahí ya miraré de extrapolarlo a mi caso en concreto.

gracias
Respuesta Responder a este mensaje
#15 José Mª Fueyo
31/05/2012 - 14:21 | Informe spam
De nada

Salu2
José Mª Fueyo
[MS MVP Access]
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida