Concatenar registros

Un experto de aquí contestó hace tiempo a una pegunta similar. Lo que quiero es concatenar los registros del campo "email" separados por ";".
Este es el código que dio:
Private Sub Comando14_Click()
Dim r As Recordset
  bu = FreeFile
Open "fichero.txt" For Output As bu
   Set r = CurrentDb.OpenRecordset("select * from Email", dbOpenDynaset)
   If r.RecordCount > 0 Then
      r.MoveLast
      r.MoveFirst
      For a = 1 To r.RecordCount
         Print #bu, r!email & ";";
         r.MoveNext
      Next
   End If
Close bu
End Sub
Cuando le doy al botón me sale el siguiente error: "Se ha producido el error 3001 en tiempo de ejecución: Argumento no válido".
Le doy a "depurar" y marca en amarillo la siguiente línea:
Set r = CurrentDb.OpenRecordset("select * from Email", dbOpenDynaset)
¿Alguien me puede ayudar a solucionar el probalema?

1 Respuesta

Respuesta
1
Dime el nombre de la tabla y el campo donde están los email y te hago el código para que te lo ponga todo en un nuevo email
Nombre de la tabla: USUARIOS
Campo: Email
Muchísimas gracias, dayvitt!
Dim rst As DAO.Recordset
 Dim strSql As String
 Dim strSep As String
 Dim strRes As String
 Dim NomCamp As String
 Dim NomTaula As String
 Dim Separador As String
 Dim DQ As String
 NomCamp = "[Email]"
 NomTaula = "USUARIOS"
 Separador = "; "
 DQ = """"
 If Nz(NomCamp, "") <> "" Then
    If Nz(NomTaula, "") <> "" Then
        strSql = "SELECT " & NomCamp & " FROM " & NomTaula & ";"
        strSep = Nz(Separador, "")
        Mails.Value = strSql
        Set rst = CurrentDb.OpenRecordset(strSql)
        With rst
            If (Not .EOF) And (Not .BOF) Then
                Do While Not .EOF
                    If IsNull(.Fields(0)) = False Then
                        strRes = strRes & .Fields(0)
                        If Not .EOF Then
                            strRes = strRes & strSep
                        End If
                    End If
                    .MoveNext
                Loop
            End If
        End With
    End If
 End If
 strRes = Left(strRes, Len(strRes) - 2)
DoCmd. SendObject acSendNoObject,,,,, strRes
Me sigue dando el error: Error de compilación: No se ha definido el tipo definido por el usuario.
¿Qué será?
¿Dónde te marca el error?
Me lo da al hacer click en el botón y marca en amarillo esto: Private Sub Comando82_Click() y en gris esto: rst As DAO. Recordset
te falta el Dim delante
No, no te lo copié, pero no me falta: Está así:
Dim rst As DAO.Recordset
:_(
Vale, quitale la linea Mails.Value = strSql
Me sigue marcando el error en este fragmento de línea: rst As DAO. Recordset
Que error te da?  Y pegame todo el codigo del Private Sub Comando14_Click()
ME da el error:
"Error de compilación:
No se ha definido el tipo definido por el usuario."
Private Sub Comando82_Click()
Dim rst As DAO.Recordset
 Dim strSql As String
 Dim strSep As String
 Dim strRes As String
 Dim NomCamp As String
 Dim NomTaula As String
 Dim Separador As String
 Dim DQ As String
 NomCamp = "[Email]"
 NomTaula = "USUARIOS"
 Separador = "; "
 DQ = """"
 If Nz(NomCamp, "") <> "" Then
    If Nz(NomTaula, "") <> "" Then
        strSql = "SELECT " & NomCamp & " FROM " & NomTaula & ";"
        strSep = Nz(Separador, "")
                Set rst = CurrentDb.OpenRecordset(strSql)
        With rst
            If (Not .EOF) And (Not .BOF) Then
                Do While Not .EOF
                    If IsNull(.Fields(0)) = False Then
                        strRes = strRes & .Fields(0)
                        If Not .EOF Then
                            strRes = strRes & strSep
                        End If
                    End If
                    .MoveNext
                Loop
            End If
        End With
    End If
 End If
 strRes = Left(strRes, Len(strRes) - 2)
 DoCmd.SendObject acSendNoObject, , , , , strRes
End Sub
Ok, vete a Herramientas ->Referencias y tíldale a Microsoft DAO 3. 6
Si no es Herramientas ->referencias, es proyecto -> referencias
Ahora sí!
De verdad que te agradezco muchísimo las molestias que te has tomado.
El viernes lo probaré en el trabajo!
Una vez más, mil gracias!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

Insertar tabla access en correo Outlook

Tengo una base de datos con la que genero una tabla que luego envío por correo, mi pregunta es si alguien conoce un método para automatizar la inserción de la tabla en un mesage de Outlook, ahora lo ago pasándola a Word, luego copiar y pegar en...
1 respuesta

Verificar Consecutivo en una consulta o Tabla

Quiero preguntarte si existe una forma o función que pueda verificar cuando un numero no es consecutivo en una tabla o consulta..
1 respuesta

Validar datos con cuadro de texto 2

En días pasados me resolviste una duda acerca de como validar el texto escrito en un cuadro de texto en access y compararlo con lo que hay en mi tabla, el problema es que al ejecutar la operación access me marca error en la siguiente linea: Set rst =...
1 respuesta

¿Cómo diseñar una aplicación con una base de datos y que envíe mails?

Eres el único que me contesta) quisiera saber como poder hacer una base de datos sencillita en el que introduzca las fechas de vacaciones de los empleados, quiero algo sencillo, lo que quiero en realidad es que cuando un empleado este de vacaciones...
1 respuesta

Mostrar mensaje al ingresar registro duplicado

Necesito mostrar un mensaje hecho por mi cuando alguien ingresa algún dato que ya existe. Yo tengo programado nel campo sin duplicados y ya aparece una leyenda medio rara y no te permite pero yo lo quiero personalizar para que diga "REGISTRO YA...
1 respuesta

Elaborar indicadores en access

Tengo una tabla con dos campos, el primer campo se llama troquel del equipo, y el otro campo se llama estado del equipo. El campo troquel del equipo se llena con datos de combinación de números y texto pues es la forma de identificar los motores en...
1 respuesta

Buscar por cuadro de texto

Tengo un tabla llamada "folios", en la cual tengo la columna folio la cual es mi ID en la que están contenidas los folios del P001 alP100, tengo otra tabla llamada "productos" con las columnas idproducto, folio, producto, descripción, conteo. Estas...
2 respuestas

Indicadores access

Otra vez yop... Soy el de los indicadores de los motores... Aja le explico, yo hice lo que me dijo y salio muy bien... Y adicionalmente se lo hice también a otra tabla que es de las distintas plantas y sus estados.. Claro cambie el nom de la tabla y...
1 respuesta

Insertar texto en criterio de consulta con VBA

Tengo definida una consulta que extrae criterios desde un formulario (la mayoría con generador de expresiones). Sin embargo, en el formulario, tengo un cuadro de lista desde el que me gustaría extraer los datos y copiarlos en el criterio de una de...
1 respuesta