** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Poco Parametros Se Esperaba 1
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPoco Parametros Se Esperaba 1

 Responder Responder
Autor
Mensaje
choge Ver desplegable
Habitual
Habitual


Unido: 08/Abril/2011
Localización: Panama
Estado: Sin conexión
Puntos: 110
Enlace directo a este mensaje Tema: Poco Parametros Se Esperaba 1
    Enviado: 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.

Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5328
Enlace directo a este mensaje Enviado: 12/Agosto/2019 a las 18:31
Hola!

Como utilizas este código?
Un Saludo.
Arriba
choge Ver desplegable
Habitual
Habitual


Unido: 08/Abril/2011
Localización: Panama
Estado: Sin conexión
Puntos: 110
Enlace directo a este mensaje Enviado: 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.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5328
Enlace directo a este mensaje Enviado: 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.
Arriba
choge Ver desplegable
Habitual
Habitual


Unido: 08/Abril/2011
Localización: Panama
Estado: Sin conexión
Puntos: 110
Enlace directo a este mensaje Enviado: 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable