Imprimir página | Cerrar ventana

Poco Parametros Se Esperaba 1

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84641
Fecha de impresión: 28/Marzo/2024 a las 20:21


Tema: Poco Parametros Se Esperaba 1
Publicado por: choge
Asunto: Poco Parametros Se Esperaba 1
Fecha de publicación: 12/Agosto/2019 a las 17:12
Buenos dias estoy usando una function del master Patxi.

la cual es este.


'Necesita una referencia a Microsoft DAO x.y Object Library
'Concatena los registros introducidos en un campo en un único dato.
'Parámetros:
'   - NombreCampo: nombre del campo que contiene los datos a unir.
'   - NombreTabla: nombre de la tabla que tiene el campo.
'   - Criterio: Sentencia Where (sin el Where), que delimita los registros.
'   - Separador: Carácter o caracteres que separarán los datos.
Public Function ConcatenarCampo(NombreCampo As String, _
NombreTabla As String, _
Optional Criterio As String = "", _
Optional Separador As String = " ") As String
    Dim rst As DAO.Recordset
    Dim strSql As String
    Dim strSep As String
    Dim strRes As String
    
    If Nz(NombreCampo, "") <> "" Then
        If Nz(NombreTabla, "") <> "" Then
            strSql = "SELECT " & NombreCampo
            strSql = strSql & " FROM " & NombreTabla
            
            If Nz(Criterio, "") <> "" Then
               strSql = strSql & " WHERE " & Criterio
            End If
            

            
            strSep = Nz(Separador, "")
            
            Set rst = CurrentDb.OpenRecordset(strSql)
            
            With rst
               If (Not .EOF) And (Not .BOF) Then
                    Do While Not .EOF
                        strRes = strRes & .Fields(0)
                        .MoveNext
                        
                        If Not .EOF Then
                            strRes = strRes & strSep
                        End If
                    Loop
               End If
              
            End With
        End If
    End If
    
    ConcatenarCampo = strRes
End Functi

pero me sale error pocos parametros se esperaba uno. alparecer el error son las comillas dobles por simples pero no tengo idea donde cambiarlas gracias espero y me ayuden saludos desde Coahuila mexico.




Respuestas:
Publicado por: mounir
Fecha de publicación: 12/Agosto/2019 a las 18:31
Hola!

Como utilizas este código?

-------------
Un Saludo.


Publicado por: choge
Fecha de publicación: 12/Agosto/2019 a las 18:34
buen dias muchisimas gracias por contester amigo lo utilize dentro de una consulta.

asi

COMBINACIONES: ConcatenarCampo("Numparte","COMBINACIONES","SPLICE = " & [SPLICE],", ")

saludos.

gracias.


Publicado por: mounir
Fecha de publicación: 12/Agosto/2019 a las 18:51
Hola!

Supongo que el campo SPLICE es de tipo texto:

COMBINACIONES: ConcatenarCampo("Numparte","COMBINACIONES","SPLICE = '" & [SPLICE] & "'",",")


-------------
Un Saludo.


Publicado por: choge
Fecha de publicación: 12/Agosto/2019 a las 18:57
ufffff funciono hay estaba el error nuna cheke hay aa gracias master pueden cerrar este hilo gracias encerio simper aprendo algo Nuevo



Imprimir página | Cerrar ventana