Concatenar campos en ACCESS

Tengo la siguiente función que concatena campos y los separa con ",". Quiero que cuando llegue al penúltimo campo le añada una "y" y cuando llegue al último no le añada nada.
Function resumenArticulosCliente(ByVal idCliente As Long) As String
    Dim txt As String
    Dim rs As Recordset
    txt = "SELECT DISTINCT Articulos FROM Pedidos WHERE idCliente=" & idCliente & " ORDER BY Articulos"
    Set rs = CurrentDb().OpenRecordset(txt)
    If Not rs.EOF Then rs.MoveFirst
    txt = ""
    Do While Not rs.EOF
        txt = txt & rs!Articulos & ",  "
        rs.MoveNext
    Loop
    rs.Close
    resumenArticulosCliente = Trim$(txt)
End Function

1 respuesta

Respuesta
1
Uhmmm, yo lo haría así :)
Function resumenArticulosCliente(ByVal idCliente As Long) As String
    Dim txt As String
    Dim rs As Recordset
    txt = "SELECT DISTINCT Articulos FROM Pedidos WHERE idCliente=" & idCliente & " ORDER BY Articulos"
    Set rs = CurrentDb().OpenRecordset(txt)
    If Not rs.EOF Then rs.MoveFirst
    txt = ""
    Do While Not rs.EOF
        txt = txt & rs!Articulos & ",  "
        rs.MoveNext
    Loop
    rs.Close
    txt = StrReverse(txt)
    Mid(txt, InStr(txt, ","), 1) = " "
    Mid(txt, InStr(txt, "  ,"), 3) = " y "
    txt = Trim(StrReverse(txt))
    resumenArticulosCliente = txt
End Function
Saludos,
Carlos
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear un botón en un formulario para que borre todos los registros de una tabla

Necesito crear un comando para borrar los registros de una tabla, y otro para lanzar una carga de una importación, ahora tengo access 2016 y no sé como hacerlo
3 respuestas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

¿Se puede compartir base de datos access 2007?

Tengo una pequeña duda. He estado leyendo por foros y otras páginas acerca de la posibilidad de compartir bases de datos, pero en ninguna he visto nada acerca de hacerlo de forma simultanea, es decir, que si yo creo un registro desde un ordenador, el...
2 respuestas

Capacidad de Microsoft Access

Quisiera saber si alguien de ustedes sabe hasta cuantos registros soporta una tabla en una base de datos en Access... Me servirá de mucha la ayuda de alguien...
2 respuestas

Problemas convertir SQL SERVER

Estoy intentando pasar a SQlServer una base de datos de access, lo que hago es utilizar la opción que ofrece Access pero me sale un informe con el "mensaje se paso por alto o fallo la exportación", y lo curioso es que me crea bien la nueva base de...
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Contar los registros en formulario con un valor de cero

Como digo en la pregunta es posible contar los registros con un valos cero, y si es así cual es la instrucción para ello. ¿Algún experto me puede ayudar. A parte de esto cuando quiero ebaular alguna respuesta se produce error no se si les ecurre a...
2 respuestas

Puedo utilizar más de 258 caracteres en la instrucción DoCmd. ¿RunSQL?

Estoy utilizando un formulario de una tabla y quisiera que parte de esos datos se traspasaran a otra tabla, pero resulta que hasta ahora lo he hecho pero quiero traspasar más datos y la instrucción es tan grande que no la admite, ¿Se puede ampliar...
4 respuestas

Sumar en formulario inportes pagados he inportes pendientes

Tengo un formulario con una serie de cantidades unas pagadas y otras pendientes y casillas de verificación donde se marcan unas y otras, lo que pretendo hacer es sumar por un lado las pagadas y por otro las pendientes pero no se como hacerlo, hacer...
3 respuestas