Anónimo
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?
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 de dayvitt
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!
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
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á?
¿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
:_(
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
"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!
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!