Print Page | Close Window

Catalogo delle funzioni, articoli e risorse utili

Printed From: IALweb
Category: MS Office
Forum Name: Microsoft Access
Forum Discription: Temi legati ad Access e altri software per la gestione di database
URL: https://forum.ialweb.it/forum_posts.asp?TID=14402400
Printed Date: 23/Lug/2019 at 06:41
Software Version: Web Wiz Forums 10.17 - http://www.webwizforums.com


Topic: Catalogo delle funzioni, articoli e risorse utili
Posted By: Luciano
Subject: Catalogo delle funzioni, articoli e risorse utili
Date Posted: 10/Apr/2011 at 10:18

In questa discussione : http://www.ialweb.it/forum/forum_posts.asp?TID=13569539&PN=4" rel="nofollow - 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" rel="nofollow - http://digilander.libero.it/salvatore19576/Catalogo%20funzioniV7.rar

Ciao


-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni



Replies:
Posted By: Luciano
Date 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

 



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Apr/2011 at 10:19

Elenco articoli:
001 http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360791&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360791" rel="nofollow - "Modifica contemporanea di record" evitare il messaggio di Access
002 http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360974&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360974" rel="nofollow - Ridimensionare maschere adattandola alla risoluzione dello schermo
003 http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367439&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367439" rel="nofollow - L'oggetto Module

Indice per trovare le nuove funzioni nel 3d:


Caselle 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018069&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018069" rel="nofollow - Alcuni metodi dell'oggetto Casella Combinata
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974572&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974572" rel="nofollow - Toglie spazii e invii superflui

Data e ora 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018221&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018221" rel="nofollow - Calcolo dell'età
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3280706&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3280706" rel="nofollow - Calcolo Pasqua e Pasquetta
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3280708&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3280708" rel="nofollow - Calcolo Pasquetta
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3019237&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3019237" rel="nofollow - Cronometra il tempo di esecuzione della routine inglobata
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018376&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018376" rel="nofollow - Determina il turno in corso
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018222&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018222" rel="nofollow - Differenza di date
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018249&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018249" rel="nofollow - Differenza di date(2)
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020891&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020891" rel="nofollow - Differenza di orario calcolata in ore e minuti
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3365266&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3365266" rel="nofollow - Formato di data o di ora
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020319&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020319" rel="nofollow - Formattazione di una data
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360700&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360700" rel="nofollow - Funzione n.098 Ultimo giorno del mese
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018339&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018339" rel="nofollow - Funzioni sulle date
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359749&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359749" rel="nofollow - Funzioni sulle date
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018136&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018136" rel="nofollow - Ottiene da stringhe che rappresentano un anno, un mese e un giorno una data in formato date
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018137&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018137" rel="nofollow - Ottiene da stringhe che rappresentano un ora, un minuto e un secondo una orario in formato time
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018135&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018135" rel="nofollow - Ottiene la data e l'ora del sistema e delle stringhe immesse 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020802&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020802" rel="nofollow - Restiruisce la data della domenica precedente alla data immessa
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3019603&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3019603" rel="nofollow - Ricava il numero della settimana cui appartiene una certa data
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020778&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020778" rel="nofollow - Trasforma i minuti nel formato ora e minuti
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359754&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359754" rel="nofollow - Ultimo giorno lavorativo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018328&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018328" rel="nofollow - Verifica se l'anno è bisestile
Database 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367085&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367085" rel="nofollow - Connessione ad un db esterno
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3019166&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3019166" rel="nofollow - Elenco tabelle, query e maschere presenti nel db
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3282158&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3282158" rel="nofollow - Ricava il percorso del DbBe

]Excel 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367305&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367305" rel="nofollow - Aggiunge foglio ad excel
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367304&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367304" rel="nofollow - Esporta tabella in excel
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359717&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359717" rel="nofollow - Importa un foglio di excel
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018378&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018378" rel="nofollow - Trasferisce in excel due tabelle

FileCartelle 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360771&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360771" rel="nofollow - Eseguire un File, di norma Batch o Exe in modalità SINCRONA
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359649&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359649" rel="nofollow - Backup del presente db
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974444&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974444" rel="nofollow - Copia una cartella in un'altra posizione
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2882985&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2882985" rel="nofollow - Creare una cartella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020300&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020300" rel="nofollow - Format con due cifre decimali
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360070&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360070" rel="nofollow - Il file più vecchio e il più recente
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018403&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018403" rel="nofollow - Legge i tag di file mp3
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3021143&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3021143" rel="nofollow - Legge per intero un file di testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367461&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367461" rel="nofollow - Oggetto CommonDialog
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018122&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018122" rel="nofollow - Ricava il nome del file e l'estensione dal percorso completo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018338&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018338" rel="nofollow - Ricava le proprietà di un file
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367153&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367153" rel="nofollow - Rileva lo stato di un file
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018381&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018381" rel="nofollow - RInomina file
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359743&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359743" rel="nofollow - Salva col nome e formato
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2882986&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2882986" rel="nofollow - Scrivere in un file di testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3361394&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3361394" rel="nofollow - Verificare se un file è aperto o chiuso

Form 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367964&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367964" rel="nofollow - Cambio Colore in casella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974487&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974487" rel="nofollow - Chiude tutte le maschere tranne la corrente
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974522&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974522" rel="nofollow - Creazione di un messaggio (Msgbox)
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3361900&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3361900" rel="nofollow - Elenco delle sottomaschere presenti
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367963&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367963" rel="nofollow - Imisione dati in Inputbox
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3017935&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3017935" rel="nofollow - Ingrandimento e riduzione della finestra attiva o di access
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020627&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020627" rel="nofollow - Richiama la tavolozza dei colori e legge il numero del colore scelto
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367152&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367152" rel="nofollow - Rileva valori in un db remoto
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3017963&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3017963" rel="nofollow - RunCommand (parte 1)
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3017994&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3017994" rel="nofollow - RunCommand (parte 2)
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974486&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974486" rel="nofollow - Sposta una maschera popup

Internet 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018990&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018990" rel="nofollow - Apre  le pagine gialle (dal sito paginegialle.it) per la categoria e la località  date
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018953&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018953" rel="nofollow - Apre  per il nominativo dato contemporaneamente le pagine gialle e quelle bianche
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018900&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018900" rel="nofollow - Apre la pagina web "non solo cap" per per l'indirizzo dato
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018857&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018857" rel="nofollow - Apre maps di google per l'indirizzo dato
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3019073&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3019073" rel="nofollow - Calcolo bollo auto dal sito www3.agenziaentrate.gov.it
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3019125&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3019125" rel="nofollow - Calcolo bollo auto dal sito www3.agenziaentrate.gov.it
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360429&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360429" rel="nofollow - Estrae l'html da una pagina web e lo salva in un file di testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3021161&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3021161" rel="nofollow - Legge l'output dell'itinerario di maps
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3019048&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3019048" rel="nofollow - Ottiene itinerario di maps di google per le località date
 
Logica 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018701&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018701" rel="nofollow - La funzione Iif (SE)

Matematica 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3366550&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3366550" rel="nofollow - Arrotondamento commerciale
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018325&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018325" rel="nofollow - Eval
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020300&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020300" rel="nofollow - Format con due cifre decimali
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367151&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367151" rel="nofollow - Funzione Val
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360530&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360530" rel="nofollow - Funzioni matematiche
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367814&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367814" rel="nofollow - Intervallo valori
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367815&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367815" rel="nofollow - Intervallo valori (2)
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367823&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367823" rel="nofollow - Intervallo valori (3)
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360526&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360526" rel="nofollow - Verifica i decimali di un numero

Moduli 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974620&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974620" rel="nofollow - Backup di tutti moduli dell'applicazione corrente
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974643&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974643" rel="nofollow - Backup di un modulo dell'applicazione corrente
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974660&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974660" rel="nofollow - Backup di un modulo di una maschera
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367289&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367289" rel="nofollow - Elenco di tutte le routine di un Modulo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367092&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367092" rel="nofollow - Elimina una Funzione dal modulo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367090&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367090" rel="nofollow - Inserisce una funzione nel modulo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367226&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367226" rel="nofollow - Metodo DeleteLines dell'oggetto Modulo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367224&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367224" rel="nofollow - Metodo Find dell'oggetto Modulo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367225&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367225" rel="nofollow - Metodo InsertLines dell'oggetto Modulo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367227&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367227" rel="nofollow - Metodo ReplaceLine dell'oggetto Modulo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367089&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367089" rel="nofollow - Modifica la funzione riportata nella casella di testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367083&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367083" rel="nofollow - Ricava l'elenco dei moduli
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367088&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367088" rel="nofollow - Rinomina la funzione riportata nella casella di testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367087&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367087" rel="nofollow - Trova e richiama il codice di una funzione
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367086&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367086" rel="nofollow - Trova e sostituisce stringa in modulo esterno
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367084&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367084" rel="nofollow - Trova e sostituisce stringa in modulo interno
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367091&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367091" rel="nofollow - Trova Inizio Funzione

Registro 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3357703&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3357703" rel="nofollow - Cancellazione di una chiave di registro
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2883100&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2883100" rel="nofollow - Crea e scrive una chiave di registro
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367333&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367333" rel="nofollow - Legge una chiave di un registro
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367362&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367362" rel="nofollow - Modifica una chiave di registro

Report 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018459&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018459" rel="nofollow - Apre e posizona un report
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974488&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974488" rel="nofollow - Chiude tutti i reports
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018562&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018562" rel="nofollow - Esporta il report nei vari formati
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018460&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018460" rel="nofollow - Stampa un report

Ricerca 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3019872&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3019872" rel="nofollow - Ricerca un valore in più campi
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974445&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974445" rel="nofollow - Ricerca una stringa in un predeterminato campo di una tabella

Sql 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020736&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020736" rel="nofollow - Aggiunge o elimina un campo alla tabella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018638&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018638" rel="nofollow - Apre una Query
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018751&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018751" rel="nofollow - Elimina  un valore nel campo di una tabella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018750&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018750" rel="nofollow - Inserimento di un valore nel campo di una tabella

Tabella 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367389&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367389" rel="nofollow - Accoda record in tabella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367895&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367895" rel="nofollow - Aggiorna collegamenti al BE
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360833&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360833" rel="nofollow - Aggiunge campo contatore
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3358313&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3358313" rel="nofollow - Alcune proprietà dei campi di una tabella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367082&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367082" rel="nofollow - Azzerare il contatore di una tabella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367149&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367149" rel="nofollow - Azzeratore tabella con Dao
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367150&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367150" rel="nofollow - Azzeratore tabella con Dao(2)
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360217&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360217" rel="nofollow - Cambia la stringa "null" in valore null
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3363294&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3363294" rel="nofollow - Confronto fra due tabelle
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3358304&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3358304" rel="nofollow - Conta i campi di una tabella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2883101&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2883101" rel="nofollow - Creare una tabella
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360701&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360701" rel="nofollow - Creazione di una tabella dinamica
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367318&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367318" rel="nofollow - Genera un Calendario
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3281990&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3281990" rel="nofollow - Gestione di una coda
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360547&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360547" rel="nofollow - Importazione di un file csv
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367327&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367327" rel="nofollow - Ripristina le date consecutive eliminate o mai create
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3279562&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3279562" rel="nofollow - Ripristino di numero ordinale conseguitivo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367328&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367328" rel="nofollow - Ritorna le date consecutive mancanti
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360832&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360832" rel="nofollow - Trasforma i tipi di dati testo/Data
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360367&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360367" rel="nofollow - Trova un valore di campo duplicato
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3366774&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3366774" rel="nofollow - Verifica la presenza di una tabella

Testo 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359354&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359354" rel="nofollow - Confronto fra due stringhe
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020810&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020810" rel="nofollow - Esempi di uso della funzione Space
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359911&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359911" rel="nofollow - Estra tutte le  occorrenze  di una stringa in un testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3359910&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3359910" rel="nofollow - Estrae l' occorrenza n di una stringa in un testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018517&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018517" rel="nofollow - Estrae la stringa 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367203&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367203" rel="nofollow - Fraziona un msgbox
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367433&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367433" rel="nofollow - Rende maiuscole le iniziali delle parole di un testo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3366460&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3366460" rel="nofollow - Ricerca la parola più lunga

Varie 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3365532&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3365532" rel="nofollow - Alcune proprietà del Disk
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3021045&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3021045" rel="nofollow - Conversione di numeri dal sistema americano
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3366010&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3366010" rel="nofollow - Determina il tipo di drive
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3021178&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3021178" rel="nofollow - Esempio di matrice
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3020779&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3020779" rel="nofollow - Formattazione di un numero
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3021172&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3021172" rel="nofollow - Funzione Split
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360428&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360428" rel="nofollow - Lista referenze necessarie
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367300&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367300" rel="nofollow - Proprietà dell'oggetto Err
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018340&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018340" rel="nofollow - Scambio di valori
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367302&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367302" rel="nofollow - Schema Gestione ERRORE
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367303&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367303" rel="nofollow - Struttura If e Iif nidificate

Win32 
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3018836&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3018836" rel="nofollow - Apre un pdf ad una determinata pagina
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3367331&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3367331" rel="nofollow - Elenco variabili ambiente
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974447&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974447" rel="nofollow - Esegue un'applicazione
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2883044&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2883044" rel="nofollow - Legge il numero di serie di Windows e il nome dell'utente re
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3358077&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3358077" rel="nofollow - Lettura delle variabili ambiente
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=2974706&title=catalogo-delle-funzioni-articoli-e-risorse-utili#2974706" rel="nofollow - Ricavare il percorso del proprio desktop
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3017868&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3017868" rel="nofollow - Ricavare tutti i percorsi speciali di WINDOWS
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3360856&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3360856" rel="nofollow - Risoluzione dello schermo
  http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&PID=3366975&title=catalogo-delle-funzioni-articoli-e-risorse-utili#3366975" rel="nofollow - Suonare un file WAV


-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: gregorio
Date 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


Posted By: Luciano
Date 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 - http://myfreefilehosting.com/f/327602ff9a_0.3MB http://myfreefilehosting.com/f/21bfb2971e_0.62MB -

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



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Tommy_G
Date 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

-------------
http://thetruster.altervista.org/index.php/documentazione/32-domande-intelligenti" rel="nofollow - http://thetruster.altervista.org/index.php/documentazione/32 -domande-intelligenti


Posted By: Luciano
Date 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
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 13/Apr/2011 at 19:52

L'ultima versione si trova nel primo post

http://myfreefilehosting.com/f/6c47742782_0.57MB -  

Ciao



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date 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§

 



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date 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§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 15/Apr/2011 at 17:46

Funzione n.003 Legge il numero di serie di Windows e il nome dell'utente registrato

§LeggeDatiComputer
Funzione
Win32
Luky
§Legge il numero di serie di Windows e il nome dell'utente registrato.§

 

 

 

 


§Public Function LeggeDatiComputer()
Dim objOS As Object
Dim NumeroSerie, User, Organization As String
For Each objOS In GetObject( _
        "winmgmts:").InstancesOf("Win32_OperatingSystem")
        'MsgBox objOS.SerialNumber
       NumeroSerie = objOS.SerialNumber
       User = objOS.RegisteredUser
Next
MsgBox NumeroSerie & "  " & User
    Set objOS = Nothing
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 17/Apr/2011 at 08:35

Funzione n.004  crea e scrive una chiave di registro

§ScriveRegistro
Funzione
Registro
Luky
§Crea una cartella, una sottocartella e  una  chiave, nel registro. Scrive il valore della chiave. Adatto a nascondere e confrontare la password del db.§
Cartella
c1
Sottocartella
c4
NomeChiave
Nuova
ValoreChiave
Ciao


