Generar un Archivo de Texto desde Acces |
Responder |
Autor | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
ferzacha77
Nuevo Unido: 20/Septiembre/2021 Localización: Mocoa Ptyo Estado: Sin conexión Puntos: 8 |
Opciones de entrada
Gracias(0)
Enviado: 20/Septiembre/2021 a las 22:19 |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Cuento con una Tabla en acces que contine 4 campos, segun a imagen
Debo generar un archivo de Consolidado la tabla de Siguiente Manera
Lo Realice en Excel pero solo me permite un cantidad de Registro, o Me sale el Mensaje de Desbordamiento. |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
pitxiku
Colaborador Unido: 27/Septiembre/2017 Localización: En mi casa Estado: Sin conexión Puntos: 1518 |
Opciones de entrada
Gracias(0)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Puedes crear una consulta de totales que agrupe por la tercera columna y sume la cuarta; y para "unir" o "encadenar" la primera columna usar una función personalizada, como esta de Raipon:
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
ferzacha77
Nuevo Unido: 20/Septiembre/2021 Localización: Mocoa Ptyo Estado: Sin conexión Puntos: 8 |
Opciones de entrada
Gracias(0)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Buenos Dias.. No pude hacerla Funcionar...
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Opciones de entrada
Gracias(0)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
¿Y que has hecho? ... porque con los datos que das complicado echarte una mano ..
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
ferzacha77
Nuevo Unido: 20/Septiembre/2021 Localización: Mocoa Ptyo Estado: Sin conexión Puntos: 8 |
Opciones de entrada
Gracias(0)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Public Function Encadenar(Separador As String, tabla As String, Campo As String, _ Optional Condición As String) As String On Error Resume Next Dim rst As New ADODB.Recordset rst.Open _ "Select " & Campo & " From (" & tabla & ") WHERE " & Campo & " Is not null" & _ IIf(Len(Condición) > 0, " AND " & Condición, ""), _ CurrentProject.Connection, adOpenStatic, adLockReadOnly If Err.Number > 0 Then Encadenar = "" rst.Close Exit Function End If If rst.EOF Then Encadenar = "" Else Encadenar = rst.GetString(adClipString, , Separador, Separador) Encadenar = Left(Encadenar, Len(Encadenar) - Len(Separador)) End If rst.Close End Function El ERROR AL HACER LA CONSULTA SELECT CT_NUEVO.[FECHA DE REMISION], Encadenar(", ","TIPOARCHIVOS","NUEVOTOTALREGISTROS","CODIGO DEL PRESTADOR=" & [CT_NUEVO].[CODIGO DEL PRESTADOR]) AS RIPS FROM CT_NUEVO; |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Opciones de entrada
Gracias(0)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Con estos datos:
Yo obtengo esto:
Vamos por partes, como diría nuestro amigo Jack: - lo primero es que tienes que hacer una consulta que solo obtenga un registro por cada tipo de archivo y fecha, sumarizando los totales En cuanto la tengas vamos a enlazar la función de Ramón. |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
ferzacha77
Nuevo Unido: 20/Septiembre/2021 Localización: Mocoa Ptyo Estado: Sin conexión Puntos: 8 |
Opciones de entrada
Gracias(0)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Pero le realizo alguna modificacion..
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Opciones de entrada
Gracias(0)
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
¿?
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |