Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Convertir contenido de subformulario a cadena de texto

17/12/2013 - 17:08 por juanfran | Informe spam
Ayuda Hacer una pregunta
Hola a todos,

Necesito ayuda para pasar los registros de un subformulario a una cadena de texto, utlizando vba.

El subformulario en cuestion tiene tres columnas: id, numerotlf y descripcion.

Un ejemplo de cadena resultante seria:

968472645, cliente casa
965635423, cliente trabajo
627654634, cliente movil
679856374, esposa cliente

La cuestion es que tengo un boton para enviar un email y para incorporar los telefonos al cuerpo del mensaje tiene que ser una cadena de texto.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 José Mª Fueyo
17/12/2013 - 18:31 | Informe spam
Hola.
Puedes utilizar el método RecordsetClone del formulario.
Este ejemplo está creado con el formulario "Pedidos". Crea un botón llamado "cmbRecorreLineasPedido" y pega este código

<pego>
Private Sub cmbRecorreLineasPedido_Click()
Dim rs As DAO.Recordset
Dim sSalida As String, i As Integer, j As Integer
Set rs = Me.Subformulario_Pedidos.Form.RecordsetClone
i = rs.Fields.Count - 1
Do Until rs.EOF
For j = 0 To i
sSalida = sSalida & "|" & rs(j).Value
Next
sSalida = Mid(sSalida, 2) & vbCrLf
rs.MoveNext
Loop
Set rs = Nothing
sSalida = "Resultado: " & vbCrLf & vbCrLf & sSalida
MsgBox sSalida
End Sub
</pego>

Espero te sirva.

Salu2,

José Mª Fueyo
[MS MVP Access]

Preguntas similares

 

Busqueda sugerida :