Todos los registros en un cuadro

Raul Espero hayas pasado un feliz fin de año. Mi pregunta es si sabes por código(no por consulta)hacer al pulsar un botón que todos los registros de un campo "e_mail" de una tabla "clientes" se copien en un cuadro de texto tipo memo "CCO" perteneciente este ultimo a otra tabla, y queden separados todos los registros entre si por un ; y un espacio. El cuadro de texto tipo memo "CCO" (viculado al campo "CCO" de otra tabla "e_mail_enviados") lo controlo o visualizo a través de un formulario de entrada de datos vinculado a la tabla "e_mail_enviados"
La explicación es larga pero se que código que necesito no es tan complejo pero no lo se hacer.

1 respuesta

Respuesta
1
Supongo que utilizas Access 97 que trabaja con DAO y es access 2000 o posterior es parecido (ADO).
En Lenguaje colocial sería algo así como:
Abre la base de datos por código
Abre la tabla clientes
Si la tabla clientes tiene más de cero registros
Ve al primero
Mientras no llegues al final
Añade a campoMemo el contenido del campo email y un ;
Muévete al siguiente registro
Cierra la tabla
Cierra la Base de Datos
Quita a campomemo el ultimo carácter (un ; que sobraría)
Que traducido a Visual Basic, sería algo así como:
Public Sub Botón_Click()
Dim BdLoc as database
Dim RsOrig as recordset
set bdloc=currentdb()
set rsorig=bdloc.openrecordset("Clientes",dbopensnapshot)
if rsorig.recordcount>0 then
rsorig.movefirst
while not rsorig.eof
CuadroTextoMemo=CuadroTextoMemo & Clientes!Email & ";"
rsorig.movenext
Wend
Endif
Rsorig. Close
Bdloc. Close
cuadrotextomemo=left(cuadrotextomemo,len(cuadrotextomemo)-1)
End Sub
Me dice que no se ha definido la variable y me presenta la siguiente linea
CuadroTextoMemo=CuadroTextoMemo & Clientes!Email & ";"
Y me marca la tabla clientes.
Te aclaro el cuadro de texto memo esta vinculado a la tabla e_mail_enviado y se llama "cco".
El campo e_mail esta vinculado a la tabla "clientes". Y la idea es meter todas las direcciones de imail en el cuadro de tecto "cco" en un formulario de entrada de datos no directamente en la tabla.
Gracias
En donde pone clientes! Email tienes que poner Rsorig! Email
¿Pero si quisiera adicionar la siguiente variable como haríamos?, qie me introduzca solo el e-mail de los clientes que viven en una ciudad especifica.
Tengo en la tabla "clientes" el campo "ciudad"
También tengo el el formulario un cuadro de texto independiente "ciunew" para escribir la ciudad que quiero y lógicamente el cuadro de texto memo "cco" al que nos hemos referido.
Gracias y Feliz Año
La linea
set rsorig=bdloc.openrecordset("Clientes",dbopensnapshot)
la tienes que sustituir por
set rsorig=bdloc.openrecordset("Select * from Clientes where Ciudad='" & ciunew & "'")
Me da un error en la ultima linea si no consigue ninguna ciudad con el nombre especificado y para terminar necesitaría que en un cuadro de texto independiente "nciudnewn" me colocara el numero de los registros que encontró. Por ejemplo, se encontraron 26 clientes en la ciudad de madrid. Claro la frase se encontraron clientes seria una etiqueta.
Lo intente con
Me.Texto8 = DCount("ciudad", "clientes",
Pero me quede pegado en el criterio, se que debo tomar la referencia del cuadro de texto "ciunew" pero me quede pegado
Sustituye la linea
cuadrotextomemo=left(cuadrotextomemo,len(cuadrotextomemo)-1)
por
if len(cuadrotextomemo)>0 then
cuadrotextomemo=left(cuadrotextomemo,len(cuadrotextomemo)-1)
Endif
El error te da cuando la longitud de cuadrotextomemo=0, al restar 1 no puedes coger -1 caracteres
para poner el número de registros encontrados
antes de rsorig.movefirst pones
rsorig.movelast
me.texto8="Se encontraron " & rsorig.recordcount & "registros en " & ciunew
La función Dcount también está bien, aunque es algo más lenta, en la condición where tienes que poner justo detrás del where de la instrucción openrecordset, es decir
Ciudad='" & ciunew & "'")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Combobox y texbox

Sobre la misma pregunta que te hizo mrair tengo un problema parecido,, solo que deseo poner en el cuadro de texto son muchos caracteres osea mucho texto,,, ya puse en memo pero solo me visualiza una parte osea no más de 250, el valor donde se guardan...
1 respuesta

Borrar caracteres

Exporté unas tablas desde VFP en modo Texto Delimitado y al importar las tablas desde SQL, estas tenían al comienzo y final de los campos, comillas, por ejemplo todos los datos de la columna CÓDIGO: "123","124" y así sucesivamente. No se si sea...
1 respuesta

Campo memo en access

Como puedo limitar el numero de caracteres en un campo memo. Por ejemplo, quiero que el usuario solo pueda capturar 1650 caracteres en un campo memo, que no se permita capturar más información en ese campo.
1 respuesta

Consecutivo access 2007

Estoy haciendo una base de datos con un código de equipo, para esto necesito generar un consecutivo automático que cada año empiece de nuevo en 001.
1 respuesta

Sustituir caracteres por saltos de linea

No tengo ni idea de VB, y necesito reemplazar un texto (, ) en campos memo de una base por salto de linea, y hacerlo de forma masiva. Buscar y reemplazar no hay problema. El problema es como introducir el salto de linea en la casilla "Reemplazar...
1 respuesta

Como filtrar un list o un grid en tiempo de ejecución

Estoy trabajando con VFP 7 y quisiera saber como filtrar en tiempo de ejecución. Por ejemplo: tengo una tabla clientes con los campos dni, apellido y nombre. Estos datos se muestran en un grid o en un list. Yo quiero ir escribiendo en un textbox el...
1 respuesta

Textbox truncado

Me gustaría saber cómo hacer para que los cuadros de texto definidos tipo memo en sus tablas y que empleo para las campos de observaciones, incidencias, notas, etc puedan usar la combinación de teclas Ctrl. +Intro para escribir en líneas nuevas...
1 respuesta

Limitar caracteres en un campo de formulario memo

No tengo mucha idea aún sobre access, estoy en ello y tengo un pequeño problema, estoy haciendo una BD y en un campo memo del formulario me gustaría limitar los caracteres a 560 y que no se pudiera seguir escribiendo y que me lanzara un mensaje pero...
1 respuesta

Enviar correo electrónico a registros de BD Access

He hecho esta pregunta en varios lugares, pero nadie me responde y supongo que no soy la única, porque considero que es una duda bastante común. Tengo una BD en Access 2000 en la que uno de los campos de los registros es "dirección de email"....
1 respuesta

Manipular campo memo en visual foxpro

Estoy creando un sistema que trabaja con campos memo, puedo ingresar y actualizar la tabla, la pregunta es como manipular la tabla para realñizar una consulta o un reporte. Es posible almacenar el campo memo en un cuadro de texto o que idea me das.
1 respuesta