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
|
|