§Public Function ScriveRegistro(Cartella, Sottocartella, NomeChiave, ValoreChiave)
Dim fso, objOS, WshShell  As Object
Dim Registro As String
Set WshShell = CreateObject("Wscript.Shell")
On Error GoTo 5000
'Cerca di leggere il valore della chiave, se non ci riesce genera errore e la scrive ex novo.
Registro = WshShell.RegRead("HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\" & NomeChiave & "")
MsgBox "Chiave già presente"
Exit Function
5000
WshShell.RegWrite "HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\" & NomeChiave & "", ValoreChiave, "REG_SZ"
MsgBox "Creazione chiave andata a buon fine"

End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 17/Apr/2011 at 08:37

Funzione n. 005 Creare una tabella

§CreaTabella
Sub
Tabella
Luky
§Crea un tabella con due campi.
Altre parole riservate: INTEGER,  REFERENCES, UNIQUE,  FOREIGN KEY, ON DELETE CASCADE,§
NomeTabella
Tabella9
Campo1
Cognome
TipoCampo1
CHAR(4)
Campo2
Datanascita
TipoCampo2
date
§Public Sub CreaTabella(NomeTabella, Campo1, TipoCampo1, Campo2, TipoCampo2)
On Error GoTo 5000
DoCmd.RunSQL "CREATE TABLE  " & NomeTabella & "(" & Campo1 & " " & TipoCampo1 & ", " & Campo2 & " " & TipoCampo2 & ")"
MsgBox "Tabella creata"
Exit Sub
5000
MsgBox "Tabella già presente o errore  sql"
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 19/Apr/2011 at 14:34

Funzione n.006 Copia una cartella in un'altra posizione.

§CopiaCartella
Sub
FileCartelle
Luky
§Copia una cartella.
Origine  e Destinazione con \ finale.   Es: C:\Users\Luc\Desktop\§
NomeCartella
Nuova Cartella
Origine
C:\Users\Luc\Desktop\
Destinazione
C:\

 


§Public Sub CopiaCartella(NomeCartella, Origine, Destinazione)
Dim fso As Object
Dim result As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(Destinazione & NomeCartella)) Then
    result = fso.CopyFolder(Origine & NomeCartella, Destinazione, True)
    MsgBox "Copia cartella andata a buon fine"
Else
      MsgBox "Cartella già presente"
End If
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 19/Apr/2011 at 14:34

Funzione n.007 Ricerca una stringa in un predeterminato campo di una tabella.

§OperatoreLike
Sub
Ricerca
Luky
§Ricerca una stringa in un predeterminato campo di una tabella.§
NomeTabella
Funzioni
NomeCampo
Funzione
OggettoRicerca
trova

 


§Public Sub OperatoreLike(NomeTabella, NomeCampo, OggettoRicerca)
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim Ricerca As String

'In ADO usare % non *
rst.Open "SELECT " & NomeCampo & " FROM " & NomeTabella & " WHERE Funzione Like " & "'%" & OggettoRicerca & "%'" & "  ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
While Not rst.EOF
   Ricerca = Ricerca & vbCrLf & rst.Fields(0)
   rst.MoveNext
Wend
MsgBox Ricerca
rst.Close
'--------------------
'sette forme Funzionanti in sqlQuery di access
'SELECT Funzioni.Funzione FROM Funzioni WHERE Funzione Like ('*azzeratabella*')
'SELECT Funzione FROM Funzioni WHERE Funzione Like '*azzera*'
'SELECT Funzioni.Funzione FROM Funzioni WHERE Funzione Like ("*azzeratabella*")
'SELECT Funzione FROM Funzioni WHERE Funzione Like ("" & "*" & [forms]![Menù]![Targomento3] & "*" & "")
'SELECT Funzioni.Funzione FROM Funzioni WHERE Funzione Like (Chr(42) & "Azzeratabella" & Chr(42))
'SELECT Funzione FROM Funzioni WHERE Funzione Like ("" & Chr(42) & [forms]![Menù]![Targomento3] & Chr(42) & "");
'SELECT Funzioni.Funzione FROM Funzioni WHERE Funzione Like ("" & Chr(42) & "Azzeratabella" & Chr(42) & "")
'---------------------

End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 19/Apr/2011 at 14:36

Funzione n.008 Esegue un'applicazione


§EseguiApplicazione
Sub
Win32
Luky
§Manda in escuzione un'applicazione.
Il percorso senza \ finale.§
Percorso
C:\Users\Luc\Desktop
NomeFile
Applausi
Estensione
MP3

 


§Public Sub EseguiApplicazione(Percorso, NomeFile, Estensione)
CreateObject("Shell.Application").ShellExecute Percorso & "\" & NomeFile & "." & Estensione
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 20/Apr/2011 at 23:59

Funzione n. 009 Sposta una maschera popup

§MoveSizeMaschera
Sub
Form
Luciano
§Se non è aperta apre una maschera popup e poi  la sposta nella posizione voluta.
Per testare il funzionamento, settare la proprietà popup= no di questa maschera (Menù).§
NomeMaschera
Masch_Categorie
Dallalto
1000
DaSinistra
4000

 


§Public Sub MoveSizeMaschera(NomeMaschera As String, Dallalto As Long, DaSinistra As Long)
       DoCmd.OpenForm NomeMaschera
       DoCmd.SelectObject acForm, NomeMaschera, False
       DoCmd.MoveSize DaSinistra, Dallalto
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 21/Apr/2011 at 00:00

Funzione n.010 Chiude tutte le maschere tranne la corrente

§ChiudiOgniMaschera
Sub
Form
Luky
§Chiude ogni maschera esclusa la corrente maschera.§

 

 

 

 


§Public Sub ChiudiOgniMaschera()
Dim dbs, obj As Object
Dim Maschera As String
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
        If obj.IsLoaded = True Then
             If obj.Name <> "Menù" Then
'Se la sub risiede nel modulo della stessa maschera utilizzare la forma universale Me.Name  al posto di "Menù"
               Maschera = obj.Name
               DoCmd.Close acForm, Maschera
        End If
      End If
    Next obj
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 21/Apr/2011 at 00:01

Funzione n.011 Chiude tutte i reports

§ChiudiOgniReports
Sub
Report
Luky
§Chiude tutti i reports.§

 

 

 

 


§Public Sub ChiudiOgniReports()
Dim dbs, obj As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
        If obj.IsLoaded = True Then
               DoCmd.Close acReport, obj.Name
      End If
    Next obj
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 21/Apr/2011 at 15:27

Funzione n.012 Creazione di un messaggio (Msgbox)

§Messaggio
Sub
Form
Luky
§Assembla  un messaggio   con titolo e stile predeterminato.
Usare la forma con costanti vbYesNo+vbCritical+vbDefaultButton2
(senza spazi)   Oppure con valore numerico 4+16+256  (senza spazi)§
Messaggio
Continuare?
Stile
 4+16+2562
Titolo
Attenzione errore

 


§Public Sub Messaggio(Messaggio, Stile, Titolo)
Dim Response, MyString
Dim somma As Integer
If IsNull(Forms!Menù.TArgomento1.Value) Or IsNull(Forms!Menù.TArgomento2.Value) Or IsNull(Forms!Menù.TArgomento3.Value) Then MsgBox "Manca almeno un parametro": Exit Sub
Stile = Trim(Stile)
Stile = "+" & Stile & "+"
If IsNumeric(Left(Stile, 2)) Then
    If InStr(Stile, "+0+") > 0 Then somma = somma + 0
    If InStr(Stile, "+1+") > 0 Then somma = somma + 1
    If InStr(Stile, "+2+") > 0 Then somma = somma + 2
    If InStr(Stile, "+3+") > 0 Then somma = somma + 3
    If InStr(Stile, "+4+") > 0 Then somma = somma + 4
    If InStr(Stile, "+5+") > 0 Then somma = somma + 5
'''''''''''
    If InStr(Stile, "+16+") > 0 Then somma = somma + 16
    If InStr(Stile, "+32+") > 0 Then somma = somma + 32
    If InStr(Stile, "+48+") > 0 Then somma = somma + 48
    If InStr(Stile, "+64+") > 0 Then somma = somma + 64
'''''''''''
    If InStr(Stile, "+0+") > 0 Then somma = somma + 0
    If InStr(Stile, "+256+") > 0 Then somma = somma + 256
    If InStr(Stile, "+512+") > 0 Then somma = somma + 512
    If InStr(Stile, "+768+") > 0 Then somma = somma + 768
'''''''''''
    If InStr(Stile, "+0+") > 0 Then somma = somma + 0
    If InStr(Stile, "+4096+") > 0 Then somma = somma + 4096
'''''''''''
    If InStr(Stile, "+16384+") > 0 Then somma = somma + 16384 '
    If InStr(Stile, "+65536+") > 0 Then somma = somma + 65536 '
    If InStr(Stile, "+524288+") > 0 Then somma = somma + 524288 '
    If InStr(Stile, "+1048576+") > 0 Then somma = somma + 1048576 '
Else
    'solo il pulsante OK.
    If InStr(Stile, "+vbOKOnly+") > 0 Then somma = somma + 0
    ' OK e Annulla.
    If InStr(Stile, "+vbOKCancel+") > 0 Then somma = somma + 1
    ' Termina, Riprova, e Ignora.
    If InStr(Stile, "+vbAbortRetryIgnore+") > 0 Then somma = somma + 2
    ' Sì, No e Annulla.
    If InStr(Stile, "+vbYesNoCancel+") > 0 Then somma = somma + 3
    ' Sì e No.
    If InStr(Stile, "+VbYesNo+") > 0 Then somma = somma + 4
    ' Riprova e Annulla.
    If InStr(Stile, "+vbRetryCancel+") > 0 Then somma = somma + 5
    'icona di messaggio critico.
    If InStr(Stile, "+vbCritical+") > 0 Then somma = somma + 16
    'icona di richiesta di avviso.
    If InStr(Stile, "+vbQuestion+") > 0 Then somma = somma + 32
    'icona di messaggio di avviso.
    If InStr(Stile, "+vbExclamation+") > 0 Then somma = somma + 48
    'icona di messaggio di informazione.
    If InStr(Stile, "+vbInformation+") > 0 Then somma = somma + 64
    'Il primo pulsante è il predefinito.
    If InStr(Stile, "+vbDefaultButton1+") > 0 Then somma = somma + 0
    'Il secondo pulsante è il predefinito.
    If InStr(Stile, "+vbDefaultButton2+") > 0 Then somma = somma + 256
     'Il terzo pulsante è il predefinito.
    If InStr(Stile, "+vbDefaultButton3+") > 0 Then somma = somma + 512
    'Il quarto pulsante è il predefinito
    If InStr(Stile, "+vbDefaultButton4+") > 0 Then somma = somma + 768
    'Finestra di messaggio a scelta obbligatoria nelapplicazione. utente deve rispondere alla finestra di messaggio prima di poter continuare a lavorare nelapplicazione corrente.
    If InStr(Stile, "+vbApplicationModal+") > 0 Then somma = somma + 0
    'Finestra di messaggio a scelta obbligatoria nel sistema. Tutte le applicazioni vengono sospese fino a quando l'utente non risponde alla finestra di messaggio.
    If InStr(Stile, "+vbSystemModal+") > 0 Then somma = somma + 4096
    'Aggiunge un pulsante della Guida nella finestra di messaggio.
    If InStr(Stile, "+vbMsgBoxHelpButton+") > 0 Then somma = somma + 16384
    'Specifica che la finestra di messaggio è in primo piano.
    If InStr(Stile, "+vbMsgBoxSetForeground+") > 0 Then somma = somma + 65536
    'Il testo è allineato a destra.
    If InStr(Stile, "+vbMsgBoxRight+") > 0 Then somma = somma + 524288
    'Specifica che il testo viene visualizzato da destra a sinistra per i sistemi ebraico e arabo.
    If InStr(Stile, "+vbMsgBoxRtlReading+") > 0 Then somma = somma + 1048576
End If
'Costanti:vbOK 1 OK; vbCancel 2 Annulla; vbAbort 3 Termina; vbRetry 4 Riprova; vbIgnore 5 Ignora: vbYes 6 Sì; vbNo 7
Response = MsgBox(Messaggio, somma, Titolo)
If Response = vbYes Then MsgBox ("Hai scelto Sì")          ' Esegue un'azione.
If Response = vbNo Then MsgBox ("Hai scelto No")          ' Esegue un'azione.
If Response <> vbNo And Response <> vbYes Then MsgBox ("Altra scelta")
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 22/Apr/2011 at 22:24

Funzione n.013 Toglie spazii e invii superflui

§TogliSpazi
Sub
Casella di testo
Luky
§Toglie doppi spazi e doppi invii, il primo spazio di inizio riga.
Se la stringa inizia con un invio questi viene eliminato.
L'oggetto di questa funzione è questa casella di testo (Descrizione)§

 

 

 

 


§Public Sub TogliSpazi()
Dim stringa As String
stringa = Forms!Menù.TDescrizioneFunzione.Value
'----------- ''Riduce a un invio tutti gli invi doppi
While InStr(stringa, Chr(10) & Chr(13))
 stringa = Replace(stringa, Chr(10) & Chr(13), "")
Wend
'----- Toglie l'invio singolo iniziale
If Left(stringa, 2) = Chr(13) & Chr(10) Then
 stringa = Right(stringa, Len(stringa) - 2)
End If
'-----------Toglie il primo spazio di ogni riga
While InStr(stringa, Chr(10) & " ")
 stringa = Replace(stringa, Chr(10) & " ", Chr(10))
Wend
'-----------Toglie l'ultimo spazio di ogni riga
While InStr(stringa, " " & Chr(10))
 stringa = Replace(stringa, " " & Chr(10), Chr(10))
Wend
'-------''Riduce a uno spazio tutti gli spazi conseguitivi
While InStr(stringa, "  ")
 stringa = Replace(stringa, "  ", " ")
Wend
'-----------
stringa = Trim(stringa) 'toglie gli spazi finali e iniziali
Forms!Menù.TDescrizioneFunzione.Value = stringa
'vbCrLf         Chr(13) + Chr(10) Combinazione di ritorno a capo/avanzamento riga
'vbCr         & amp; nbsp; Chr(13)          ; ;  Carattere di ritorno a capo
'vbLf         & amp; nbsp; Chr(10)          ; ;  Carattere di avanzamento riga
'vbNewLine      Chr(13) + Chr(10) Carattere di nuova riga specifico della piattaforma, a seconda del carattere appropriato per la piattaforma corrente
'vbNullChar     Chr(0)             Carattere con valore 0
'vbNullString   Stringa con valore 0 Non equivale a una stringa di lunghezza zero (""); utilizzata per le chiamate a routine esterne
'vbObjectError -2147221504        I numeri di errore definiti dall'utente devono essere maggiori di questo valore. Ad esempio:'Err.Raise Number = vbObjectError + 1000
'vbTab                              Chr(9) Carattere di tabulazione
'vbBack          ; ;           ; ;        Chr(8) Carattere backspace
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 23/Apr/2011 at 19:55

Funzione n. 014 Backup di tutti moduli dell'applicazione corrente

§ModuliBackUp
Sub
Moduli
Luky
§Copia il codice di tutti i  moduli  in altrettanti files di testo nella stessa cartella  o in un'altra predeterminata.
I files prendono il nome dei moduli concatenati con la data odierna.§
Percorso
Application.CurrentProject.Path

 

 

 


§Public Sub ModuliBackUp(Percorso)
Dim mdl As Module
Dim fs As Object
Dim a As Variant
Dim lngFile As Long
Dim Miopath, NomeFile, NomiModuli As String
Dim i As Integer
Dim stringa As String
Dim modOpenModules As Modules
Set modOpenModules = Application.Modules
For i = 0 To modOpenModules.Count - 1
   If modOpenModules(i).Type = 0 Then
         NomeFile = modOpenModules(i).Name
         DoCmd.OpenModule NomeFile
         Set mdl = Modules(NomeFile)
         NomeFile = NomeFile & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
         lngFile = FreeFile()
               If Percorso = "Application.CurrentProject.Path" Then
                    Miopath = Application.CurrentProject.Path & "\" & NomeFile & ".txt"
               Else
                    Miopath = Percorso & "\" & NomeFile & ".txt"
               End If
        Open Miopath For Output As lngFile
        Print #1, mdl.Lines(1, mdl.CountOfLines)
        Close lngFile
        NomiModuli = NomiModuli & NomeFile & vbCrLf
        Set mdl = Nothing
    End If
Next i
MsgBox "Salvati in questa cartella con nome: " & vbCrLf & NomiModuli
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 24/Apr/2011 at 18:56

Funzione n. 015 Backup di un modulo dell'applicazione corrente

