IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Access
  New Posts New Posts RSS Feed - Catalogo delle funzioni, articoli e risorse utili
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

Topic ClosedCatalogo delle funzioni, articoli e risorse utili

 Post Reply Post Reply Page  123 19>
Author
Message
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Topic: Catalogo delle funzioni, articoli e risorse utili
    Posted: 10/Apr/2011 at 10:18

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

Ciao


Edited by willy55 - 09/Feb/2013 at 01:13
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Sponsored Links


Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Posted: 10/Apr/2011 at 10:19

Funzionamento dell'applicazione .
Inserire il nome della funzione.
Inserire l'autore  della funzione
Inserire  la categoria, eventualmente inserire una nuova categoria.
Spuntare Funzione/Sub se si tratta di Funzione o se si tratta di una procedura.
Inserire gli eventuali parametri nome (senza spazi) e Valore.
Occupare le caselle dedicate ai parametri in crescendo (es. per tre parametri occupare le prime tre coppie di caselle e lasciare libere le rimanenti due9
I parametri sono tutti di tipo string;  la eventuale conversione sarà fatta all'interno della routine.
Inserire il codice;

 "Scrivi blocco funzione" aiuta a scrivere la funzione riportando il nome, il tipo, i parametri e il piè della funzione.
Le funzioni possono essere inserite, modificate, rinominate  dalla maschera, o anche dalla finestra vba, purchè abbiano lo stesso nome della funzione della tabella "Funzioni".
Si possono filtrare i record per categoria e per singola funzione; "No filtro" elimina il filtro.

Ciao

 



Edited by Luciano
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Posted: 10/Apr/2011 at 10:19

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:


Caselle 
  Alcuni metodi dell'oggetto Casella Combinata
  Toglie spazii e invii superflui

Data e ora 
  Calcolo dell'età
  Calcolo Pasqua e Pasquetta
  Calcolo Pasquetta
  Cronometra il tempo di esecuzione della routine inglobata
  Determina il turno in corso
  Differenza di date
  Differenza di date(2)
  Differenza di orario calcolata in ore e minuti
  Formato di data o di ora
  Formattazione di una data
  Funzione n.098 Ultimo giorno del mese
  Funzioni sulle date
  Funzioni sulle date
  Ottiene da stringhe che rappresentano un anno, un mese e un giorno una data in formato date
  Ottiene da stringhe che rappresentano un ora, un minuto e un secondo una orario in formato time
  Ottiene la data e l'ora del sistema e delle stringhe immesse 
  Restiruisce la data della domenica precedente alla data immessa
  Ricava il numero della settimana cui appartiene una certa data
  Trasforma i minuti nel formato ora e minuti
  Ultimo giorno lavorativo
  Verifica se l'anno è bisestile
Database 
  Connessione ad un db esterno
  Elenco tabelle, query e maschere presenti nel db
  Ricava il percorso del DbBe



Edited by Luciano - 20/Feb/2013 at 12:28
Dio è Amore e Pace
Catalogo funzioni
Back to Top
gregorio View Drop Down
Utente Onorario
Utente Onorario
Avatar
Utente Onorario

Joined: 28/Apr/2008
Location: Italy
Status: Offline
Points: 2238
Direct Link To This Post Posted: 10/Apr/2011 at 12:41
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
Infogreg
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Posted: 10/Apr/2011 at 12:53

Originally posted by gregorio 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



Edited by Luky
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Tommy_G View Drop Down
Veterano
Veterano
Avatar

Joined: 15/Mag/2007
Status: Offline
Points: 1460
Direct Link To This Post Posted: 12/Apr/2011 at 20:03
io ho risolto semplicemente eliminando il box con l'immagine di sfondo

PS
complimenti luky per la mandrakata!! hai creato una specie di "porta function" con la quale è possibile trovare in un battibaleno tutto quello che normalmente ci si deve andare a ricordare di avere già usato cercandolo file per file in giro per il computer
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Posted: 13/Apr/2011 at 19:49

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.

Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Posted: 13/Apr/2011 at 19:52

L'ultima versione si trova nel primo post

 

Ciao



Edited by Luky
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Posted: 14/Apr/2011 at 15:35

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§

 



Edited by Luky
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2116
Direct Link To This Post Posted: 14/Apr/2011 at 15:36

Funzione n.002 Scrivere in un file di testo

§ScriviFileTesto
Funzione
FileCartelle
Luky
§Crea, Apre e scrive in un file di testo il contenuto della casella di testo Tcodice.
Pa1 è il nome del file da creare.§
NomeFile
Notes
Percorso
Application.CurrentProject.Path

 

 


§Public Sub ScriviFileTesto(NomeFile, Percorso)
Dim fs As Object
Dim A As Variant
Dim lngFile As Long
Dim Miopath As String
 lngFile = FreeFile()
 On Error GoTo 5000
If Percorso = "Application.CurrentProject.Path" Then
  Miopath = Application.CurrentProject.Path & "\" & NomeFile & ".txt"
Else
  Miopath = Percorso & "\" & NomeFile & ".txt"
End If

Open Miopath For Append As lngFile
 Print #1, Forms!Menù.TCodice.Value
 Close lngFile
 Exit Sub
5000     'se non c'è lo crea
 Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile(Percorso, True)
End Sub§



Edited by Luciano - 22/Gen/2013 at 11:36
Dio è Amore e Pace
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  123 19>
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,062 seconds.