Mensajes recientes

Páginas: 1 ... 7 8 [9] 10
81
Varias / Búsqueda total
« Último mensaje por xavi en Septiembre 11, 2013, 07:52:02 pm »
Palabras clave: buscar, encontrar, todo
Autor: Xavi Lloberas / Mayo 2006

Objetivo:
Buscando la forma de realizar una busqueda en todas las tablas de la base de datos, me cree esta función.
Es probable que ya exista, pero me produjo una especial satisfacción ver que funcionaba.


Código: [Seleccionar]
Function busquedatotal(textoBusq As String)
    ' Atencion: Se debe activar la referencia Microsoft DAO 3.x Object Library

    Dim rst As Recordset
    Dim Tabla As TableDef
    Dim fld As Field
   
    Dim contador As Integer
   
    Debug.Print "Coincidencias encontrada con el texto: " & textoBusq
    contador = 0
    For Each Tabla In CurrentDb.TableDefs
        If Left(Tabla.Name, 4) <> "MSys" Then
            Set rst = CurrentDb.OpenRecordset("SELECT * FROM [" & Tabla.Name & "];")
            rst.MoveFirst
            Do Until rst.EOF
                For Each fld In rst.Fields
                    If InStr(1, fld.Value, textoBusq, vbTextCompare) Then
                        Debug.Print "   En tabla: " & Tabla.Name
                        Debug.Print "   Campo:" & fld.Name
                        Debug.Print "   Posicion:" & rst.AbsolutePosition + 1
                        Debug.Print "   Cadena entera: " & rst(fld.Name)
                        contador = contador + 1
                    End If
                Next
                rst.MoveNext
            Loop
        End If
    Next
    If contador = 0 Then
        Debug.Print "No se encontraron coincidencias"
       Else
        Debug.Print "Total coincidencias: " & contador
    End If
End Function

82
Aplicaciones / ERP
« Último mensaje por xavi en Julio 22, 2013, 01:15:44 pm »
Tengo en mente el desarrollo de un pequeño ERP que permita controlar los ciclos comerciales, de compra y de venta una empresa "tipo". La única parte que no contemplo desarrollar es la de contabilidad. Para esa parte espero desarrollar el código de volcado necesario para traspasar la información del ERP al sistema del cliente.

Aunque tengo la firme intención de desarrollarlo me gustaria recabar información sobre si resultaria interesante.

Espero comentarios. Muchas gracias
83
Aplicaciones / Generación de mailings
« Último mensaje por xavi en Julio 15, 2013, 03:31:47 pm »
Nombre:Generador de mailings
Access:2007/2010/2013
Versión:1.02.001
Fecha:15/10/2012
Estado:En uso

Haz clic aqui para solicitar más información

Descripción

Durante el verano de 2012 me solicitaron la creación de una aplicación que permitiera el envio de mailings de forma masiva a las personas suscritas en determinadas listas de distribución. Se trataba de informar a esas personas de los actos que se llevarian a cabo en el centro cultural (exposiciones, espectaculos, conferencias, etc.)

La aplicación debia permitir seleccionar diferentes lineas de actos y mandar correos a todas aquellas personas que hubieran marcado esa preferencia.

El sistema se alimenta a partir de los ficheros generados por la aplicación web de venta de entradas.


Menú de la aplicación



Fichero de líneas de actos



Fichero de actos



Listado de actos



Fichero de clientes



Listado de clientes



Listado de importaciones



Gestión de cargas



Generación de mailings



84
Aplicaciones / Documentación edificios
« Último mensaje por xavi en Julio 15, 2013, 03:08:00 pm »
Nombre:Documentación de edificios
Access:2003/2007/2010/2013
Versión:1.01.001
Fecha:30/09/2010
Estado:En uso

Haz clic aqui para solicitar más información

Descripción

En verano de 2010 recibi el encargo de realizar una aplicación que permitiera presentar los datos relativos al catálogo de masias y casas rurales de un municipio del Vallès Occidental. La aplicación debía mostrar distintas imágenes así como textos relacionados con la edificación y clasificaciones.



Ficha de edificio



Detalle de clasificación



Distintas vistas de datos





Listado de edificios



85
Aplicaciones / Gestión de contactos
« Último mensaje por xavi en Julio 15, 2013, 09:31:54 am »
Nombre:Gestión de contactos
Access:2010/2013 (x86/x64)
Versión:1.01.001
Fecha primera versión:19/06/2012
Fecha última versión:20/01/2010
Estado:En uso

Haz clic aqui para solicitar más información

Descripción

