Catalogo delle funzioni, articoli e risorse utili

In questa discussione : http://www.ialweb.it/forum/forum_posts.asp?TID=13569539& PN=4
nacque l'idea di un catalogo delle funzioni per averle sempre a portata di mente.
Non sempre la guida in linea o i codici trovati su internet sono immediatamenti funzionanti.
Bisogna creare i controlli e la tabella, inserire i riferimenti, incollare il codice, testarlo e via dicendo. 
D'altronde il campo è talmente vasto che una sola persona impiegherebbe anni a creare un catalogo.
Perchè dunque non creare un'applicazione open source e open content, che  riunisca gli sforzi di tanti programmatori di buona volontà per il bene proprio e degli altri?
Ho appena finito di gettare le basi di un'applicazione access sulla quale sviluppare questa iniziativa.
Il DB memorizza funzioni e procedure che sono già implementate, testate e che ne dimostrano il funzionamento immediatamente.
Naturalmente per essere adeguate al proprio progetto di turno dovranno essere ulteriormente modificate per quanto riguarda il passaggio dei parametri.
Sentitevi liberi di postare le vostre funzioni che preventivamente avrete testato.
Sentitevi liberi di modificare l'applicazione madre senza dubbio migliorabile e di proporre pubblicando, le migliorie.
Sentitevi liberi di inserire o meno nel vostro personale progetto le funzioni offerte dai foristi.
Questo il DB versione 2013-01:

http://digilander.libero.it/salvatore19576/Catalogo%20funzioniV7.rar

Elenco articoli:
001 "Modifica contemporanea di record" evitare il messaggio di Access
002 Ridimensionare maschere adattandola alla risoluzione dello schermo
003 L'oggetto Module

Indice per trovare le nuove funzioni nel 3d:

gregorio wrote: Ciao Luky, nasce il problema con l'immagine collegata con un percorso obbligato del tuo pc. O cambi il percorso e lo metti in C:\ o incorpori l'immagine. Grazie Ciao

ecco l'immagine

http://myfreefilehosting.com/f/327602ff9a_0.3MB

L'immagine deve avere per nome sfondo.gif  e deve risiedere nella stessa cartella.

Chi non la gradisce la può sostituire con un'altra con lo stesso nome, o eliminarla dalla maschera e mettere il segno di commento 'nel codice:

'Immagine0.Picture = Application.CurrentProject.Path & "\Sfondo.gif"

ciao e grazie

Ho creato un protocollo che permette in automatico di scrivere sul post una funzione presente nel DB o di caricare nel DB una funzione caricata col medesimo protocollo.
Di seguito il risultato dell' codice elaborato dal pulsante "DB->Forum" per la funzione di esempio"Somma":

§Somma
Funzione
Matematica
Luky
§Semplice somma dei due numeri per illustrare il funzionamento dell'applicazione§
addendo
4
addendo2
7

 
 

§Public Function Somma(addendo, Addendo2)
   Somma = CInt(addendo) + CInt(Addendo2)
   MsgBox Somma
End Function§

Nell'ordine dalla riga 1 in poi:
Nome della funzione (Il primo carattere è "§")
Tipo di funzione (Funzione o Procedura)
Categoria
Autore
Descrizione della Funzione (delimitata da "§")
Nome Parametro 1     (se non esiste il parametro la riga è vuota: non eliminare!)
Valore Parametro 1
Nome Parametro 2
Valore Parametro 2
Nome Parametro 3
Valore Parametro 3
Nome Parametro 4
Valore Parametro 4
Nome Parametro 5
Valore Parametro 5
Codice della funzione (delimitato da "§")
_____________
I caratteri"§" hanno solo funzione di tag, vengono scritti e cancellati in automatico.
Viceversa se si vuole importare nel proprio Db una funzione:
Incollare il codice nella grande casella di testo della maschera principale dell'applicazione.
Premere il tasto "Forum->DB"
Se non sono presenti la categoria e l'autore nel DB vengono inseriti nelle rispettive tabelle.

Funzione n. 001 Creare una cartella

§CreaCartella
Funzione
FileCartelle
Luky
§Crea una cartella in un predeterminato percorso.
C:\Users\Luc\Desktop      
Application.CurrentProject.Path (Nella stessa cartella dell'applicazione)§
Cartella
NuovoNome
Percorso
Application.CurrentProject.Path
 
 

§Public Sub CreaCartella(Cartella, Percorso)
Dim Miopath As String
Dim filesys, newfolder As Object
Set filesys = CreateObject("Scripting.FileSystemObject")
If Percorso = "Application.CurrentProject.Path" Then
  Miopath = Application.CurrentProject.Path & "\" & Cartella
Else
   Miopath = Percorso & "\" & Cartella
End If
If Not (filesys.FolderExists(Miopath)) Then
    Set newfolder = filesys.CreateFolder(Miopath)
    MsgBox "Creazione cartella andata a buon fine"
Else
      MsgBox "Cartella già presente"
End If
End Sub§