§ModuloBackUp
Sub
Moduli
Luky
§Copia il codice di un modulo predeterminato in un file di testo nella stessa cartella  o in un'altra predeterminata.
Il file prende il nome del modulo concatenato con la data odierna.§
NomeModulo
Mod_Funzioni
Percorso
Application.CurrentProject.Path

 

 


§Public Sub ModuloBackUp(NomeModulo, Percorso)
Dim mdl As Module
Dim fs As Object
Dim a As Variant
Dim lngFile As Long
Dim Miopath, NomeFile As String
DoCmd.OpenModule NomeModulo
Set mdl = Modules(NomeModulo)

NomeFile = NomeModulo & " " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
lngFile = FreeFile()
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, mdl.Lines(1, mdl.CountOfLines)
 Close lngFile
MsgBox "Salvato in questa cartella con nome """ & NomeFile & """"
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 25/Apr/2011 at 14:09

Funzione n. 016 Backup di un modulo di una maschera

§ModuloFormBackUp
Sub
Moduli
Luky
§Copia il codice di un modulo di una maschera predeterminata in un file di testo nella stessa cartella  o in un'altra predeterminata.
Il file prende il nome della maschera.§
NomeMaschera
masch_categorie
Percorso
Application.CurrentProject.Path

 

 


§Public Sub ModuloFormBackUp(NomeMaschera, Percorso)
    Dim lngFile As Long
    lngFile = FreeFile()
If Percorso = "Application.CurrentProject.Path" Then
  Open Application.CurrentProject.Path & "\" & NomeMaschera & ".txt" For Append As lngFile
Else
 Open Percorso & "\" & NomeMaschera & ".txt" For Append As lngFile
End If
   If NomeMaschera <> "Menù" Then DoCmd.OpenForm NomeMaschera, acDesign
    With Forms(NomeMaschera).Module
        Print #lngFile, .Lines(1, .CountOfLines)
    End With
 If NomeMaschera <> "Menù" Then DoCmd.Close acForm, NomeMaschera
    Close lngFile
MsgBox "Modulo di classe della maschera " & NomeMaschera & " salvato"
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 26/Apr/2011 at 15:38

Funzione n. 017 Ricavare il percorso del proprio desktop

§PercorsoDesktop
Funzione
Win32
Luky
§Ricava il percorso del desktop§

 

 

 

 


§Public Function PercorsoDesktop() As String
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
PercorsoDesktop = WshShell.SpecialFolders("Desktop")
MsgBox PercorsoDesktop
Set WshShell = Nothing
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 28/Apr/2011 at 06:49

Funzione n. 018 Ricavare tutti i percorsi speciali di WINDOWS

§PercorsiSpeciali
Sub
Win32
Luky
§Ricava tutti i percorsi speciali di windows§

 

 

 

 


§Public Sub PercorsiSpeciali()
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
  MsgBox "AllUsersStartMenu: " & WshShell.SpecialFolders("AllUsersStartMenu") & vbCrLf & _
"AllUsersPrograms: " & WshShell.SpecialFolders("AllUsersPrograms") & vbCrLf & _
"AllUsersStartup: " & WshShell.SpecialFolders("AllUsersStartup") & vbCrLf & _
"Desktop:  " & WshShell.SpecialFolders("Desktop") & vbCrLf & _
"Favorites:  " & WshShell.SpecialFolders("Favorites") & vbCrLf & _
"Fonts:  " & WshShell.SpecialFolders("Fonts") & vbCrLf & _
"MyDocuments: " & WshShell.SpecialFolders("MyDocuments") & vbCrLf & _
"NetHood:  " & WshShell.SpecialFolders("NetHood") & vbCrLf & _
"PrintHood:  " & WshShell.SpecialFolders("PrintHood") & vbCrLf & _
"Programs:  " & WshShell.SpecialFolders("Programs") & vbCrLf & _
"Recent:  " & WshShell.SpecialFolders("Recent") & vbCrLf & _
"SendTo:  " & WshShell.SpecialFolders("SendTo") & vbCrLf & _
"StartMenu:  " & WshShell.SpecialFolders("StartMenu") & vbCrLf & _
"Startup:  " & WshShell.SpecialFolders("Startup") & vbCrLf & _
"Templates:  " & WshShell.SpecialFolders("Templates")
Set WshShell = Nothing
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 29/Apr/2011 at 15:23

Funzione n. 019 Ingrandimento e riduzione della finestra attiva o di access

§RiduzioneIngrandimento
Sub
Form
Luky
§Ingrandimento e riduzione della finestra attiva o di access.
Inserire il valore del parametro metodo (da 1 a 7)
Per apprezzare le funzioni, impostare momentaneamente la proprietà popup di questa maschera a false.
Dichiarare Public swicht As Boolean all'inizio del modulo "Funzioni"§
metodo
1

 

 

 


§Public Sub RiduzioneIngrandimento(Metodo)
'1 Ingrandisce la finestra di access all'intero schermo
'2 Riduce a icona l'applicazione access
'3 Sposta la finestra di access
'4 Riporta Access ingrandito o ridotto alle dimensioni precedenti
'5 Riduzione a icona della finestra attiva.
'6 Ingrandisce la finestra quanto finestra di  Access
'7 Riporta la finestra ingrandita o ridotta alle dimensioni precedenti
Select Case Metodo
Case 1
    DoCmd.RunCommand acCmdAppMaximize
Case 2
    DoCmd.RunCommand acCmdAppMinimize
Case 3
    DoCmd.RunCommand acCmdAppMove
Case 4
    If swicht Then
        DoCmd.RunCommand acCmdAppRestore
        swicht = False
    Else
        DoCmd.RunCommand acCmdAppMaximize
        swicht = True
    End If
Case 5
DoCmd.Minimize
Case 6
DoCmd.Maximize
Case 7
If swicht Then
        DoCmd.Maximize
        swicht = False
Else
        DoCmd.Restore
        swicht = True
End If
End Select
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 30/Apr/2011 at 07:12

Funzione n.20  RunCommand (parte 1)

§EseguiComando1
Sub
Form
Luky
§Alcuni comandi RunCommand (vedi elenco e descrizione nel codice).
Inserire il valore del parametro metodo (da 1 a 21)§
Metodo
15

 

 

 


§Public Sub EseguiComando1(Metodo)
'1 Informazioni su access
'2 Componenti Aggiuntivi
'3 Analizza tabella
'4 Guida in linea di access
'5 Correzione automatica
'6 Compila tutti i moduli
'7 Appunti
'8 Amministratore gruppi di lavoro
'9 Analizzatore prestazioni
'10 Proprietà del database
'11 Divisione guidata database
'12 Apri  preferiti
'13 Guida in linea di access
'14 Il sito di microsoft
'15 Apri un indirizzo internet
'16 Registra controlli Activex
'17 Controllo ortografia
'18 Amministratore gruppi di lavoro
'19 Imposta password database
'20 Account utenti e gruppi
'21 Permessi utenti e grupppi
Select Case Metodo
Case 1
    DoCmd.RunCommand acCmdAboutMicrosoftAccess
Case 2
    DoCmd.RunCommand acCmdAddInManager
Case 3
   DoCmd.RunCommand acCmdAnalyzeTable
Case 4
    DoCmd.RunCommand acCmdAnswerWizard
Case 5
    DoCmd.RunCommand acCmdAutoCorrect
Case 6
   DoCmd.RunCommand acCmdCompileLoadedModules
Case 7
   DoCmd.RunCommand acCmdOfficeClipboard
Case 8
   DoCmd.RunCommand acCmdWorkgroupAdministrator
Case 9
   DoCmd.RunCommand acCmdAnalyzePerformance
Case 10
   DoCmd.RunCommand acCmdDatabaseProperties
Case 11
   DoCmd.RunCommand acCmdDatabaseSplitter
Case 12
   DoCmd.RunCommand acCmdFavoritesOpen
Case 13
   DoCmd.RunCommand acCmdMicrosoftAccessHelpTopics
Case 14
   DoCmd.RunCommand acCmdMicrosoftOnTheWeb
Case 15
   DoCmd.RunCommand acCmdOpenURL
Case 16
   DoCmd.RunCommand acCmdRegisterActiveXControls
Case 17
   DoCmd.RunCommand acCmdSpelling
Case 18
   DoCmd.RunCommand acCmdWorkgroupAdministrator
Case 19
   DoCmd.RunCommand acCmdSetDatabasePassword
Case 20
   DoCmd.RunCommand acCmdUserAndGroupAccounts
 Case 21
   DoCmd.RunCommand acCmdUserAndGroupPermissions
End Select
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 01/Mag/2011 at 08:56

Funzione n. 021  RunCommand (parte 2)

§EseguiComando2
Sub
Form
Luky
§Alcuni comandi RunCommand (vedi elenco e descrizione nel codice).
Inserire il valore del parametro metodo (da 1 a 22)§
Metodo
14

 

 

 


§Public Sub EseguiComando2(Metodo)
'1 Apre l'editor vba
'2 Apre la finestra stampa
'3 Stampa il documento attivo
'4 Seleziona finestra
'5 Compatta il database (Usare l'evento su chiusura)
'6 Compila e salva tutti i moduli
'7 Chiude la finestra attiva
'8 Compila tutti i moduli
'9 Apre la finestra nuova maschera
'10 Apre la finestra Nuova macro
'11 Apre la finestra Nuova query
'12 Apre la finestra Nuovo Report
'13 Apre la finestra Nuova tabella
'14 Aggiorna pagina web
'15 Trasporta in excel la maschera corrente
'16 Trasporta in RTF la maschera corrente
'17 Trasporta in Text la maschera corrente
'18 Apre la finestra "Importa"
'19 Salva l'applicazione
'20 Refresh della finestra attiva
'21 Chiude la maschera attiva
'22 Crea una replica del database
Select Case Metodo
Case 1
DoCmd.RunCommand acCmdVisualBasicEditor
Case 2
   DoCmd.RunCommand acCmdPrint
Case 3
   DoCmd.RunCommand acCmdQuickPrint
Case 4
   DoCmd.RunCommand acCmdMoreWindows
Case 5
   DoCmd.RunCommand acCmdCompactDatabase
Case 6
   DoCmd.RunCommand acCmdCompileAndSaveAllModules
Case 7
   DoCmd.RunCommand acCmdCloseWindow
Case 8
   DoCmd.RunCommand acCmdCompileAllModules
Case 9
   DoCmd.RunCommand acCmdNewObjectForm
Case 10
   DoCmd.RunCommand acCmdNewObjectMacro
Case 11
   DoCmd.RunCommand acCmdNewObjectQuery
Case 12
   DoCmd.RunCommand acCmdNewObjectReport
Case 13
   DoCmd.RunCommand acCmdNewObjectTable
Case 14
   DoCmd.RunCommand acCmdRefreshPage
Case 15
   DoCmd.RunCommand acCmdOutputToExcel
Case 16
   DoCmd.RunCommand acCmdOutputToRTF
Case 17
   DoCmd.RunCommand acCmdOutputToText
Case 18
   DoCmd.RunCommand acCmdImport
Case 19
   DoCmd.RunCommand acCmdSave
Case 20
   DoCmd.RunCommand acCmdRefresh
Case 21
   DoCmd.RunCommand acCmdClose
Case 22
   DoCmd.RunCommand acCmdCreateReplica
Case 23
 End Select
 
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 01/Mag/2011 at 09:04

Luky ha scritto:

.................

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?

-----------------

Ragazzi vi ricordo che nelle mie intenzioni c'era il coinvolgervi tutti, non di scrivere un monologo delle funzioni secondo Luky.

La vostra partecipazione sarà graditissima.

La vostra astensione decreterà il fallimento di questo progetto.

Se c'è qualcosa di poco chiaro rimango a disposizione.

Critiche costruttive sono bene accette.

Il vostro amico Luciano



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 02/Mag/2011 at 15:43

Funzione n. 022  Alcuni metodi dell'oggetto Casella Combinata

Occorre l'ultima versione del programma

§ComboFunzioni1
Sub
Casella Combinata
Luky
§Alcuni metodi dell'oggetto Casella Combinata.§
metodo
11
Valore
gioa
Posizione
1

 


§Public Sub ComboFunzioni1(Metodo, Valore, Posizione)
Posizione = CInt(Posizione) 'Vba contrassegna il primo elemento con 0
'1 Aggiunge un elemento in coda
'2 Aggiunge un elemento All'inizio
'3 Rimuove il primo elemento
'4 Rimuove L'ultimo elemento
'5 Rimuove l'elemento della posizione predeterminata
'6 Restituisce il numero  delle colonne
'7 Restituisce il numero degli elementi
'8 Restituisce l'elemento, il successivo e il precedente
'9 Determina la posizione dell'elemento selezionato.
'10 Restituisce il valore della posizione data
'11 Seleziona il valore predeterminato nella combo
With Forms!menù.Combo1
.Visible = True
Select Case Metodo
 Case 1
  .AddItem (Valore)
 Case 2
  .AddItem Valore, 0
Case 3
   .RemoveItem (0)
Case 4
  .RemoveItem (.ListCount - 1)
Case 5
  .RemoveItem (Posizione - 1)
Case 6
  MsgBox "Il numero delle colonne è: " & .ColumnCount
Case 7
  MsgBox "Il numero degli elementi è: " & .ListCount
Case 8
   MsgBox "Posizione precedente: " & .Column(0, Posizione - 1) & vbCrLf & "Posizione richiesta: " & .Column(0, Posizione) & vbCrLf & "Posizione successiva: " & .Column(0, Posizione + 1) & vbCrLf
Case 9
  MsgBox "Hai selezionato l'elemento in " & .ListIndex + 1 & "° posizione"
Case 10
MsgBox .ItemData(Posizione - 1):
Case 11
 .Value = Valore: MsgBox "Hai selezionato " & Valore
End Select
.SetFocus
.Dropdown
End With
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 03/Mag/2011 at 19:28

Funzione n. 023  Ricava il nome del file e l'estensione dal percorso completo

§EstraiNomeEstensione
Sub
FileCartelle
Luky
§Ricava nome del file e l'estensione.
Inserire il valore del PercosoCompleto es:
C:\Users\Luc\Desktop\adoXvb.doc§
PercosoCompleto
C:\Users\Luc\Desktop\adoXvb.doc

 

 

 


§Public Sub EstraiNomeEstensione(PercosoCompleto)
Dim PosLastSlash, PosPunto, i As Integer
Dim NomeFile, Estensione As String
For i = Len(PercosoCompleto) To 1 Step -1
  If Mid(PercosoCompleto, i, 1) = "\" Then PosLastSlash = i: Exit For
  If Mid(PercosoCompleto, i, 1) = "." Then PosPunto = i
Next i
NomeFile = Mid(PercosoCompleto, PosLastSlash + 1, PosPunto - PosLastSlash - 1)
Estensione = Right(PercosoCompleto, Len(PercosoCompleto) - PosPunto)
MsgBox "Il nome del file è: " & NomeFile & vbCrLf & "L'Estensione: " & Estensione
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 04/Mag/2011 at 15:04
Funzione n. 024  Ottiene la data e l'ora del sistema e delle stringhe immesse.

§DataFunzioni1
Sub
Data e ora
Luky
§Ottiene la data e l'ora del sistema e delle stringhe immesse.§
Data
01/12/2011
Ora
2:24:33PM

 

 


§Public Sub DataFunzioni1(Data, Ora)
Data = DateValue(Data) 'trasformazione in data del valore stringa
'
MsgBox "La data immessa si scinde in " & vbCrLf & "Giorno: " & Day(Data) & vbCrLf & "Mese: " & Month(Data) & vbCrLf & "Anno: " & Year(Data)
'
MsgBox "Era " & WeekdayName(Weekday(Data), , 1) & ", " & Weekday(Data) & "° giorno della settimana del mese di " & MonthName(Month(Data))
'
MsgBox "Oggi è il: " & Date 'restituisce la data
'
MsgBox "L'orario dato: " & Ora & " si  scinde in: " & vbCrLf & "Ora= " & Hour(Ora) & vbCrLf & "Minuti= " & Minute(Ora) & vbCrLf & "Secondi= " & Second(Ora)
'
MsgBox "Adesso è il: " & Now 'restituisce il giorno e l'orario
'
MsgBox "Sono le ore: " & Time 'restituisce l'orario
'
Ora = TimeValue(Ora) 'trasformazione da stringa a formato ora
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 04/Mag/2011 at 15:06

Funzione n. 025  Ottiene da stringhe che rappresentano un anno, un mese e un giorno una data in formato date.
 

§DataFunzioni2
Sub
Data e ora
Luky
§Ricava da stringhe che rappresentano un anno, un mese e un giorno una data in formato date.
Anno, mese e giorno possono essere il risultato di operazioni matematiche.§
Anno
2010
Mese
05
Giorno
26

 


§Public Sub DataFunzioni2(Anno, Mese, Giorno)
MsgBox "I valori immessi corrispondondono alla data: " & DateSerial(Anno, Mese, Giorno)
MsgBox "Otto anni prima dell'anno in oggetto, 2 mesi dopo il mese in oggetto e 6 giorni dopo il giorno in oggetto era il: " & DateSerial(Anno - 8, Mese + 2, Giorno + 6)
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 04/Mag/2011 at 15:07

Funzione n. 026  Ottiene da stringhe che rappresentano un ora, un minuto e un secondo una orario in formato time.
 

§DataFunzioni3
Sub
Data e ora
Luky
§Ricava da stringhe che rappresentano un ora, un minuto e un secondo una orario in formato time.
Ora, minuto e secondo possono essere il risultato di operazioni matematiche.§
Ora
3
Minuto
44
Secondo
56

 


§Public Sub DataFunzioni3(Ora, Minuto, Secondo)
MsgBox "I valori immessi corrispondondono all'ora: " & TimeSerial(Ora, Minuto, Secondo)
MsgBox "Dopo un ora, 10 minuti, e 20 secondi l'ora sarà: " & TimeSerial(Ora + 1, Minuto + 10, Secondo + 20)
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 06/Mag/2011 at 17:27

Funzione n. 027 Calcolo dell'età 

§CalcoloEtà
Funzione
Data e ora
Luky
§Calcolo dell'età (Dal sito comune)§
DataNascita
28/05/1957

 

 

 


§Public Function CalcoloEtà(DataNascita)
   Dim varEta As Variant
   varEta = DateDiff("yyyy", DataNascita, Now)
   If Date < DateSerial(Year(Now), Month(DataNascita), Day(DataNascita)) Then
       varEta = varEta - 1
   End If
   CalcoloEtà = varEta
MsgBox CalcoloEtà
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 06/Mag/2011 at 17:29

Funzione n. 028 Differenza di date

§DifferenzaDate
Sub
Data e ora
Luky
§Differenza fra due date espressa in anni e le frazioni di mesi e giorni.
Se la seconda data è "oggi" e la prima è la propria data di nascita, si ottiene l'età.
L'ordine delle date è ininfluente. Se la data è futura si ottiene il periodo che deve ancoraq trascorrere. Tiene conto del numero di giorni che ha il mese della prima data e se l'anno è bisestile.§
Data1
07/04/2010
Data2
06/05/2011

 

 


§Public Sub DifferenzaDate(Data1, data2)
Dim Anno, mese, Giorno, GiorniNelMese As Integer
Dim Anni, mesi, Giorni As Integer
Dim Futuro As Boolean
Dim DataNuova, appoggio   As Date
Futuro = False
Data1 = CDate(Data1): data2 = CDate(data2)
If Data1 > data2 Then
   appoggio = Data1
   Data1 = data2
   data2 = appoggio
End If
mese = Month(Data1)
Giorno = Day(Data1)
Anno = Year(Data1)
Select Case Month(Data1)
             Case 1, 3, 5, 7, 8, 10, 12
                  GiorniNelMese = 31
             Case 4, 6, 9, 11
                  GiorniNelMese = 30
             Case 2
             If ((Anno Mod 4) = 0 And (Anno Mod 100)) Or (Anno Mod 400) = 0 Then
                  GiorniNelMese = 29
             Else
                  GiorniNelMese = 28
             End If
End Select

5000
Anni = DateDiff("yyyy", Data1, data2)
If data2 < DateSerial(Year(data2), Month(Data1), Day(Data1)) Then
    Anni = Anni - 1
End If
    If Month(Data1) > Month(data2) Then   '-----------------------aaa
        If Day(Data1) > Day(data2) Then Giorni = GiorniNelMese - Day(Data1) + Day(data2): mesi = 11 - Month(Data1) + Month(data2)
        If Day(Data1) < Day(data2) Then Giorni = Day(data2) - Day(Data1):  mesi = 12 - Month(Data1) + Month(data2)
        If Day(Data1) = Day(data2) Then Giorni = 0:    mesi = 12 - Month(Data1) + Month(data2)
    End If
    If Month(Data1) = Month(data2) Then    '-----------------------
        If Day(Data1) > Day(data2) Then Giorni = GiorniNelMese - Day(Data1) + Day(data2): mesi = 11
        If Day(Data1) < Day(data2) Then Giorni = Day(data2) - Day(Data1): mesi = 0
        If Day(Data1) = Day(data2) Then Giorni = 0: mesi = 0
    End If
    If Month(Data1) < Month(data2) Then    '-----------------------
         mesi = Month(data2) - Month(Data1)
        If Day(Data1) > Day(data2) Then Giorni = GiorniNelMese - Day(Data1) + Day(data2): mesi = -Month(Data1) + Month(data2) - 1
        If Day(Data1) < Day(data2) Then Giorni = Day(data2) - Day(Data1): mesi = -Month(Data1) + Month(data2)
        If Day(Data1) = Day(data2) Then Giorni = 0
    End If
If Not Futuro Then
    MsgBox "Da una data all'altra ci sono:" & vbCrLf & "Anni: " & Anni & vbCrLf & "Mesi:   " & mesi & vbCrLf & "Giorni:  " & Giorni
    MsgBox "Espresso in" & vbCrLf & "giorni: " & DateDiff("d", Data1, data2) & vbCrLf & "in mesi: " & DateDiff("m", Data1, data2) & vbCrLf & "in trimestri: " & DateDiff("q", Data1, data2) & vbCrLf & "in settimane: " & DateDiff("ww", Data1, data2) & vbCrLf & "in ore: " & DateDiff("h", Data1, data2) & vbCrLf & "in minuti: " & DateDiff("n", Data1, data2) & vbCrLf & "in secondi: " & DateDiff("s", Data1, data2)
End If
If data2 > Date And Futuro = False Then
    Futuro = True: Data1 = Date
    GoTo 5000
End If
If Not Futuro Then Exit Sub
MsgBox "Mancano alla data" & vbCrLf & "Anni: " & Anni & vbCrLf & "Mesi:   " & mesi & vbCrLf & "Giorni:  " & Giorni
MsgBox "Espresso in" & vbCrLf & "giorni: " & DateDiff("d", Data1, data2) & vbCrLf & "in mesi: " & DateDiff("m", Data1, data2) & vbCrLf & "in trimestri: " & DateDiff("q", Data1, data2) & vbCrLf & "in settimane: " & DateDiff("ww", Data1, data2) & vbCrLf & "in ore: " & DateDiff("h", Data1, data2) & vbCrLf & "in minuti: " & DateDiff("n", Data1, data2) & vbCrLf & "in secondi: " & DateDiff("s", Data1, data2)
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 07/Mag/2011 at 19:23

Funzione n.029 DifferenzaDate(2)

§DifferenzaDate2
Sub
Data e ora
Luky
§Differenza di date (Funzione presa dal sito MasterDrive)
Ho tolto la gestione degli errori e l'inversione delle date, per sottolinearne la semplicità.
Non tiene conto del numero di giorni contenuto nel mese.§
Inizio
13/01/1984
Datax
07/05/2011

 

 


§Public Sub DifferenzaDate2(Inizio, Fine)
Dim wGiorni, wMese, Anni, mesi, Giorni As Integer
wGiorni = IIf(DateDiff("d", DatePart("d", Inizio), DatePart("d", Fine)) < 0, -1, 0)
wMese = DateDiff("m", Inizio, Fine) + wGiorni
Anni = Int(wMese / 12)
mesi = [wMese] - (Anni * 12)
Giorni = DateDiff("d", Day(Inizio) + [wGiorni] & "/" & Month(Fine) + [wGiorni] & "/" & Year(Fine), Fine)
MsgBox Anni & ", " & mesi & " e " & Giorni
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 09/Mag/2011 at 21:33

Funzione n.030  Eval

§EvalFunzione
Funzione
Matematica
Luky
§Dimostrazione di Eval§
CasellaTesto
2+34+22

 

 

 


§Public Function EvalFunzione(CasellaTesto)
EvalFunzione=eval(CasellaTesto)
Msgbox EvalFunzione
 End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 09/Mag/2011 at 21:41

Funzione n.031 Verifica se l'anno è bisestile

§Bisestile
Funzione
Data e ora
Luky
§Restituisce: true se l'anno è bisestile. Dal SitoComune.§
Anno
1977

 

 

 


§Public Function Bisestile(Anno) As Boolean
   'Autore: AntoGal
   'Accetta: Anno (4 cifre)
   'Restituisce: true se l'anno è bisestile
   Bisestile = ((Anno Mod 4) = 0 And (Anno Mod 100)) Or (Anno Mod 400) = 0
MsgBox " l'anno " & Anno & IIf(Bisestile = True, " era bisestile ", " non era bisestile  ")
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Mag/2011 at 08:14

Funzione n.032 Ricava le proprietà di un file

§FileProprietà
Sub
FileCartelle
Luky
§Rcava le proprietà di un file.
C:\WINDOWS\System32\boot§
NomeFile
C:\WINDOWS\System32\C_1257.NLS

 

 

 


§Public Sub FileProprietà(NomeFile)
Dim prova, stringa, M0, M1, M2, M4, M16, M32 As String
Dim attributo, result As Integer
MsgBox "Le dimensioni del file sono: " & FileLen(NomeFile) & " byte." & vbCrLf & " La data di modifica è: " & FileDateTime(NomeFile)
attributo = GetAttr(NomeFile)
 M0 = "Normale"
 M1 = "Sola lettura"
 M2 = "Nascosto"
 M4 = "File di sistema"
 M16 = "Directory o cartella"
 M32 = "Il file è stato modificato dall'ultimo backup"
Select Case attributo
Case 0
    stringa = M0         &nbs p;      'vbNormal 0
Case 1
    stringa = M1         &nbs p;      'vbReadOnly 1
Case 2
    stringa = M2         &nbs p;      'vbHidden 2
Case 4
    stringa = M4         &nbs p;      'vbSystem 4
Case 16
    stringa = M16         &nb sp;     'vbDirectory 16
Case 32
    stringa = M32         &nb sp;     'vbArchive 32
'somma di due
Case 3
    stringa = M1 & ", " & M2
Case 5
    stringa = M1 & ", " & M4
Case 17
    stringa = M1 & ", " & M16
Case 33
    stringa = M1 & ", " & M32
Case 6
    stringa = M2 & ", " & M4
Case 18
    stringa = M2 & ", " & M16
Case 34
    stringa = M2 & ", " & M32
Case 20
    stringa = M4 & ", " & M16
Case 36
    stringa = M4 & ", " & M32
Case 48
    stringa = M16 & ", " & M32
'Somma di tre
Case 7
    stringa = M1 & ", " & M2 & ", " & M4
Case 19
    stringa = M1 & ", " & M2 & ", " & M16
Case 22
    stringa = M1 & ", " & M4 & ", " & M16
Case 22
    stringa = M2 & ", " & M4 & ", " & M16
Case 35
    stringa = M1 & ", " & M2 & ", " & M32
Case 37
    stringa = M1 & ", " & M4 & ", " & M32
Case 49
    stringa = M1 & ", " & M16 & ", " & M32
Case 38
    stringa = M2 & ", " & M4 & ", " & M32
Case 50
    stringa = M2 & ", " & M16 & ", " & M32
Case 52
    stringa = M4 & ", " & M16 & ", " & M32
'somma di quattro
Case 51
    stringa = M1 & ", " & M2 & ", " & M16 & ", " & M32
Case 53
    stringa = M1 & ", " & M4 & ", " & M16 & ", " & M32
Case 54
    stringa = M2 & ", " & M4 & ", " & M16 & ", " & M32
'somma di cinque
Case 55
    stringa = M1 & ", " & M2 & ", " & M4 & ", " & M16 & ", " & M32
 End Select
MsgBox stringa
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Mag/2011 at 08:16

Funzione n.033 Funzioni sulle date

§DataFunzioni4
Sub
Data e ora
Luky
§Funzioni sulle date§

 

 

 

 


§Public Sub DataFunzioni4()
MsgBox "L'anno in corso è il: " & Year(Date) & vbCrLf & "è il " & Month(Date) & "° mese (" & MonthName(Month(Date)) & " )" & vbCrLf & "è giorno: " & Day(Date) & " (" & WeekdayName(Weekday(Date), , 1) & " )" & vbCrLf & "Sono le: ore  " & Hour(Time) & " e " & Minute(Time) & " minuti e " & Second(Time) & " secondi"
MsgBox "Il primo giorno di undici mesi fa era il " & DateSerial(Year(Date), Month(Date) - 11, 1)
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Mag/2011 at 08:17

Funzione n.034 Scambio di valori

§ScambioValori
Sub
Varie
Luky
§Scambio di valori§
Ciccio
biondo
Franco
moro

 

 


§Public Sub ScambioValori(Ciccio, Franco)
Dim Appoggio As String
    Appoggio = Ciccio
    Ciccio = Franco
    Franco = Appoggio
MsgBox "Ciccio adesso è " & Ciccio & ". Franco adesso è " & Franco
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Mag/2011 at 19:16

Funzione n.035 Determina il turno in corso

§Turno
Funzione
Data e ora
Luky
§Ricava il turno dall'0rario.(sistema mattina, pomeriggio, notte)§
orario
23:01

 

 

 


§Public Function Turno(orario)
Dim ora As Date
orario = Cdate(orario)
If orario >= #6:00:00 AM# And orario < #2:00:00 PM# Then MsgBox " primo turno del " & date
If orario >= #2:00:00 PM# And orario < #10:00:00 PM# Then MsgBox " secondo turno del " & date
If orario >= #10:00:00 PM# Then MsgBox " terzo turno del " & date
If orario < #6:00:00 AM# Then MsgBox " terzo turno del "& date-1
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Mag/2011 at 19:39

Funzione n.036 Trasferisce in excel due tabelle

§ExportToExcel2
Funzione
ConnessioneDatabase
Luky
§Esportare  due tabelle nello stesso file di excel,  rinominando il file prodotto con la data odierna.§

 

 

 

 


§Public Function ExportToExcel2()
   DoCmd.TransferSpreadsheet transfertype:=acExport, _
      spreadsheettype:=acSpreadsheetTypeExcel9, _
      tablename:="tabella1", _
      FileName:=Application.CurrentProject.Path & "\nomefile1.xls", _
      hasfieldnames:=True
    DoCmd.TransferSpreadsheet transfertype:=acExport, _
      spreadsheettype:=acSpreadsheetTypeExcel9, _
      tablename:="categorie", _
      FileName:=Application.CurrentProject.Path & "\nomefile1.xls", _
      hasfieldnames:=True
    
      Name Application.CurrentProject.Path & "\nomefile1.xls" As Application.CurrentProject.Path & "\nomefile" & Day(Date) & Month(Date) & Year(Date) & ".xls"
End Function§

 



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Mag/2011 at 20:43

Funzione n.037 RInomina file

§RinominaFile
Sub
FileCartelle
Luky
§Rinomina un file§
VecchioNome
C:\Users\Luc\Desktop\Ciao.txt
NuovoNome
C:\Users\Luc\Desktop\Bingo.txt

 

 


§Public Sub RinominaFile(VecchioNome, NuovoNome)
Name VecchioNome As NuovoNome
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 11/Mag/2011 at 19:04

Funzione n.038 Legge i tag di file mp3

§LeggiTag
Sub
FileCartelle
Luky
§Legge i tag di file mp3.
Dichiarare il tipo ID£V1Tag all'inizio modulo.
Presa dal sitocomune (Massimiliano Amendola)  e modificata§
Nomefile
C:\Users\Luc\Music\Battisti\Emozioni\anna.mp3

 

 

 


§Public Sub LeggiTag(Nomefile As String)
'-----------------la dichiarazione type va inserita all'inizio modulo dopo avere tolto i commenti
'Private Type ID3v1Tag
   ' sTag As String * 3
   ' sTitle As String * 30
   ' sArtist As String * 30
   ' sAlbum As String * 30
   ' sYear As String * 4
   ' sComment As String * 28
   ' bNull As Byte
   ' bTrack As Byte
    'bGenre As Byte
'End Type
'------------------------
Dim i As Integer
Dim Tag, Titolo, Artista, Album, Traccia, Genere, Anno, Commento   As String
Dim ID3v1Tags As ID3v1Tag
Open Nomefile For Binary As #1
With ID3v1Tags
    Get #1, LOF(1) - 127, .sTag
    If Not .sTag = "TAG" Then
      MsgBox "Non ci sono TAG per il file " & Nomefile
      Close #1
      Exit Sub
    End If
    Get #1, , .sTitle
    Get #1, , .sArtist
    Get #1, , .sAlbum
    Get #1, , .sYear
    Get #1, , .sComment
    Get #1, , .bNull
    Get #1, , .bTrack
    Get #1, , .bGenre
    Close #1
  Tag = "Tag: " & .sTag
  If InStr(1, Tag, Chr(0)) > 0 Then Tag = Left(Tag, InStr(1, Tag, Chr(0)) - 1)
  Titolo = "Titolo " & .sTitle
  If InStr(1, Titolo, Chr(0)) > 0 Then Titolo = Left(Titolo, InStr(1, Titolo, Chr(0)) - 1)
  Artista = "Artista: " & .sArtist
  If InStr(1, Artista, Chr(0)) > 0 Then Artista = Left(Artista, InStr(1, Artista, Chr(0)) - 1)
  Album = "Album: " & .sAlbum
  If InStr(1, Album, Chr(0)) > 0 Then Album = Left(Album, InStr(1, Album, Chr(0)) - 1)
  Traccia = "Traccia: " & .bTrack
  If InStr(1, Traccia, Chr(0)) > 0 Then Traccia = Left(Traccia, InStr(1, Traccia, Chr(0)) - 1)
  Genere = "Genere: " & .bGenre
  If InStr(1, Genere, Chr(0)) > 0 Then Genere = Left(Genere, InStr(1, Genere, Chr(0)) - 1)
  Anno = "Anno: " & .sYear
  If InStr(1, Anno, Chr(0)) > 0 Then Anno = Left(Anno, InStr(1, Anno, Chr(0)) - 1)
  Commento = "Commento: " & .sComment
  If InStr(1, Commento, Chr(0)) > 0 Then Commento = Left(Commento, InStr(1, Commento, Chr(0)) - 1)
      
  MsgBox Tag & vbCrLf & Titolo & vbCrLf & Artista & vbCrLf & Album & vbCrLf & Traccia & vbCrLf & Genere & vbCrLf & Anno & vbCrLf & Commento
   
End With
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 12/Mag/2011 at 17:41
Funzione n.039 Apre e posizona un report

§ApriReport
Sub
Report
Luky
§Apre un report, lo posiziona sullo schermo in una predetrminata posizione e ad un ingrandimento stabilito§
NomeReport
Report_Catalogo
Sinistra
5000
Alto
0
Larghezza
10000
Altezza
12000
§Public Sub ApriReport(NomeReport, Sinistra, Alto, Larghezza, Altezza)
DoCmd.Minimize  'Riduce a icona la maschera corrente
DoCmd.Close acReport, NomeReport  'Chiude il report
DoCmd.OpenReport NomeReport, acViewPreview ' Lo riapre
DoCmd.SelectObject acReport, NomeReport, False 'Lo seleziona come corrente
DoCmd.MoveSize Sinistra, Alto, Larghezza, Altezza    'lo posiziona in alto a sinistra
DoCmd.RunCommand acCmdZoom150  'determina l'ingrandimento
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 12/Mag/2011 at 17:43

Funzione n.040 Stampa un report

§StampaReport
Sub
Report
Luky
§Stampa il report in oggetto§
NomeReport
Report_Catalogo

 

 

 


§Public Sub StampaReport(NomeReport)
On Error GoTo No_Stampa
DoCmd.OpenReport NomeReport, acViewPreview
DoCmd.SelectObject acReport, NomeReport, False
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, NomeReport
DoCmd.SelectObject acForm, "Menù", False
Exit_Stampa:
    Exit Sub
No_Stampa:
    If Err.Number = 2501 Then
       MsgBox "Stampa annullata dall'utente", vbInformation, _
             "Stampa Report"
    Else
        MsgBox Err.Number & " " & Err.Description
    End If
    Resume Exit_Stampa
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 13/Mag/2011 at 13:48

Funzione n.041 Estrae la stringa 

§EstraiStringa
Sub
Testo
Luky
§Non eseguire il codice con il pulsante " ESEGUI" ma con l'evento doppio click!
Estrae la stringa  dalla casella "Codice".
I limiti della stringa sono gli spazi " " e l'invio.
Modificando il codice è possibile porre come limiti tutti i caratteri che non comprendono numeri e alfabeto.§

 

 

 

 


§Public Sub EstraiStringa()
Dim I, Y As Byte
Dim inizio, Pos, LunghezzaStringa, LunghezzaSelezione As Integer
Dim Stringa   As String
Stringa = Forms!Menù.TCodice.Value
inizio = Forms!Menù.TCodice.SelStart
LunghezzaStringa = Len(Stringa)
If inizio >= LunghezzaStringa Then Exit Sub

Pos = inizio


For Y = 1 To 70         &nbs p;   ' il valore di y, fine stringa ricercata +1

      If Mid(Stringa, inizio + Y, 1) = " " Or Mid(Stringa, inizio + Y, 1) = Chr(13) Or Len(Stringa) < inizio + Y Or Mid(Stringa, inizio + Y, 1) > Chr(122) Or Mid(Stringa, inizio + Y, 1) < Chr(65) Then
          Exit For
      End If
Next Y


For I = 1 To 70         ' il valore di i, inizio stringa ricercata
        If inizio + Y - I = 0 Then inizio = I - Y: Exit For

             If Mid(Stringa, inizio + Y - I, 1) = " " Or Mid(Stringa, inizio + Y - I, 1) = Chr(13) Or Mid(Stringa, inizio + Y - I, 1) > Chr(122) Or Mid(Stringa, inizio + Y - I, 1) < Chr(65) Then
                     inizio = inizio
                 Exit For
             End If
 Next I
   
Forms!Menù.TCodice.SelStart = inizio - I + Y
Forms!Menù.TCodice.SelLength = I - 1
MsgBox Forms!Menù.TCodice.SelText
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 14/Mag/2011 at 15:33

Funzione n.042 Esporta il report nei vari formati

§EsportaReport
Sub
Report
Luky
§Esporta il report nei vari formati.
Inserire un valore da 1 a 5
Ho rilevato che l'applicazione si blocca, è gradita la conferma da parte dei foristi se si verifica o no.§
Tipo
2

 

 

 


§Public Sub EsportaReport(Tipo)
Dim Estensione As String
Select Case Tipo
Case 1
Tipo = acFormatXLS: Estensione = "XLS"
Case 2
Tipo = acFormatTXT: Estensione = "txt"
Case 3
Tipo = acFormatRTF: Estensione = "RTF"
Case 4
Tipo = acFormatHTML: Estensione = "HTML"
Case 5
Tipo = acFormatDAP: Estensione = "DAP"
End Select
DoCmd.OutputTo acOutputReport, "Report_Catalogo", Tipo, Application.CurrentProject.Path & "\CatalogoFunzioni." & Estensione, False
'altri formati
'acOutputForm  acOutputFunction  acOutputModule  acOutputQuery
'acOutputServerView  acOutputStoredProcedure acOutputTable
''''''
'acFormatASP  acFormatIIS  acFormatSNP
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 16/Mag/2011 at 19:48

Funzione n.043 Apre una Query

§ApriQuery
Sub
Sql
Luky
§Apre una Query.
Contiene il comando per disabilitare momentaneamente i messaggi di avviso delle query, che in questo caso non sussistono in quanto si tratta di una  semplice interrogazione.§
NomeQuery
Qreport

 

 

 


§Public Sub ApriQuery(NomeQuery)
DoCmd.Minimize  'Riduce a icona la maschera corrente
DoCmd.SetWarnings False  'disabilita messaggi
DoCmd.OpenQuery NomeQuery
DoCmd.SetWarnings True
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 18/Mag/2011 at 18:04

Funzione n.044 La funzione Iif (SE)

§Iif_Funzione
Sub
Logica
Diabolik_70
§Restituisce il doppio per valori maggiori di 1000.
Il triplo per valori compresi fra 500 e 1000.
Il quadruplo per valori inferiori a 500§
Importo
500

 

 

 


§Public Sub Iif_Funzione(Importo)
Importo = CInt(Importo)
Importo = IIf(Importo > 1000, Importo * 2, IIf(Importo < 500, Importo * 4, Importo * 3))
MsgBox Importo
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 19/Mag/2011 at 17:17
Funzione n.045 Inserimento di un valore nel campo di una tabella

 

§InserisciRecord
Sub
Sql
Luky
§Inserimento di un valore nel campo di una tabella.§
Tabella
Tabella1
Campo
Campo
Valore
Addio

 


§Public Sub InserisciRecord(Tabella, Campo, Valore)
On Error GoTo 5000
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT " & Campo & "  FROM " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rst.AddNew
        rst!Campo = Valore
        rst.Update
    rst.Close
MsgBox "Fatto"
Exit Sub
5000
MsgBox "Operazione annullata"
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 19/Mag/2011 at 17:18

Funzione n.046 Elimina  un valore nel campo di una tabella

§EliminaRecord
Sub
Sql
Luky
§Elimina  un valore nel campo di una tabella.§
Tabella
Tabella1
Campo
Campo
Valore
addio

 


§Public Sub EliminaRecord(Tabella, Campo, Valore)
'Notare come nell'sql le variabili Campo e Tabella richiedono un solo doppio apice quando espandono il tipo di oggetto, mentre ne richiedono tre quando espandono il valore dell'oggetto.
'Nella funzione Dlookup non richiedono  apici in quanto semplici varialbili
'Valore richiede tre doppi apici  nel contesto di concatenamento in quanto tipo di dato testo.
'Ricordarsi di convertire in tipo numerico quando necessita nel qual caso va usato  solo un doppio apice.
'
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
If IsNull(DLookup(Campo, Tabella, Campo & "= """ & Valore & """")) Then MsgBox "Non c'è il valore " & Valore & " nel Campo " & Campo & " nella Tabella  " & Tabella & "": Exit Sub
'
rst.Open "DELETE " & Campo & " FROM  " & Tabella & "  WHERE  " & Campo & " = """ & Valore & """", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'
If IsNull(DLookup(Campo, Tabella, Campo & "= """ & Valore & """")) Then
    MsgBox "Fatto"
End If
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 21/Mag/2011 at 09:06

Funzione n.047 Apre un pdf ad una determinata pagina

§ApriPdfPagina
Sub
Win32
Diabolik_70
§Apre un pdf ad una determinata pagina§
CartellaAcrobat
C:\Programmi\Adobe\Reader 8.0\Reader\AcroRd32.exe
NomeFileCompleto
C:\Users\Luc\Desktop\Cd\abusivo.pdf
NumeroPagina
6

 


§Public Sub ApriPdfPagina(CartellaAcrobat, NomeFileCompleto, NumeroPagina)
Shell CartellaAcrobat & " /A page=" & NumeroPagina & " " & NomeFileCompleto, vbNormalFocus
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 21/Mag/2011 at 18:47

Funzione n.048 Apre maps di google per l'indirizzo dato

§RichiamaGoogleMaps
Sub
Varie
Laky_66
§Apre maps di google per l'indirizzo dato.
Inserire x per le incognite§
Citta
Roma
Cap
x
Indirizzo
via ancona
NumeroCivico
x


§Public Sub RichiamaGoogleMaps(Citta, Cap, Indirizzo, NumeroCivico)
Dim Link As String
Dim ret As Integer
    Indirizzo = Replace(Nz(Indirizzo & " " & NumeroCivico, ""), ",", " ")
    Citta = Replace(Nz(Citta, ""), ",", " ")
    Cap = Nz(Cap, "")
    Link = " http://maps.google.it/?q - http://maps.google.it/?q ="
    Link = Link & Indirizzo & " , " & Cap & " " & Citta
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 23/Mag/2011 at 14:49

Funzione n.049 Apre la pagina web "non solo cap" per per l'indirizzo dato.

§RichiamaCap
Sub
Varie
Luky
§Ottiene CAP, REGIONE, CODICE CATASTALE E PREFISSO
Apre http://www.nonsolocap.it - www.nonsolocap.it per l'indirizzo dato.
Il CAP generico per alcune città (riportate nel vba) non è più in uso, ogni zona postale ha il suo.
Inserire x per le incognite§
Citta
verbania
Indirizzo
Via Venticinque Aprile
NumeroCivico
34

 


§Public Sub RichiamaCap(Citta, Indirizzo, NumeroCivico)
Dim Link As String
Dim ret As Integer
Indirizzo = Replace(Nz(Indirizzo & " " & NumeroCivico, ""), ",", " ")
    Citta = Replace(Nz(Citta, ""), ",", " ")
If Citta = "Alessandria" Or Citta = "Ancona" Or Citta = "Bari" Or Citta = "Bergamo" Or Citta = "Bologna" Or Citta = "Brescia" Or Citta = "Cagliari" Or Citta = "Catania" Or Citta = "Cesena" Or Citta = "Ferrara" Or Citta = "Firenze" Or Citta = "Foggia" Or Citta = "Forli" Or Citta = "Genova" Or Citta = "La Spezia" Or Citta = "Livorno" Or Citta = "Messina" Or Citta = "Milano" Or Citta = "Modena" Or Citta = "Napoli" Or Citta = "Padova" Or Citta = "Palermo" Or Citta = "Parma" Or Citta = "Perugia" Or Citta = "Pesaro" Or Citta = "Pescara" Or Citta = "Piacenza" Or Citta = "Pisa" Or Citta = "Ravenna" Or Citta = "Reggio Calabria" Or Citta = "Reggio Emilia" Or Citta = "Rimini" Or Citta = "Roma" Or Citta = "Salerno" Or Citta = "Taranto" Or Citta = "Torino" Or Citta = "Trento" Or Citta = "Trieste" Or Citta = "Venezia" Or Citta = "Verbania" Or Citta = "Verona" Then
 Link = " http://www.nonsolocap.it/cap?k - http://www.nonsolocap.it/cap?k =" & Indirizzo & "&b=+Cerca+&c=" & Citta & ""
Else
Link = " http://www.nonsolocap.it/cap?k - http://www.nonsolocap.it/cap?k =" & Citta & "&b=+Cerca+&c="
End If
  
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
   
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 24/Mag/2011 at 13:25

Funzione n.050 Apre  per il nominativo dato contemporaneamente le pagine gialle e quelle bianche

§RichiamaPagineGialleBianche
Sub
Varie
Luciano
§Apre  per il nominativo dato contemporaneamente le pagine gialle e quelle bianche
Inserire x per le incognite§
Nominativo
Cappuccio renato
Indirizzo
via necropoli grotticelle
Città
siracusa
Cap
96100


§Public Sub RichiamaPagineGialleBianche(Nominativo, Indirizzo, Città, Cap)
Dim Link, NominativoCopia, CittàCopia, IndirizzoCopia, CapCopia As String
Dim ret, ret2 As Integer
If Nominativo = "x" Then Nominativo = ""
If Indirizzo = "x" Then Indirizzo = ""
If Città = "x" Then Città = ""
If Cap = "x" Then Cap = ""
NominativoCopia = Nominativo
IndirizzoCopia = Indirizzo
CittàCopia = Città
CapCopia = Cap
    Nominativo = Replace(Nominativo, " ", "%20")
    Città = Replace(Città, " ", "%20")
    Indirizzo = Replace(Indirizzo, " ", "%20")
    Cap = Trim(Nz(Cap, ""))
    Link = " http://www.paginegialle.it/pgol/4-cappuccio%20renato/3 - http://www.paginegialle.it/pgol/4-cappuccio%20renato/3 -"
    Link = Link & Nominativo & "&dv=" & Cap & "%20" & Città & "%20" & Indirizzo
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
NominativoCopia = Replace(Nz(NominativoCopia, ""), " ", "+")
Indirizzo = Replace(Nz(IndirizzoCopia, ""), " ", "+")
CittàCopia = Replace(Nz(CittàCopia, ""), " ", "+")
Cap = Replace(Nz(Cap, ""), " ", "+")
Link = " http://www.paginebianche.it/execute.cgi?iq=&ver=default&font=default&btt=1&mr=10&rk=&om=&qs - http://www.paginebianche.it/execute.cgi?iq=&ver=default& amp; amp;font=default&btt=1&mr=10&rk=&om=&qs ="
Link = Link & NominativoCopia & "&dv=" & IndirizzoCopia & "&dv=" & CittàCopia & "&dv=" & Cap
ret2 = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 25/Mag/2011 at 11:22

Funzione n.051 Apre  le pagine gialle ( http://www.paginegialle.it/ - http://www.paginegialle.it ) per la categoria e la località  date

§RichiamaPagineGialle
Sub
Varie
Luciano
§Apre  le pagine gialle ( http://www.paginegialle.it - http://www.paginegialle.it ) per la categoria e la località  date§
Categoria
arredo bagno
Località
canicattini bagni

 

 


§Public Sub RichiamaPagineGialle(Categoria, Località)
Dim Link As String
Dim ret As Integer
    Categoria = Replace(Categoria, " ", "%20")
    Località = Replace(Località, " ", "%20")
   
Link = " http://www.paginegialle.it/pgol/4 - http://www.paginegialle.it/pgol/4 -"
Link = Link & Categoria & "/3-" & Località
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 26/Mag/2011 at 09:51
Funzione n.052 Ottiene itinerario di maps di google per le località date

§ItinerarioGoogleMaps
Sub
Varie
Luciano
§Ottiene itinerario di maps di google per le località date.§
Partenza
siracusa
Arrivo
roma

 

 


§Public Sub ItinerarioGoogleMaps(Partenza, Arrivo)
Dim Link As String
Dim ret As Integer
    Link = " http://maps.google.it/maps?f=d&source=s_d&saddr - http://maps.google.it/maps?f=d&source=s_d&saddr =" & Partenza & "&daddr=" & Arrivo & "&hl=it&geocode=FdgyfwIdqaW-"
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 26/Mag/2011 at 12:25
Il sito governativo ha inserito il codice di sicurezza visuale, per cui questa funzione non sortisce l'effetto voluto

Funzione n.053 Calcolo bollo auto dal sito www3.agenziaentrate.gov.it

§BolloAuto
Sub
Varie
Luciano
§Calcolo bollo auto dal sito www3.agenziaentrate.gov.it§
Targa
ed759rz

 

 

 


§Public Sub BolloAuto(Targa)
Dim Link As String
Dim ret As Integer
    Link = " http://www3.agenziaentrate.gov.it/servizi/bollo/calcolo/propostapagamentosemplice.htm?targa" rel="nofollow - http://www3.agenziaentrate.gov.it/servizi/bollo/calcolo/prop ostapagamentosemplice.htm?targa =" & Targa & "&tiposervizio=PropostaPagamentoSemplice&categoria=0 1-autoveicolo"
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 27/Mag/2011 at 10:44

Funzione n.054 Calcolo bollo auto dal sito www3.agenziaentrate.gov.it

§BolloAuto2
Sub
Varie
Luciano
§Calcolo bollo auto
Tipo (Autoveicolo / Motoveicolo / Ciclomotore)
Regione …   (Sicilia ecc..)
Euro         (0 1 2 3 4 5 6)
ImpiantoGas (Sì No)§
Potenza
44
Tipo
Autoveicolo
Regione
Sicilia
Euro
0
ImpiantoGas
no
§Public Sub BolloAuto2(Potenza, Tipo, Regione, Euro, ImpiantoGas)
Dim Link As String
Dim ret As Integer
Potenza = Trim(CInt(Potenza))
    Link = " http://www1.agenziaentrate.gov.it/servizi/bollo/calcolo/kw_cv_ins.htm?tipoPotenza=KW&potenza - http://www1.agenziaentrate.gov.it/servizi/bollo/calcolo/kw_c v_ins.htm?tipoPotenza=KW&potenza =" & Potenza & "&tipoVeicolo=" & Tipo & "&Regione=" & Regione & "&direttiva=" & Euro & "&gas=" & ImpiantoGas & ""
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 28/Mag/2011 at 15:37

Funzione n.055 Elenco tabelle, query e maschere presenti nel db

§ElencoTabelle
Sub
Database
Luky
§Elenco tabelle, query e maschere presenti nel db§

 

 

 

 


§Public Sub ElencoTabelle()
Dim Stringa As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT Name  FROM MSysObjects WHERe Type=1 AND Flags=0", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
While Not rst.EOF
    Stringa = Stringa & vbCrLf & rst!Name
   rst.MoveNext
Wend
Stringa = "Elenco tabelle:" & Stringa & vbCrLf & vbCrLf & "Elenco query:"
rst.Close

rst.Open "SELECT Name FROM MSysObjects WHERe Type=5 AND (Flags=0 or flags=128)", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
While Not rst.EOF
    Stringa = Stringa & vbCrLf & rst!Name
   rst.MoveNext
Wend
rst.Close
'
Stringa = Stringa & vbCrLf & vbCrLf & "Elenco maschere:"
rst.Open "SELECT Name FROM MSysObjects WHERe Type=-32768 AND Flags=0 ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
While Not rst.EOF
    Stringa = Stringa & vbCrLf & rst!Name
   rst.MoveNext
Wend
rst.Close
MsgBox Stringa
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 30/Mag/2011 at 12:42
Funzione n.056 Cronometra il tempo di esecuzione della routine inglobata

§Cronometro
Sub
Data e ora
Luky
§Misura il tempo trascorso, in secondi e le sue frazioni, fra due eventi, l'entrata e l'uscita da un ciclo.
Inserire numeri fra 9 e 18 (per numeri inferiori con un processore da 1800 il risultato non è apprezzabile, per numeri superiori il tempo di attesa è scocciante)§
costante
16

 

 

 


§Public Function Cronometro(costante)
'SCRIVERE LA SEGUENTE DICHIARAZIONE ALL'INIZIO DEL MODULO
'--------------------
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'--------------------
Dim NumeroCicli, somma, inizio, Fine, tempo As Double
Dim Unità As String
 
NumeroCicli = 1
costante = CInt(costante)
inizio = Timer
While somma < costante
    NumeroCicli = NumeroCicli + 1
    somma = somma + 1 / NumeroCicli
Wend
Fine = Timer
tempo = Fine - inizio
'Sleep (100)  'sospende l'esecuzione del vba. Solo per ricordarmi che esiste questa funzione
If tempo < 1 Then
    tempo = tempo * 100:  Unità = " centesimi di secondo"
Else
    Unità = " secondi"
End If
MsgBox "NumeroCicli: " & NumeroCicli & vbCrLf & vbCrLf & "tempo: " & tempo & Unità
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 10/Giu/2011 at 12:54
Funzione n.057 Ricava il numero della settimana cui appartiene una certa data.
§NumeroSettimana
Sub
Data e ora
Diabolik_70
§Per la data in oggetto, viene definito il numero ordinale della settimana rispetto all'anno. La prima settimana è quella che inizia con lunedì nell'anno in corso.§
Data
01/01/11

 

 

 


§Public Sub NumeroSettimana(Data)
Data = CDate(Data)
MsgBox DatePart("ww", Data, 2, 2) & "° settimana dell'anno " & IIf(Month(Data) = 1 And DatePart("ww", Data, 2, 2) <> 1, Year(Date) - 1, DatePart("yyyy", Data, 2, 2))
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 20/Giu/2011 at 16:53

Funzione n.058 Ricerca un valore in più campi.

§RicercaCampiMultipli
Sub
Ricerca
Almorel
§Ricerca un valore in più campi.
Creare questa query, nominandola RicercaCampiMultipli:
SELECT Argomento1 & " " & Argomento2 & " " & Argomento3 & " " & Argomento4 & " " & Argomento5 AS ArgomentoDa1a5 FROM Funzioni
WHERE (((Argomento1 & " " & Argomento2 & " " & Argomento3 & " " & Argomento4 & " " & Argomento5) Like "*" & [forms]![Menù]![TArgomento1] & "*"));§
Oggetto
gela

 

 

 


§Public Sub RicercaCampiMultipli(Oggetto)
DoCmd.Minimize  'Riduce a icona la maschera corrente
DoCmd.OpenQuery "RicercaCampiMultipli"
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 11/Lug/2011 at 09:01

Funzione n.059 Format con due cifre decimali.

§Format1
Funzione
Matematica
Almorel
§Convertire un campo di tipo dati Numerico mantenendo due cifre decimali.
Il metodo 1 utilizza la funzione "Format" (metodo diretto suggerito da Almorel)
Il metodo 2 utilizza una funzione personale (metodo cervellotico e indiretto elaborato da Luky)§
Cifra
123,8
Metodo
1

 

 


§Public Function Format1(Cifra, Metodo) As String
Cifra = CSng(Cifra)
Cifra = CStr(Cifra)
Select Case Metodo
Case 1
    Cifra = Format(Cifra, "0.00")
    Format1 = Cifra
    MsgBox Format1
Case 2
    If InStr(Cifra, ",") = 0 Then Cifra = Cifra & ",00": MsgBox Cifra: Exit Function
    If Mid(Cifra, Len(Cifra) - 1, 1) = "," Then Cifra = Cifra & "0"
    If Mid(Cifra, Len(Cifra) - 2, 1) = "," Then Cifra = Cifra
    Format1 = Cifra
    MsgBox Format1
End Select
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 12/Lug/2011 at 09:14

Funzione n.060 Formattazione di una data

§Format2
Sub
Varie
Luky
§Formattazione di una data. Format(Data, Argomento)
Secgliere un metodo da 1 a 17§
Data
01/09/21
Metodo
16

 

 


§Public Sub Format2(Data, Metodo)
Dim Argomento, Descrizione As String
'1 "d" giorno del mese una cifra o due
'2 "dd" giorno del mese due cifre
'3 "ddd" giorno della settimana breve
'4 "dddd" giorno della settimana esteso
'5 "ddddd" Data breve.
'6 "c" Data breve.
'7 "dddddd" Data estesa.
'8 "m" mese una cifra o due
'9 "mm" mese due cifre
'10 "mmm" mese breve
'11 "mmmm" mese esteso
'12 "y" numero del giorno in un anno
'13 "yy" anno due cifre
'14 "yyyy" anno quattro cifre
'15 "q" trimestre
'16 "w" giorno della settimana numero
'17 "dddd d/mmm/yyyy"" giorno della settimana esteso, giorno del mese una cifra o due, mese breve, anno quattro cifre"
Data = CDate(Data)
Select Case Metodo
Case 1
Data = Format(Data, "d"): Argomento = "d": Descrizione = "giorno del mese una cifra o due"
Case 2
Data = Format(Data, "dd"): Argomento = "dd": Descrizione = "giorno del mese due cifre"
Case 3
Data = Format(Data, "ddd"): Argomento = "ddd": Descrizione = "giorno della settimana breve"
Case 4
Data = Format(Data, "dddd"): Argomento = "dddd": Descrizione = "giorno della settimana esteso"
Case 5
Data = Format(Data, "ddddd"): Argomento = "ddddd": Descrizione = "Data breve."
Case 6
Data = Format(Data, "c"): Argomento = "c": Descrizione = "Data breve."
Case 7
Data = Format(Data, "dddddd"): Argomento = "dddddd": Descrizione = "giorno del mese una cifra o due": Descrizione = "Data estesa."
Case 8
Data = Format(Data, "m"): Argomento = "m": Descrizione = "mese una cifra o due"
Case 9
Data = Format(Data, "mm"): Argomento = "mm": Descrizione = "mese due cifre"
Case 10
Data = Format(Data, "mmm"): Argomento = "mmm": Descrizione = "mese breve"
Case 11
Data = Format(Data, "mmmm"): Argomento = "mmmm": Descrizione = "mese esteso"
Case 12
Data = Format(Data, "y"): Argomento = "y": Descrizione = "numero del giorno in un anno"
Case 13
Data = Format(Data, "yy"): Argomento = "yy": Descrizione = "anno due cifre"
'14 "yyyy" anno quattro cifre
'15 "q" trimestre
'16 "w" giorno della settimana numero
'17 "dddd d/mmm/yyyy"" settimana dell'anno numero
Case 14
Data = Format(Data, "yyyy"): Argomento = "yyyy": Descrizione = "anno quattro cifre"
Case 15
Data = Format(Data, "q"): Argomento = "q": Descrizione = "trimestre"
Case 16
Data = Format(Data, "w"): Argomento = "w": Descrizione = "giorno della settimana numero"
Case 17
Data = Format(Data, "dddd d/mmm/yyyy"): Argomento = "dddd d/mmm/yyyy": Descrizione = "giorno della settimana esteso, giorno del mese una cifra o due, mese breve, anno quattro cifre"
End Select
MsgBox Data & vbCrLf & "Argomento: " & Argomento & vbCrLf & "Descrizione: " & Descrizione
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 27/Lug/2011 at 11:49

Funzione n.061 Richiama la tavolozza dei coloril e egge il numero del colore scelto

§TavolozzaColori
Sub
Form
Tommy_G
§Ripresa dalla sezione demo n 65(Tommy_G)
Richiama la tavolozza dei colori  e  legge il numero del colore scelto.§

 

 

 

 


§Public Sub TavolozzaColori()
'Private Type CHOOSECOLOR         ''-----------------la dichiarazione type e quella declare function vanno inserite all'inizio modulo dopo avere tolto i commenti
     'lStructSize As Long
     'hwndOwner As Long
     'hInstance As Long
     'rgbResult As Long
     'lpCustColors As String
     'flags As Long
     'lCustData As Long
     'lpfnHook As Long
    'lpTemplateName As String
   'End Type

   'Private Declare Function CHOOSECOLORAPI Lib "comdlg32.dll" Alias _
   '  "ChooseColorA" (pCHOOSECOLOR As CHOOSECOLOR) As Long
   '____---------------------------------------------
On Error GoTo errore7
Dim cc As CHOOSECOLOR
Dim CustomColors() As Byte
      Dim Custcolor(16) As Long
       Dim lReturn As Long
      cc.lStructSize = Len(cc)
       'cc.hwndOwner = Me.Hwnd   'omesso perchè non siamo nel modulo di classe
       'utilizzare la proprietà Hwnd per determinare l'handle, ovvero un valore Long Integer univoco, assegnato da Microsoft Windows alla finestra corrente.
       cc.hInstance = 0
       cc.lpCustColors = StrConv(CustomColors, vbUnicode)
       cc.flags = 0
       lReturn = CHOOSECOLORAPI(cc)
       If lReturn <> 0 Then
           MsgBox "Il Valore RGB scelto è: " & Str$(cc.rgbResult)
         
       End If
      
errore7:
 Exit Sub
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 02/Ago/2011 at 10:42

Funzione n.062 Aggiunge o elimina un campo alla tabella

§AddDropColumn
Sub
Sql
Luciano
§Aggiunge o elimina un campo alla tabella.
Metodo 1 aggiunge un campo; Metodo 2 elimina un campo
Tipi di dati: Char(4), date, smallint, integer, time, decimal, real, float.§
NomeTabella
Tabella1
NomeCampo
Campo2
TipoDati
integer
Metodo
2


§Public Sub AddDropColumn(NomeTabella, NomeCampo, TipoDati, Metodo)
Dim SQL As String
'Metodo 1 aggiunge un campo
'Metodo 2 elimina un campo
On Error GoTo 5000
Select Case Metodo
Case 1
   
    SQL = "Alter Table " & NomeTabella & " add " & NomeCampo & " " & TipoDati
    DoCmd.RunSQL SQL
    MsgBox "Aggiunto " & NomeCampo
    Exit Sub
Case 2
   SQL = "Alter Table " & NomeTabella & " Drop " & NomeCampo
    DoCmd.RunSQL SQL
    MsgBox "Eliminato " & NomeCampo
    Exit Sub
End Select
5000
MsgBox "errore " & Err.Number & " " & Err.Description
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 04/Ago/2011 at 09:52

Funzione n.063 Trasforma i minuti nel formato ora e minuti

§Format3
Sub
Varie
Almorel
§Trasforma i minuti nel formato ora e minuti§
Minuti
230

 

 

 


§Public Sub Format3(Minuti)
MsgBox Minuti \ 60 & ":" & Format(Minuti Mod 60, "00")
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 04/Ago/2011 at 09:57
Funzione n.064 Formattazione di un numero

§Format4
Sub
Varie
Luciano
§Formattazione di un Numero. Format(Numero, Argomento)
Secgliere un metodo da 1 a 10§
Numero
12,56
Metodo
10

 

 


§Public Sub Format4(Numero, metodo)
Dim Argomento As String
Select Case metodo
Case 1
Numero = Format(Numero, ""): Argomento = "":
Case 2
Numero = Format(Numero, "0"): Argomento = "0":
Case 3
Numero = Format(Numero, "0.00"): Argomento = "0.00":
Case 4
Numero = Format(Numero, "#,##0"): Argomento = "#,##0":
Case 5
Numero = Format(Numero, "#,##0.00;;;Niente"): Argomento = "#,##0.00;;;Niente":
Case 6
Numero = Format(Numero, "€#,##0"): Argomento = "€#,##0;":
Case 7
Numero = Format(Numero, "$#,##0.00"): Argomento = "$#,##0.00":
Case 8
Numero = Format(Numero, "0%"): Argomento = "0%":
Case 9
Numero = Format(Numero, "0.00%"): Argomento = "0.00%":
Case 10
Numero = Format(Numero, "€ 0.00"): Argomento = "€ 0.00":
End Select
MsgBox Numero & vbCrLf & "Argomento: " & Argomento
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 05/Ago/2011 at 08:24
Funzione n.065 Restiruisce la data della domenica precedente alla data immessa 

§DomenicaPrecedente
Funzione
Data e ora
VediCodice
§Restiruisce la data della domenica precedente alla data immessa
Metodo 1 con ciclo; metodo 2 diretto§
Data
10/12/2010
metodo
2

 

 


§Public Function DomenicaPrecedente(data, metodo)
'autore spikexx84
Select Case metodo
Case 1
    Dim i_iteratore As Long
   
    For i_iteratore = 0 To 6
        If Format(DateAdd("d", i_iteratore * -1, data), "w") = vbSunday Then
             DomenicaPrecedente = DateAdd("d", i_iteratore * -1, data)
             Exit For
        End If
    Next
Case 2
DomenicaPrecedente = DateAdd("d", (Format(data, "w") - 1) * -1, data)
End Select
MsgBox DomenicaPrecedente
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 05/Ago/2011 at 11:52

Funzione n.066 Esempi di uso della funzione Space

§FunzioneSpace
Sub
Testo
Luciano
§Esempi di uso della funzione Space.
Apprezzabile con font courier con larghezza di carattere costante.§

 

 

 

 


§Public Sub FunzioneSpace()
Dim a1, b1, a2, b2 As String
a1 = "iiiii"
b1 = "iiiiiiii"
a2 = "ii"
b2 = "iiii"
MsgBox "Somma di spazi e lettere uguali; allinea a destra il secondo nome" & vbCrLf & (a1 & Space(30 - Len(a1) - Len(b1)) & b1) & vbCrLf & (a2 & Space(30 - Len(a2) - Len(b2)) & b2)
          
MsgBox "Numero di spazi uguali fra un nome ed un altro " & vbCrLf & (a1 & Space(20) & b1) & vbCrLf & (a2 & Space(20) & b2)
MsgBox "Numero di spazi e numero di lettere del primo nome uguale; allinea a sinistra il secondo nome" & vbCrLf & (a1 & Space(30 - Len(a1)) & b1) & vbCrLf & (a2 & Space(30 - Len(a2)) & b2)

End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 08/Ago/2011 at 13:48

Funzione n.067 Differenza di orario calcolata in ore e minuti

§DifferenzaOrario
Sub
Data e ora
Luciano
§Differenza di orario calcolata in ore e minuti§
Ora1
23:00
Ora2
01:23

 

 


§Public Sub DifferenzaOrario(ora1 As Date, ora2 As Date)
Dim Appoggio As Date
If ora1 > ora2 Then ora2 = DateAdd("d", 1, ora2)
msgbox DateDiff("s", ora1, ora2) & " secondi"
msgbox DateDiff("n", ora1, ora2) & " minuti"
msgbox Int(DateDiff("s", ora1, ora2) / 3600) & " ore"
msgbox Format(Int(DateDiff("s", ora1, ora2) / 3600), "00") & ":" & Format(DateDiff("n", ora1, ora2) Mod 60, "00") & "  ora e minuti"
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 16/Ago/2011 at 11:53

Funzione n.068 Conversione di numeri dal sistema americano

§USA_ITA_ConversioneNumero
Sub
Varie
Luciano
§Conversione di numeri dal sistema americano che prevede la  "," al contrario di quello europeo che prevede il "."  e viceversa
http://www.itcgcalamandrei.it/spazio_docenti/ragazzoni/clil/economia%20aziendale/pdf/reading%20numbers.pdf - http://www.itcgcalamandrei.it/spazio_docenti/ragazzoni/clil/ economia%20aziendale/pdf/reading%20numbers.pdf §
valore1
7,000.654
valore2
8.4
valore3
9

 


§Public Sub USA_ITA_ConversioneNumero(Valore1, Valore2, Valore3)
'cancellare la virgola
'sostituire il . Con la virgola
'convertire in single
'arrotondare a due cifre
'I parametri in questa maschera sono sempre di tipo string
'Per adattare la funzione al di fuori di questa applicazione, convertire inizialmente i dati in string
        Valore1 = Replace(Valore1, ",", "")
        Valore1 = Replace(Valore1, ".", ",")
        Valore1 = Round(CSng(Valore1), 2)
        Valore1 = Round(Valore1, 2)
        Valore2 = Replace(Valore2, ",", "")
        Valore2 = Replace(Valore2, ".", ",")
        Valore2 = Round(CSng(Valore2), 2)
        Valore2 = Round(Valore2, 2)
        Valore3 = Replace(Valore3, ",", "")
        Valore3 = Replace(Valore3, ".", ",")
        Valore3 = Round(CSng(Valore3), 2)
        Valore3 = Round(Valore3, 2)
       MsgBox Valore1 & "      " & Valore2 & "      " & Valore3
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 21/Ago/2011 at 20:22

Funzione n.069 Legge per intero un file di testo

§LeggiFileTesto
Sub
FileCartelle
Luciano
§Legge per intero un file di testo.§
Nomefile
menù
Percorso
Application.CurrentProject.Path

 

 


§Public Sub LeggiFileTesto(Nomefile, Percorso)
Dim testo, riga   As String
If Percorso = "Application.CurrentProject.Path" Then
  Nomefile = Application.CurrentProject.Path & "\" & Nomefile & ".txt"
Else
  Nomefile = Percorso & "\" & Nomefile & ".txt"
  End If
Open Nomefile For Input As #1
      Do Until EOF(1)
          Input #1, riga
          testo = testo & riga & vbNewLine
      Loop
Close #1
 MsgBox testo
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 23/Ago/2011 at 10:49

Funzione n.070 Legge l'output dell'itinerario di maps.

§ItinerarioGoogleMapsOutput
Sub
Varie
Luciano
§Legge l'output dell'itinerario di maps.
Premessa. Scaricare e salvare come file di testo un itinerario nella cartella del programma.§
Nomefile
da Siracusa SR a Gela CL - Google Maps
Percorso
Application.CurrentProject.Path

 

 


§Public Sub ItinerarioGoogleMapsOutput(Nomefile, Percorso)
Dim testo, riga   As String: Dim i, fine, partenza As Integer
If Percorso = "Application.CurrentProject.Path" Then
  Nomefile = Application.CurrentProject.Path & "\" & Nomefile & ".txt"
Else
  Nomefile = Percorso & "\" & Nomefile & ".txt"
End If
 Open Nomefile For Input As #1          'legge solo la prima riga: partenza destinazione
 Input #1, riga
       If InStr(riga, " -") Then
             MsgBox Left(riga, InStr(riga, " -"))
       Else
             MsgBox Right(riga, Len(riga) - 3)
       End If
 Close #1
 Open Nomefile For Input As #1      'scorre il file per cercare la distanza e il costo carburante
      Do Until EOF(1)
          Input #1, riga
          If InStr(riga, "Percorsi suggeriti") > 0 Then
           MsgBox Right(riga, Len(riga) - 18)
          End If
          If InStr(riga, "Costo carburante ") > 0 Then
             MsgBox "carburante stim.: € " & Right(riga, Len(riga) - InStr(riga, Chr(172)))
          End If
      Loop
Close #1
Open Nomefile For Input As #1                   'Memorizza il file di testo in una variabile
      Do Until EOF(1)
         If Not EOF(1) Then Input #1, riga
          testo = testo & riga & vbNewLine
      Loop
Close #1
For i = 1 To 200                       'ricerca l'elenco numerico da 1. a  x. memorizza nella variabile riga
'il testo compreso fra un numero con punto e il seguente numero con punto;
    If InStr(testo, i & ". ") Then
        partenza = InStr(testo, i & ". ")
        testo = Mid(testo, InStr(testo, i & ". "))  'Taglia il testo della riga trovata'
    End If
   
    If InStr(testo, i + 1 & ". ") Then
        fine = InStr(testo, i + 1 & ". ")
        riga = Mid(testo, 1, fine - 3)
        MsgBox riga
    Else
       fine = InStr(testo, Chr(10)) 'se il numero seguente non esiste significa che siamo alla fine delle righe, ricerchiamo come delimitatore inferiore il primo invio
       riga = Mid(testo, 1, fine)    ' memorizza il testo in riga fino al primo invio
       testo = Mid(testo, InStr(testo, Chr(10))) 'Taglia il testo della riga trovata'
       riga = riga & " " & Mid(testo, 2, InStr(testo, "m")) 'aggiunge alla riga il testo fino alla lettera m di metri o km
       MsgBox riga: Exit Sub
    End If
Next i

End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 24/Ago/2011 at 08:44

Funzione n.071 Funzione Split

§SplitFunzione
Sub
Varie
VediCodice
§Funzione Split
Split() divide una stringa in un Array di stringa; Limite ( -1; 1; 2; 3)§
Stringa
Luca<tr>Ruggiero<tr>Napoli
Delimitatore
<tr>
Limite
-1

 


§Public Sub SplitFunzione(Stringa, Delimitatore, Limite)
'da http://www.mrwebmaster.it/visual-basic/guide/gestione-stringhe_170.html - http://www.mrwebmaster.it/visual-basic/guide/gestione-string he_170.html
Dim Risultato  As String
Dim s() As String
Dim i As Integer
   i = 0
    s = Split(Stringa, Delimitatore, Limite)
    For i = 0 To UBound(s)
        Risultato = Risultato & s(i) & vbCrLf
    Next
    MsgBox Risultato
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 24/Ago/2011 at 11:08

Funzione n.072 Esempio di matrice

§Matrice
Sub
Varie
VediCodice
§Esempio di matrice
la funzione replace sostituisce per ogni occorrenza di stringa la Casistica interessata§
Stringa
Via Piazza P.le

 

 

 


§Public Sub Matrice(Stringa)
'http://forum.masterdrive.it/ms-office-access-vba-23/access- estrazione-dati-stringa-34654/
Dim Casistica(1 To 3) As String
Dim Caso
Casistica(1) = "VIA"
Casistica(2) = "Piazza"
Casistica(3) = "P.le"
For Each Caso In Casistiche
    MsgBox Replace(Stringa, Caso, "", , , vbTextCompare)
Next Caso
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 21/Set/2011 at 11:13

Funzione n.073 Ripristino di numero ordinale conseguitivo

§RipristinaPosto
Sub
Tabella
Luciano
§Ripristina i numeri conseguitivi eliminati o mai creati, fino al numero massimo presente nel campo "Posto".
Per tipi di dati numerico non contatore.
La funzione agisce su una tabella di nome "tabella3" con un campo numerico di nome "Posto", che bisogna preventivamente creare nel db.
http://www.ialweb.it/forum/forum_posts.asp?TID=15198425&PN=1&TPN=1" rel="nofollow - http://www.ialweb.it/forum/forum_posts.asp?TID=15198425&PN=1&TPN=1 §
Tabella
tabella3
Campo
Posto

 

 


§Public Sub RipristinaPosto(Tabella, Campo)
Dim rst As ADODB.Recordset
Dim Trovato, i, Massimo As Integer
Set rst = New ADODB.Recordset
Massimo = DMax(Campo, Tabella)
For i = 1 To Massimo
    Trovato = DCount(Campo, Tabella, Campo & "= " & i & "")
    If Trovato = 0 Then
        rst.Open "SELECT posto from " & Tabella & " ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
             rst.AddNew
             rst.Fields(0) = i
             rst.Update
        rst.Close
    End If
Next i
DoCmd.OpenTable Tabella
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 20/Ott/2011 at 10:58

Funzione n.074 Valcolo Pasqua e Pasquetta

§Pasquetta1
Sub
Data e ora
VediCodice
§Calcola Pasqua e pasquetta per l'anno dato§
Anno
2012

 

 

 


§Public Sub Pasquetta1(Anno) 'da http://forum.masterdrive.it/ms-office-access-vba-23/gorni-festivi-17755/ - http://forum.masterdrive.it/ms-office-access-vba-23/gorni-fe stivi-17755/ modifiche mie
Dim Giorno, a, b, c, d, f, MesePasqua As Integer
Dim PasquaStringa As String
Dim PasquettaData As Date
Anno = CInt(Anno)
a = Anno Mod 19
b = Anno Mod 4
c = Anno Mod 7
d = (19 * a + 24) Mod 30
f = 0
If Anno < 2500 Then f = 3
If Anno < 2300 Then f = 2
If Anno < 2200 Then f = 1
If Anno < 2100 Then f = 0
If Anno < 1900 Then f = 6
If Anno < 1800 Then f = 5
If Anno < 1700 Then f = 4
    Giorno = (2 * b + 4 * c + 6 * d + 5 + f) Mod 7
    Giorno = 22 + d + Giorno
MesePasqua = 3
If Giorno > 31 Then
    MesePasqua = 4
    Giorno = Giorno - 31
End If
PasquaStringa = CStr(Giorno) & "/" & Format(MesePasqua, "00") & "/" & Anno
PasquettaData = CDate(PasquaStringa) + 1 'conversione in data per approntare la somma
MsgBox ("Pasqua anno " & Anno & " : " & PasquaStringa & vbCrLf & "Pasquetta anno " & Anno & " : " & PasquettaData)
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 20/Ott/2011 at 11:13

Funzione n.075 Calcolo Pasquetta

§Pasquetta2
Funzione
Data e ora
VediCodice
§Calcolo Pasquetta§
Anno
2012

 

 

 


§Public Function Pasquetta2(anno) As Date 'da http://www.ialweb.it/forum/forum_posts.asp?TID=5559062&KW=pasqua - http://www.ialweb.it/forum/forum_posts.asp?TID=5559062&K W=pasqua
   Dim d As Integer
   d = (((255 - 11 * (anno Mod 19)) - 21) Mod 30) + 21
   Pasquetta2 = DateSerial(anno, 3, 1) + d + (d > 48) + 6 - _
   ((anno + anno \ 4 + d + (d > 48) + 1) Mod 7) + 1
MsgBox Pasquetta2
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 14/Nov/2011 at 17:03

Funzione n.076 Gestione di una coda

§RuotaOrdine
Sub
Tabella
Luciano
§Principio della coda in cui il primo elemento della fila esce, tutti gli altri avanzano di un posto e quello uscito si rimette in coda.
Alla tabella3 aggiungere un campo di nome "ordine" dal valore uguale a quello del campo posto.§

 

 

 

 


§Public Sub RuotaOrdine()
Dim Massimo, Primo As Integer
Dim rstWrite As ADODB.Recordset
Dim rstRead As ADODB.Recordset
Set rstRead = New ADODB.Recordset
Set rstWrite = New ADODB.Recordset
Massimo = DMax("ordine", "Tabella3")
rstRead.Open "SELECT ordine FROM Tabella3 order by ordine;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      While Not rstRead.EOF
        rstWrite.Open "update Tabella3 set ordine=" & rstRead.Fields(0) - 1 & " where  ordine=" & rstRead.Fields(0) & "  ;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        rstRead.MoveNext
      Wend
rstRead.Close
rstWrite.Open "update Tabella3 set ordine=" & Massimo & " where  ordine=0  ;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rstRead.Open "SELECT posto FROM Tabella3 order by ordine;", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Primo = DFirst("posto", "tabella3")
MsgBox "L'ordine è stato ruotato. Adesso al primo posto c'è il " & rstRead!posto
rstRead.Close
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 17/Nov/2011 at 13:24

 Funzione n.077 Ricava il percorso del DbBe

§PercorsoDbBe
Funzione
Database
65.Franco
§ REPERIMENTO PERCORSO  DB DI UNA TABELLA COLLEGATA
http://www.ialweb.it/forum/forum_posts.asp?TID=15952232&PN=1" rel="nofollow - http://www.ialweb.it/forum/forum_posts.asp?TID=15952232&PN=1
(il database deve essere diviso)§
NomeTabella
autori

 

 

 


§Public Function PercorsoDbBe(ByVal NomeTabella As String) As Variant
' REPERIMENTO FOLDER DB DI UNA TABELLA COLLEGATA
Dim varGet As Variant
' inizializza il valore della funzione
PercorsoDbBe = False
' ricava il percorso
varGet = DLookup("Database", "MSysObjects", "Name='" & NomeTabella & "'")
If Not IsNull(varGet) And Trim(varGet) <> Space(0) Then PercorsoDbBe = Left(varGet, InStrRev(varGet, "\") - 1)
MsgBox PercorsoDbBe
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 09/Dic/2011 at 17:49
http://www.ialweb.it/forum/uploads/18870/Appunti.rar" rel="nofollow - uploads/18870/Appunti.rar
http://www.ialweb.it/forum/uploads/18870/Appunti_2.rar" rel="nofollow - uploads/18870/Appunti_2.rar
Da tempo sono sepolti nel mio hard disk alcuni file sul database relazionale.

Non so se il mio professore li trovò sul web o li creò lui stesso, ma sono sicuro che non troverà niente da ridire se li condivido con voi.

I questa sezione possiamo mettere file simili, oppure link a tutorial che trattino access e i database.

Ciao



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 26/Gen/2012 at 11:49

Funzione n.078 Cancellazione di una chiave di registro

§CancellaRegistro
Sub
Registro
Luciano
§Cancella  la chiave di registro precedentemente creata dalla funzione 004 ScriveRegistro.
La prima istruzione cancella la sottocartella e la seconda la cartella principale.
L'istruzione commentata cancella solo la chiave e il suo valore.§
Cartella
c1
Sottocartella
c4
NomeChiave
Nuova

 


§Public Function CancellaRegistro(Cartella, Sottocartella, NomeChiave)
Dim fso, objOS, WshShell  As Object
Dim Registro As String
Set WshShell = CreateObject("Wscript.Shell")
On Error GoTo ESCI
'WshShell.RegDelete "HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\" & "\" & NomeChiave & "
WshShell.RegDelete "HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\"
WshShell.RegDelete "HKCU\Software\Microsoft\" & Cartella & "\"
MsgBox "Cancellazione chiave andata a buon fine"
Exit Function
ESCI:
MsgBox "Cancellazione non effettuata"
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 03/Feb/2012 at 10:07

Funzione n.079 Lettura delle variabili ambiente

§VariabiliAmbiente
Funzione
Win32
Luciano
§Legge le variabili ambiente.
La lettura avviene per gruppi di dieci variabili per evitare che il messaggio sia troppo lungo e venca troncato.
La funzione restituisce anche il valore di una singola variabile ambiente da scegliere tramite il valore di" numero"§
Numero
7

 

 

 


§Public Function VariabiliAmbiente(Numero)
Dim strEnviron, Stringa As String
Dim Indx, pos, Ultimavariabile As Integer
Indx = 1
Ultimavariabile = 0
strEnviron = Environ(Indx)
   Do While strEnviron <> ""
         Ultimavariabile = Ultimavariabile + 1
        strEnviron = Environ(Ultimavariabile)
       
   Loop
Ultimavariabile = Ultimavariabile - 1
strEnviron = Environ(Indx)
For Indx = 1 To Ultimavariabile
   strEnviron = Environ(Indx)
   pos = InStr(1, strEnviron, "=")
   Stringa = Stringa & vbCrLf & Indx & " : Environ(""" & Left(strEnviron, pos - 1) & """) = " & _
   Right(strEnviron, Len(strEnviron) - pos)
   If Indx Mod 10 = 0 Or Indx = Ultimavariabile Then MsgBox Stringa: Stringa = ""
  
Next Indx
strEnviron = Environ(CInt(Numero))
pos = InStr(1, strEnviron, "=")
Stringa = Numero & " :(""" & Left(strEnviron, pos - 1) & """) = Right(strEnviron, Len(strEnviron) - pos)"
MsgBox "La variabile numero " & Numero & " è " & strEnviron
VariabiliAmbiente = Right(strEnviron, Len(strEnviron) - pos)
MsgBox VariabiliAmbiente
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 07/Feb/2012 at 11:42
Funzione n.080 Conta i campi di una tabella
§ContaCampi
Funzione
Tabella
Luciano
§Conta i campi di una tabella§
Tabella
funzioni

 

 

 


§Public Function ContaCampi(Tabella)
Dim rs As New ADODB.Recordset
Dim fld As ADODB.Field
rs.Open "select * from " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set flds = rs.Fields
ContaCampi = flds.Count
MsgBox "Numero Campi= " & ContaCampi
rs.Close
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 07/Feb/2012 at 13:09
Funzione n.081 Alcune proprietà dei campi di una tabella
§ProprietàCampi
Sub
Tabella
Luciano
§Alcune proprietà dei campi di una tabella§
Tabella
funzioni

 

 

 


§Public Sub ProprietàCampi(Tabella)
Dim rs As New ADODB.Recordset
Dim fld As ADODB.Field
Dim ContaCampi As Integer
Dim Proprietà As String
rs.Open "select * from " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Set flds = rs.Fields
i = 0
ContaCampi = 0
For Each fld In flds
    Proprietà = Proprietà & "NomeCampo: " & fld.Name & " Tipo: " & fld.Type & " Valore: " & fld.Type & vbCrLf
    ContaCampi = ContaCampi + 1
Next
MsgBox Proprietà & "Numero Campi= " & ContaCampi
MsgBox "Numero Campi= " & flds.Count
rs.Close
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 28/Feb/2012 at 10:06
Funzione n.082 Confronto fra due stringhe

§ConfrontaStringhe
Funzione
Testo
Luciano
§Verifica se due stringhe sono della stessa lunghezza.
Se hanno la stessa lunghezza, le confronta per verificare se hanno gli stessi caratteri.
Se sono differenti, notifica posizione,  carattere  e codice ascii  della prima occorrenza.§
Stringa1
Ti voglio bene
Stringa2
Ti voglio bense
 
 

§Public Function ConfrontaStringhe(Stringa1 As String, Stringa2 As String) As Boolean
Dim Lunghezza, i As Long
ConfrontaStringhe = True
Dim Motivo As String
If Len(Stringa1) <> Len(Stringa2) Then Motivo = "per diversa lunghezza ": ConfrontaStringhe = False: GoTo Risultato
Lunghezza = Len(Stringa1)
    For i = 1 To Lunghezza
        If Mid(Stringa1, i, 1) <> Mid(Stringa2, i, 1) Then
            Motivo = " per differenza trovata alla posizione " & i & "." & vbCrLf & "La seconda stringa ha il carattere  """ & Mid(Stringa2, i, 1) & """ ascii (" & Asc(Mid(Stringa2, i, 1)) & ") differente dal carattere  """ & Mid(Stringa1, i, 1) & """ ascii ( " & Asc(Mid(Stringa1, i, 1)) & ") della prima stringa"
            ConfrontaStringhe = False: GoTo Risultato
        End If
    Next i
Risultato:
If ConfrontaStringhe Then
    msgbox ConfrontaStringhe & " Stringhe uguali " & Motivo
Else
    msgbox ConfrontaStringhe & " Stringhe diverse " & Motivo
End If
End Function§


-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 05/Mar/2012 at 16:41
Funzione n.083 Backup del presente db
§BackUp
Sub
FileCartelle
Luciano
§crea una copia di backup nella stessa cartella con lo stesso nome e la data odierna§

 

 

 

 


§Public Sub BackUp()
Dim fso As Object
Dim risp As Integer
risp = MsgBox("vuoi aggiornare la copia del client?", 4 + 32, "SALVA DB")
If risp = vbYes Then
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFile Application.CurrentProject.Path & "\" & CurrentProject.Name, Application.CurrentProject.Path & "\" & CurrentProject.Name & Format(Date, "dd-mm-yyyy") & ".mdb"
    Set fso = Nothing
    MsgBox "Fatto"
Else
    MsgBox "Azione annullata"
End If
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 07/Mar/2012 at 12:40
Funzione n.084 Importa un foglio di excel
§ImportFromExcel
Sub
Excel
Luciano
§Importare  Un foglio  di excel in una tabella.§
NomeFile
nomefile732012
Tabella
TabImportExcel
 
 

§Public Sub ImportFromExcel(NomeFile, Tabella)
On Error GoTo Err_Close
DoCmd.RunSQL "Delete * from tabella1"
   DoCmd.TransferSpreadsheet transfertype:=acImport, _
      spreadsheettype:=acSpreadsheetTypeExcel9, _
      tablename:="" & Tabella & "", _
      FileName:=Application.CurrentProject.Path & "\" & NomeFile & ".xls", _
      hasfieldnames:=True
Exit_here:
     Exit Sub
Err_Close:
   msgbox "Errore " & Str(Err.Number) & Chr(13) & Err.Description
   Resume Exit_here
End Sub§


-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 08/Mar/2012 at 12:43
Funzione n.085 Salva col nome e formato.
§SalvaDocumentoNomeFormato
Sub
FileCartelle
Luciano
§Salva un documento  come Documento / PaginaWeb / Modello/ Testo
iL file deve essere presente nalla stessa directory del db e quivi viene salvato.§
NomeFile
canti
NuovoNome
CantiCopia
NuovoFormato
Testo

 


§Public Sub SalvaDocumentoNomeFormato(NomeFile, NuovoNome, Formato)
'early Binding
Dim objWord As Word.Application 'definisce objWord come nuova applicazione Word
Set objWord = New Word.Application
Dim objDoc As Word.Document
'apre un documento Word esistente
Set objDoc = objWord.Documents.Open(Application.CurrentProject.Path & "\" & NomeFile & ".doc")
Select Case Formato
    Case "Documento"
        objDoc.SaveAs FileName:=Application.CurrentProject.Path & "\" & NuovoNome & ".doc", FileFormat:=wdFormatDocument
    Case "PaginaWeb"
        objDoc.SaveAs FileName:=Application.CurrentProject.Path & "\" & NuovoNome & ".htm", FileFormat:=wdFormatHTML
    Case "Modello"
        objDoc.SaveAs FileName:=Application.CurrentProject.Path & "\" & NuovoNome & ".doc", FileFormat:=wdFormatTemplate
    Case "Testo"
        objDoc.SaveAs FileName:=Application.CurrentProject.Path & "\" & NuovoNome & ".txt", FileFormat:=wdFormatText
End Select
objDoc.Close: Set objDoc = Nothing: objWord.Quit: Set objWord = Nothing
'wdFormatDocument  Salva come documento Word.
'wdFormatDOSText
'wdFormatHTML  Salva testo e formattazione con i tag HTML in modo che il documento che ne risulta possa essere visualizzato con un browser Web.
'wdFormatRTF  Salva tutta la formattazione. Converte la formattazione in istruzioni che altri programmi, inclusi i programmi compatibili con Microsoft, possano leggere e interpretare.
'wdFormatTemplate  Salva come modello Word.
'wdFormatText  Salva il testo senza formattazione.
'wdFormatTextLineBreaks  No formattazione.  Utilizzare questo formato per mantenere le interruzioni di riga, ad esempio, quando si trasferiscono documenti a un sistema di posta elettronica.
'wdFormatDOSTextLineBreaks
'wdFormatUnicodeText
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 08/Mar/2012 at 16:25

Funzione n.086  Funzioni sulle date

§DataOraOggi
Sub
Data e ora
Luciano
§Funzioni sulle date:
Data odierna, ora esatta, Primo giorno di x  mesi fa; ultimo giorno del mese fra x mesi.§
Mese
3

 

 

 


§Public Sub DataOraOggi(Mese)
MsgBox "La data odierna è " & Date & vbCrLf & "L'anno in corso è il: " & Year(Date) & vbCrLf & "è il " & Month(Date) & "° mese (" & MonthName(Month(Date)) & " )" & vbCrLf & "è giorno: " & Day(Date) & " (" & WeekdayName(Weekday(Date), , 1) & " )" & vbCrLf & "Sono le: ore  " & Hour(Time) & " e " & Minute(Time) & " minuti e " & Second(Time) & " secondi" & vbCrLf & "Data e ora completa: " & Now()
MsgBox "Il primo giorno di " & Mese &   " mesi fa era il " & DateSerial(Year(Date), Month(Date) - 11, 1)
MsgBox "L'ultimo giorno del "& Mese & "°  mese prossimo sarà  il " & DateSerial(Year(Date), Month(Date) + Mese, 0)
End Sub§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Luciano
Date Posted: 08/Mar/2012 at 17:13

Funzione n.087  Ultimo giorno lavorativo

§UltimoGiornoLavorativo
Sub
Data e ora
VediCodice
§Estrae l'ultimo giorno lavorativo Lun-Ven. del mese della data inserita§
Data
12/03/2012

 

 

 


§Public Function UltimoGiornoLavorativo(Data) As Variant
'ftp://ftp.microsoft.com/softlib/mslfiles/neatcd97.exe
Dim Data2 As Date
    Data2 = DateSerial(Year(Data), Month(Data) + 1, 0)
    Do While Weekday(Data2) = 1 Or Weekday(Data2) = 7
      Data2 = Data2 - 1
    Loop
    UltimoGiornoLavorativo = Data2
MsgBox UltimoGiornoLavorativo
End Function§



-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: Enzodb
Date Posted: 11/Mar/2012 at 11:33
luciano buon giorno, ascoltami ho provato a scaricare il file ma mi dà problema con l'immagine, ho provato a scaricvare l'immagine mi si apre la pagina web Frre File Hosting ma mi consente solo l'upload e non il download.....
ti ringrazio..



Posted By: Luciano
Date Posted: 11/Mar/2012 at 15:30

Pubblico una seconda versione aggiornata con tutte le funzioni pubblicate.

Alcune funzioni sono ancora da completare, lo stesso db è ancora da migliorare.
http://www.filehosting.org/file/details/320201/Catalogo_funzioni2.rar" rel="nofollow - http://www.filehosting.org/file/details/320201/Catalogo_funzioni2.rar
 
 
ciao


-------------
Dio è Amore e Pace
http://www.ialweb.it/forum/forum_posts.asp?TID=14402400&title=catalogo-delle-funzioni-e-risorse-utili" rel="nofollow - Catalogo funzioni


Posted By: almorel
Date Posted: 11/Mar/2012 at 17:09
Ottimo !Te lo stavo per chiedere.
Grazie.
Alberto



Print Page | Close Window

Forum Software by Web Wiz Forums® version 10.17 - http://www.webwizforums.com
Copyright ©2001-2013 Web Wiz Ltd. - http://www.webwiz.co.uk