En el año 2009 se desarrolló una aplicación destinada a gestionar los contactos de una entidad. La gestión de dichos contactos incluye la persona principal de la empresa, su secretaria así como la colección de contactos "satélite" que pudiera tener.

La aplicación debia mostrar las fichas de empresas y personas y permitir la generación de mailings. En este caso concreto bastaba con generar la lista de direcciones de correo que se utilizarian en el mailing puesto que el envio se realizaba mediante otra aplicación.


Menú de la aplicación STAFF



Ficha de entidad



Ubicación de entidad



Detalle de contacto



Generación de mailings



Listados de la aplicación


86
General / Re:Reiniciando...
« Último mensaje por xavi en Julio 09, 2013, 02:49:57 pm »
A petición popular he reabierto la web. De momento está muy vacia pero espero ir llenando con, más o menos, lo que habia antes.

De hecho, si no te registras no notarás la diferencia ya que no podrás acceder a (casi) nada.



Un saludo
87
Aplicaciones / Gestión de torneos
« Último mensaje por xavi en Julio 09, 2013, 01:46:30 pm »
Nombre:Gestión de torneos
Access:2007/2010/2013
Versión:1.01.001
Fecha:07/07/2013
Estado:En uso

Haz clic aqui para solicitar más información

Descripción

El pasado fin de semana (5-7 de julio de 2013) se desarrolló en las instalaciones del Club Deportiu Terrassa Hockey la 14 edición del TEEH (Torneig Europeu d'Escoles de Hockey). Es un torneo que reúne niños y niñas de 3 a 16 años durante 3 días. En ese tiempo disfrutan de las instalaciones del club y juegan a hockey hierba.

Algunos números de la edición de este año:
- 5 campos de hockey hierba
- 6 categorías (con distintos grupos)
- 16 clubs
- 82 equipos
- 234 partidos
- más de 800 participantes

Para la gestión de partidos, resultados y clasificaciones se ha realizado una aplicación que permite el control del torneo, tanto en la vertiente usuario/visitante como la de administrador/organizador.

El sistema se basa en 3 archivos:
- BackEnd con todos los datos
- FrontEnd para Staff dónde se gestiona la introducción de toda la información del torneo.
- FrontEnd para usuario dónde únicamente se puede consultar la información. Esta FrontEnd trabaja con ratón (se bloquea el uso del 99.9% del teclado) o como aplicación táctil (no para dispositivo móvil)


Menú de la aplicación STAFF



Gestión de partidos y resultados



Pantalla del usuario




88
Aplicaciones / Presentación Æ Soft Data Bases
« Último mensaje por xavi en Julio 09, 2013, 01:27:49 pm »
Æ Soft Data Bases es la empresa de Xavi Lloberas. Si bien la empresa se creó en 2011, la actividad freelance se remonta a 2006, la experiencia con bases de datos Access a 1995 y la programación a 1983 (si, con un Commodore VIC-20).

Después de mis inicios en el foro (mayo de 2005) y poder evaluar el nivel personal como programador fué cuando me decidí a dedicarme, de forma complementaria a mi trabajo, a la programación para terceros.

Empecé con la estabilización de una base para una amigo, segui con una aplicación de gestión para una empresa de Zaragoza, comencé a trabajar para una empresa de servicios sociales, me llamaron de un banco para desarrollar aplicaciones de escritorio y la cosa fué tomando forma. En 2011 me desvinculé de la empresa en que trabajaba y me establecí por mi cuenta.

En este subforo se pretende mostrar las aplicaciones que se han desarollado. Si alguna de ellas la ves interesante o adaptable a tus necesidades solo es cuestión de comentarlo.

De momento no he creado versiones demo, pero no lo descarto.

Un saludo

Enviar correo solicitando información

89
Varias / Recordset contra texto plano
« Último mensaje por xavi en Noviembre 20, 2012, 01:57:10 pm »
Palabras clave: recordset, fichero, archivo, texto, plano
Autor: Búho (sacado de Microsoft) / Agosto 2002
Extraído de: La web del Búho

Objetivo:
Abrir un recordset de un fichero de texto plano, donde se tienen registros en forma secuencial.

Cita de: Búho
Primer ejemplo:Abro simplemente el Recordset del fichero de texto.   

Código: [Seleccionar]
Option Explicit
Function TestSchema()
   Dim db As DATABASE, rs As Recordset
   Set db = OpenDatabase("c:\my documents", False, _
   False,"TEXT;Database=c:\my documents;table=contacts.txt")
   Set rs = db.OpenRecordset("contacts.txt")

   rs.MoveLast
   Debug.Print "Record count= " & rs.RecordCount
   rs.Close

End Function

'========================================

Ejemplo 2
Se crea una tabla linkada al fichero de texto:

Código: [Seleccionar]
Option Explicit
Function LinkSchema()
   Dim db As DATABASE, tbl As TableDef
   Set db = CurrentDb()
   Set tbl = db.CreateTableDef("Linked Text")

   tbl.Connect = "Text;DATABASE=c:\Mis Documentos;TABLE=contacts.txt"
   tbl.SourceTableName = "contacts.txt"
   db.TableDefs.Append tbl
   db.TableDefs.Refresh
End Function
90
Base de datos / Control de referencias
« Último mensaje por xavi en Noviembre 20, 2012, 01:52:46 pm »
Palabras clave: referencias
Autor: Búho / Agosto 2002
Extraído de: La web del Búho

Objetivo:
Objetivo

Cita de: quien
Cuando ejecuto mi MDB en mi ordenador, todo funciona bien. Sin embargo si la traslado a otro PC, el usuario me indica que se producen errores, pues faltan Referencias a DLL u OCX dentro del  proyecto. ¿Como puedo controlar este tema desde código?

Código: [Seleccionar]
'Francisco J. García Aguado (Bhuo)
'Agosto de 2002



Function MiraReferenciasVBA()
    Dim Ref As Reference


   'Sacado de la ayuda de Access para ver si se ha
   'roto alguna referencia del proyecto de VBA.
   'Bhúo, Agosto de 2002

   'Puede servir para cuando distribuyamos una aplicación
   'con referencias externas a funciones inmersas en: OCX,DLL, MDE, MDB...)
   'que nosotros en el proyecto hemos referenciado desde una determinada ubicación
   'local de nuestro PC y a la hora de ejecutar el programa el usuario, pueda dar errores
   'por no tener dichas referencias o tenerlas en otra ubicación distinta
   'y de esta forma el usuario nos pueda avisar de esta contingencia.
   'Esta función se puede poner en el formulario de inicio de la aplicación
   'para avisar al usuario de este tema.

    For Each Ref In References
       
        If Ref.IsBroken = False Then
         ' este msgbox es puramente informativo de las referencias que están OK
         ' y es para probar este código.
         MsgBox "Nombre de la Referencia: " & Ref.Name & vbCrLf _
          & "En la ruta: " & Ref.FullPath & vbCrLf _
          & "Versión de la Referencia: " & Ref.Major & "." & Ref.Minor, vbInformation + vbOKOnly, "Referencias en VBA"
        Else
         ' referencia rota
          MsgBox "Nombre de la Referencia rota:" & Ref.Name & vbCrLf _
           & "Ruta Origina: " & Ref.FullPath & vbCrLf _
           & "GUID completo de la Referencia: " & Ref.Guid, vbCritical + vbOKOnly, "AVISO: Servicio de mantenimiento del programa 95-22222222."
         'aquí la acción a seguir...
         
         'Sacado también de la ayuda de Access.
         'En este ejemplo, se podría poner ruta completa, mediante
         'un dialogo de Windows e intentar referenciar de nuevo
         'la referencia rota o bien abandonar la aplicación.
         'En este caso ponemos una ruta fija que sirva de ejemplo:
         'C:\Windows\System\Mscal.ocx
         'Recordar que el nombre y Path original de la referencia
         'sería ref.FullPath
         If CrearNuevaReferencia("C:\Windows\System\Mscal.ocx") = False Then
          MsgBox "No se ha podido regenerar la referencia.", vbCritical + vbOKOnly, "Aviso"
         Else
          MsgBox "La Referencia, " & Ref.FullPath & " se ha establecido correctamente.", vbExclamation + vbOKOnly, "Correcto"
         End If
        End If
    Next Ref
End Function

'***************************************
Function CrearNuevaReferencia(PathCompletoFichero As String) As Boolean
    Dim Ref As Reference

    On Error GoTo Error_CrearNuevaReferencia
    Set Ref = References.AddFromFile(PathCompletoFichero)
    CrearNuevaReferencia = True

Exit_CrearNuevaReferencia:
    Exit Function

Error_CrearNuevaReferencia:
    MsgBox "Aviso Nº: " & Err & "..." & Err.Description & " [" & PathCompletoFichero & "]", vbCritical + vbOKOnly, "Aviso de Error"
    CrearNuevaReferencia = False
    Resume Exit_CrearNuevaReferencia
End Function


Páginas: 1 ... 7 8 [9] 10