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


REGISTRATEVI su IALWeb forum!

Topic ClosedCatalogo delle funzioni, articoli e risorse utili

 Post Reply Post Reply Page  <1 1516171819>
Author
Message
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 18/Gen/2013 at 20:04
Funzione 147 Ripristina le date consecutive eliminate o mai create
§RipristinaData
Sub
Tabella
Luciano
§Ripristina le date consecutive eliminate o mai create, fino al alla data più recente presente nel campo "Data " di tipo Date.
La funzione agisce su una tabella di nome "tabella2"  che bisogna preventivamente creare nel db.§
Tabella
tabella2
Campo
Data
 
 

§Public Sub RipristinaData(Tabella As String, Campo As String)
Dim rst As ADODB.Recordset
Dim Trovato As Variant
Dim i, Periodo As Integer
Dim UltimaData, PrimaData, Data As Date
Set rst = New ADODB.Recordset
UltimaData = DMax(Campo, Tabella) 'UltimaData e PrimaData sono sicuramente presenti
PrimaData = DMin(Campo, Tabella)
Periodo = DateDiff("d", PrimaData, UltimaData)
Data = CDate(PrimaData)
Data = PrimaData
For i = 1 To Periodo
Data = CDate(PrimaData) + i
   Trovato = DLookup(Campo, Tabella, Campo & "=" & Format(Data, "\#yyyy\-mm\-dd\#"))
    If IsNull(Trovato) Then
        rst.Open "SELECT Data from " & Tabella & " ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
             rst.AddNew
             rst.Fields(0) = Data
             rst.Update
        rst.Close
    End If
Next i
DoCmd.OpenTable Tabella
End Sub§


Edited by Luciano - 18/Gen/2013 at 22:40
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Sponsored Links


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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 18/Gen/2013 at 21:10
Funzione 148 Ritorna le date consecutive mancanti
§DateMancanti
Funzione
Tabella
Luciano
§Ritorna le date consecutive eliminate o mai create, fino al alla data più recente presente nel campo "Data " di tipo Date.
La funzione agisce su una tabella di nome "tabella2"  che bisogna preventivamente creare nel db.§
Tabella
tabella2
Campo
Data

 

 


§Public Function DateMancanti(Tabella As String, Campo As String) As String
Dim Trovato As Variant
Dim i, Periodo As Integer
Dim UltimaData, PrimaData, Data As Date
UltimaData = DMax(Campo, Tabella) 'UltimaData e PrimaData sono sicuramente presenti
PrimaData = DMin(Campo, Tabella)
Periodo = DateDiff("d", PrimaData, UltimaData)
Data = CDate(PrimaData)
Data = PrimaData
DateMancanti = ""
For i = 1 To Periodo
Data = CDate(PrimaData) + i
   Trovato = DLookup(Campo, Tabella, Campo & "=" & Format(Data, "\#yyyy\-mm\-dd\#"))
    If IsNull(Trovato) Then
        DateMancanti = DateMancanti & vbCrLf & Data
    End If
Next i
msgbox DateMancanti
End Function§

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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 19/Gen/2013 at 08:19
Funzione 149  Elenco variabili ambiente
§VariabiliEnviron
Sub
Win32
Luciano
§Elenco delle variabili ambiente. Richiamabili con argomento numerico. Possibile anche la chiamata per nome variabile.§

 

 

 

 


§Public Sub VariabiliEnviron()
Dim EnvString, Testo, sinistra As String       ' Dichiara le variabili.
Dim i As Integer
For i = 1 To 255
   If VBA.Environ(i) = "" Then Exit For
   Testo = Testo & " " & i & "  " & VBA.Environ(i) & vbCrLf
Next i
'Il codice seguente serve solo a riportare tutto il messaggio spezzandolo in parti
'di 1023 caratteri massimo consentito da MSGBOX
If Len(Testo) > 1023 Then
      While Len(Testo) > 1023
        sinistra = Left(Testo, 1023)
        For i = 1023 To 1 Step -1
            If Mid(sinistra, i, 1) = " " Then
                sinistra = Left(sinistra, i)
                Exit For
            End If
        Next i
        Testo = Right(Testo, Len(Testo) - i)
        msgbox sinistra
      Wend
 End If
 If Len(Testo) > 0 Then msgbox Testo
End Sub§

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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 19/Gen/2013 at 13:20
Funzione 150 Legge una chiave di un registro
§LeggeRegistro
Funzione
Registro
Luciano
§Lettura della chiave di un registro§
Cartella
c1
Sottocartella
c4
NomeChiave
Nuova

 


§Public Function LeggeRegistro(Cartella, Sottocartella, NomeChiave)
'HKEY_CURRENT_USER    HKCU
'HKEY_LOCAL_MACHINE   HKLM
'HKEY_CLASSES_ROOT    HKCR
'HKEY_USERS           HKEY_USERS
'HKEY_CURRENT_CONFIG  HKEY_CURRENT_CONFIG
On Error GoTo Err_Close
Dim User   As String
Dim fso, objOS, WshShell  As Object
Dim Registro As String
User = Environ(10)
Set WshShell = CreateObject("Wscript.Shell")
'Cerca di leggere il valore della chiave, se non ci riesce genera errore
Registro = WshShell.RegRead("HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\" & NomeChiave & "")
'WshShell.RegDelete "HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\"
'WshShell.RegDelete "HKCU\Software\Microsoft\" & Cartella & "\"
msgbox User & "     Valore chiave= " & Registro
Exit_here:
Set fso = Nothing: Set objOS = Nothing: Set WshShell = Nothing:
     Exit Function
Err_Close:
      msgbox "Errore " & Str(Err.Number) & " generato da " & Err.Source & Chr(13) & Err.Description
   Resume Exit_here
End Function§

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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 20/Gen/2013 at 09:26
http://digilander.libero.it/salvatore19576/Catalogo%20funzioniV7.rar
Rendo disponibile l'aggiornamento del db che contiene tutte le funzioni finora pubblicate.
Adesso è possibile richiamare un report, e  duplicare una funzione con relativo codice
 
ciao
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 21/Gen/2013 at 11:35

FUNZIONE 151 Modifica una chiave di registro

§ModificaRegistro
Funzione
Registro
Luciano
§Modifica il valore di una chiave di registro§
Cartella
c1
Sottocartella
c4
NomeChiave
Nuova
ValoreChiave
ChiaveAmministratoreunico7


§Public Function ModificaRegistro(Cartella, Sottocartella, NomeChiave, ValoreChiave)
Dim fso, objOS, WshShell  As Object
Dim Registro As String
Set WshShell = CreateObject("Wscript.Shell")
On Error GoTo Err_Close:
WshShell.RegDelete "HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\" & "\" & NomeChiave & ""
WshShell.RegWrite "HKCU\Software\Microsoft\" & Cartella & "\" & Sottocartella & "\" & NomeChiave & "", ValoreChiave, "REG_SZ"
msgbox "Modifica chiave andata a buon fine"
Exit_here:
Set fso = Nothing: Set objOS = Nothing: Set WshShell = Nothing:
     Exit Function
Err_Close:
If Err.Number = -2147024894 Then
   msgbox "Errore " & Str(Err.Number) & " generato da " & Err.Source & Chr(13) & Err.Description
   Resume Exit_here
End If
End Function§

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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 22/Gen/2013 at 11:51

Fra le risorse utili c'è sempre il sito di Greg http://www.infogreg.it/riservato/default.asp

Per una visione immediata pubblico l'elenco delle demo disponibili:
1 Demo che permette di bloccare manualmente una maschera in sola visualizzazione e poterla sbloccare tramite password. La maschera dopo 1 minuto di inoperosità si blocca automaticamente . 
2 Demo che permette in una maschera fogli dati di evidenziare alternativamente tutti record 
3 Demo che descrive un metodo di autenticazione utente tramite userid e password ** versione multi form ** 
4 Demo che descrive un metodo di autenticazione utente tramite userid e password ** versione 1 form 
5 Demo per sincronizzare combo a cascata associate a due campi diversi della stessa tabella 
6 Demo per sincronizzare combo a cascata associate allo stesso campo della stessa tabella 
7 Demo di vari metodi di ricerca e/o filtri metodo1 metodo2 metodo3 metodo4 metodo5 metodo6 metodo7 metodo8
8 Demo per la gestione calendario 
9 Routine che spiega la procedura per l'uso di DLOOKUP ---- con esempi
10 Routine per fare maiuscolo il testo o la sola prima lettera
11 Routine per l'apertura di due o più report e/o maschere tramite unico pulsante 
12 Demo per abilitare / disabilitare caselle di testo in una maschera
13 Demo per bloccare e sbloccare i campi di una maschera tramite pulsante. 
14 Demo per stampare con richiesta della data 
15 Routine su click di pulsante per effettuare il backup dei dati in maniera automatica
16 Routine su chiusura form per effettuare il backup dei dati con richiesta di conferma si/no
17 Demo per l'animazione su una maschera 
18 Demo per richiamare un record da una sottomaschera o da una casella di riepilogo
19 Demo per azzerare un contatore di una tabella senza compattare 
20 Demo per la generazione di barcode
21 Demo per il calcolo del codice fiscale
22 Demo per interagire su un file excel (valido per office 2000 o superiore) - (permette di scrivere, importare, ecc. da excel)
23 Demo per visualizzare un campo secondo il valore di un'altro campo
24 Routine per abilitare / disabilitare messaggi di query 
25 Routine che permette di aprire una form in bianco e pronta per l'inserimento di un nuovo record - Demo 
26 Routine che permette di aprire una form in bianco posizionare il cursore su un determinato campo 
27 Routine per bloccare il record tramite il popolamento di un campo 
28 Routine per cambiare colore ad una combo oltre 3 risultati - in alternativa alla formattazione condizionale
29 Routine per avere un campo testo illuminato ad intermittenza
30 Routine per un contatore automatico personalizzato
31 Routine che descrive l'uso dell'IIF
32 Routine per selezionate l'apertura di molte maschere da una sola maschera 
33 Routine per estrarre da una query la settimana corrente
34 Routine per inserire in automatico nei box l'apertura della finestra (F4)
35 Routine per la formattazione colore oltre 3 campi
36 Routine per incrementare un campo numerico
37 Routine per ingrandire gli oggetti
38 Routine per aprire una maschera su richiesta di password
39 Routine per rendere una form di solo inserimento dati
40 Routine per cercare record per date tramite query o data fissa
41 Routine per salvare i dati modificati su richiesta
42 Routine per aprire 2 maschere o 2 report da un unico pulsante
43 Demo per calcolare i giorni tra due date
44 Demo per calcolare le ore di straordinari (specifica come sommare le ore anche oltre le 24) con istruzioni
45 Demo creata per la gestione di un Ambulatorio Cardiologico (versione base) da ampliare secondo le esigenze con istruzioni
46 Demo creata per la gestione di archiviare documenti in un database con istruzioni
47 Demo creata per rendere un report con le righe evidenziate
48 Demo che permette di aprire una maschera in sola visualizzazione e poter cercare con una casella combinata i record senza sbloccare la maschera. La maschera a riapertura si blocca automaticamente . 
49 Routine che permette di cancellare un record solo su richiesta di una password
50 Demo che spiega come spedire via email un report o una form 
51 Demo che spiega come spedire via email un report o una form 
52 Demo per calcolare i totali per mesi e per anno in una query 
53 Demo in cui viene indicato come registrare la data di creazione o di modifica dei records.. 
54 Demo per cercare in automatico l'indirizzo del BE in apertura dell'FE
55 Demo che spiega come inserire un'immagine
56 Demo che spiega come far aprire il database evidenziando nella maschera d'apertura l'ultimo record modificato
57 Demo che rileva il codice IP e il codice MAC ADDRESS 
58 Demo che specifica come evitare che un db venga copiato da un pc ad un'altro - Sfrutta il seriale dell'HHD 
59 Demo che spiega come suddividere automaticamente una stringa mettendo ogni parola in un campo (FUNZIONE SPLIT) 
60 Demo che spiega come far scorrere i record in modo automatico 
61 Demo che spiega come far scorrere i record tramite un bottone di arresto e riavvio 
62 Demo che spiega come reintegrare un ID perso 
63 Demo che spiega come ricavare un colore specifico da un codice o creando un codice 
64 Demo che spiega come stampare in un report SOLO i campi selezionati
65 Demo che spiega come l'utente può utilizzare per avere dei toni di colori più riposanti alla vista, oppure per assegnare ad ogni maschera un colore specifico in modo da potere essere individuate a colpo d'occhio con lo scroll del mouse 
66 Demo che richiede conferma se uno valori dei campi di una form sono stati cambiati. Salva i nuovi a conferma - ritorna al vecchio valore se non conferma.
67 Demo che spiega come proteggere un db pubblicato rendendolo inattivo ad una data prestabilita. Corredato di help 
68 Demo uguale alla demo 67 aggiornata con la cancellazione dei dati ad una data prestabilita
Corredato di help (vedi anche la demo n° 77) - vedi anche la n° 82
69 Demo come gestire un'anteprima immagine e riportarla in un report per realizzare la stampa della stessa. Corredato di help 
70 Codice che spiega come cancellare automaticamente un db da vb - correlato da file istruzioni (vedi anche demo al n° 78) 
71 Codice che spiega come ripristinare un contatore ID - correlato da file istruzioni 
72 Routine che spiega come azzerare un contatore e/o rinumerarlo senza compattare Metodo 2
73 Demo che recupera nomi delle tabelle presenti nel db remoto 
74 Routine per scrivere solo su un campo di una maschera
75 Routine per scrivere un valore in un campo secondo il valore di un'altro campo
76 Demo che spiega come acquisire da scanner e telecamera con inserimento file su più indirizzi - Con istruzioni 
77 Demo che spiega come distruggere secondo una scadenza (a richiesta) un db da vb - correlato da file istruzioni - vedi anche n° 68
78 Demo che spiega come sincronizzare due combox senza relazione
79 Demo che spiega come stampare delle etichette lasciando N campi vuoti e stampando N volte la stessa etichetta 
80 Demo che spiega come stampare delle etichette lasciando N campi vuoti 
81 demo fa' vedere come si agisce sul tempo dell'evento "su timer" 
82 demo che spiega come fare uno schedario: Inserendo un N° di rate e un importo genera in automatico le rate (importi per data). 
83 demo che da la possibilità di gestire le password di più utenti. Versione con help dettagliata e di facile comprensione. Facile da inserire ne proprio db. 
84 demo che da la possibilità di aprire un file PDF. Con Istruzioni
85 Demo per Gestire Seconda Tabella da Combo (nuovo record da combo "solo in elenco")
86 Demo: Una semplice function per ordinare un array ad una dimensione con la possibilità di scegliere il tipo di dati da ordinare (alfanumerici o numerici) e il tipo di ordinamento (Crescente o Decrescente)
87 Demo che serve per copiare un valore da un campo all'altro con un semplice click
88 Demo che serve per ricercare in una combobox in maniera sequenziale
89 Demo che spiega diversi metodi di controllo duplicati
90 Demo con casella combinata per ricerche avanzate
91 Demo che spiega come gestire i privilegi degli utenti 
92 Demo che spiega come sincronizzare dei filtri tipo combo a cascata - con ampia descrizione -
93 Demo che spiega come associare più tabelle ad una maschera - versione tramite con maschera classica e/o Multi Task
94 Demo che spiega l'utilizzo delle opzioni secondo del valore di una combobox
95 Lo scopo di questa demo è quello di dimostrare come poter semplicemente utilizzare le Api di Windows per stampare un qualsiasi tipo di documento reperito dai link di una tabella. 
96 Demo che spiega come controllare che l'inserimento della data iniziale sia inferiore alla data finale. Manuale
97 Demo che spiega come controllare che l'inserimento della data iniziale sia inferiore alla data finale. Con controllo calendario
98 Demo per Convertire un Numero da Cifre in Lettere.
99 Demo che spiega come duplicare un record.
100 Demo per gestire in molti modi la stampa delle etichette. Istruzioni 
101 Demo per la gestione di magazzini - 3 esempi
102 Demo per gestire le opzioni da form a sub-form
103 Demo che spiega come ad apertura db appaia un messaggio promemoria
104 Demo per leggere una pagina web e salvare link Hyperlink ed eseguire l’Upload dell’immagini in essa contenute 
105 Istruzioni per generare un menu a scelta rapida (tasto dx) per campo e/o per form
106 Demo per la gestione delle spese / bilancio familiare
107 La function restituisce una stringa in formato sql da utilizzare come condizione where che può essere utilizzata in più ambiti - con demo e istruzioni
108 La demo spiega come definire il posizionamento delle merci in un di un magazzino di stoccaggio (corridori, scaffali, posizioni,ecc)
109 La demo spiega come generare in automatico tanti record giornalieri come da periodo di date ( es: dal - al = n° gg)
110 La demo spiega come gestire in modo semplice e funzionale un conto corrente - Con Istruzioni
111 La demo spiega come inserire un nominativo in un archivio tramite il "non in elenco" in una combo - Con Istruzioni
112 La demo spiega come verranno selezionati i giorni compresi nel periodo e relativi al mese indicato partendo da una data.
113 La demo spiega come utilzzare access per ascoltare mp3
114 La demo spiega come da un mdb aprire un'altro mdb e/o mde
115 La demo spiega come avere degli avvisi sia visi che sonori *Istruzioni*
116 La demo è un esempio di maschera menu resa operativa da una password
117 Il codice è la routine che attiva lo scroll mouse nelle form di office 2007/2010
118 La demo spiega come mettere in ordine crescente in base alla priorità assegnata e conseguentemente anche in ordine di modifica del record
119 La routine con demo da la possibilità tramite vba di identificare un colore come variabile 
120 La demo spiega come gestire la grandezza delle maschere popup 
121 Demo che spiega come gestire tramite vba gli sfondi
122 Demo che spiega di poter emettere un messaggio mentre sono aperti in contemporanea più mdb e/o applicazioni varie
123 Demo per azzerare una singola tabella e/o tutte le tabelle senza compattare
124 Demo di una function che converte da ascii a code hex e viceversa...
125 Demo che spiega come ottenere la media di un certo numero di campi di un record utilizzando una propria funzione applicata in una Query di Selezione
126 Demo che spiega come bloccare lo scroll del mouse in apertura maschera. Per access 2000 o superiore.
127 la demo spiega come all'apertura del programma si visualizzi un messaggio informativo (in questo caso un compleanno) e dia la possibilità di mandare un'email.
128 la demo spiega come in base ad una selezione di un tipo ordine, viene generato un numero ordine di 7 cifre cosi composto AA+MM+XXX, dove al cambio di mese, XXX riparte da 0. In pratica il contatore si azzera al cambio mese e non al cambio anno. In allegato anche il report.
129 demo per esaminare il contenuto di una cartella ed aprire un file da un elenco posto in una listbox
130 La demo spiega come generare in automatico tanti record mensili come da richiesta con n campo numerico. (La stessa ma con record giornalieri è la n° 82 o la N° 109)
131 La demo spiega come tramite pulsante è possibile cambiare la visualizzazione da fogli dati in maschere continua.
132 La demo spiega come far interagire access con outlook. Inserisce una scadenza nel promemoria.
133 La demo spiega come da un report fare stampare un'immagine collegata - Metodo Willy
134 La demo spiega come da un report fare stampare un'immagine collegata - Metodo Almorel
135 La demo spiega come stampare un report specifico secondo varie selezioni 
136 La demo spiega come stampare un report in PDF anche in mancanza di Adobe
137 L'applicativo "Google Maps Utility" è appunto un programma di utilità che permette la visione delle mappe cartografiche attraverso Google Maps e sfrutta le funzionalità fornite per ottenere in percorso ed i dati ad essi correlati. Pertanto è possibile visualizzare mappe e cartine geografiche, calcolare itinerari stradali, percorsi e distanze chilometriche.
138 La demo spiega in modo pratico come fare l'input password (gli asterischi) in una finestra InputBox
139 La demo spiega in maniera pratica come ricollegare le tabelle da un FE ad BE tramite VBA
140 Il codice risolve il problema della somma fra più caselle di testo anche se una non ha valore e contiene #Null e/o #Errrore
141 La demo spiega come spedire email con allegati da outlook tramite access 
142 Il codice permette di verificare se il dato esiste ed eventualmente inserirlo previa conferma
143 La demo dimostra come fare per inserire una GIF Animata in una maschera. 
144 La demo Cifratore è un programma dilettantistico che permette la cifratura e la decifrature di testo sia inserito manualmente nell'apposita casella o proveniente da file di testo opportunamente caricato. CON HELP
145 La demo Calcolo IMU è un programma dilettantistico che permette di calcolare la tassa sugli immobili. E' possibile aggiornare le aliquote comune per comune - con report F24 da personalizzare ------------ (8_MB)
146 Il codice "duplica ultimo record" permette di duplicare l'ultimo record e di cambiare il valore in un campo . Il codice è stato scritto sia in ADO che in DAO.
147 La demo spiega come fare da una maschera inserire un solo record - CON HELP
148 Demo in Excel che spiega come far cambiare colore ad ogni parola nella stessa cella - DEMO SPECIALE -
149 La demo spiega come fare per visualizzare la quantità di record in una maschera . 
150 Lo scopo di questa demo è quello di indicare un metodo per tenere bloccata una Form di Immissione inibendo all'utente di poter scorrere i record sia in fase di INSERIMENTO che di AGGIORNAMENTO
151 La demo spiega come giustificare un testo in report
Dio è Amore e Pace
Catalogo funzioni
Back to Top
Luciano View Drop Down
Utente Onorario
Utente Onorario
Avatar

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 22/Gen/2013 at 13:16

FUNZIONE 152 Accoda record in tabella

 
§AccodaDati
Sub
Tabella
Luciano
§Accoda i record da una tabella all'altra; se vi sono in entrambe le tabelle records con identici id, questi sono modificati con un nuovo id.
Http://www.ialweb.it/forum/forum_posts.asp?TID=16464282&title=sql-aacomodamento. Lanciare la routine una sola volta.§
Tabella1
TabellaA
Tabella2
TabellaB
Campo1
ID
Campo2
CampoDescrizione


§Public Sub AccodaDati(Tabella1 As String, Tabella2 As String, Campo1 As String, Campo2 As String)
Dim rst As ADODB.Recordset
Dim SqlModificaId, SqlAccodaTabella As String
Dim NuovoId, Contatore As Long
Set rst = New ADODB.Recordset
MassimoId = DMax(Campo1, Tabella1)
Contatore = 0
rst.Open "SELECT " & Tabella1 & "." & Campo1 & ", " & Tabella1 & "." & Campo2 & " FROM " & Tabella1 & " INNER JOIN " & Tabella2 & " ON " & Tabella1 & "." & Campo1 & " = " & Tabella2 & "." & Campo1 & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 While Not rst.EOF
 Contatore = Contatore + 1
    NuovoId = rst.Fields(0)
    SqlModificaId = "UPDATE " & Tabella2 & " SET " & Campo1 & " = " & MassimoId + Contatore & " WHERE " & Campo1 & " = " & NuovoId & ""
    DoCmd.RunSQL SqlModificaId
    rst.MoveNext
 Wend
 SqlAccodaTabella = "INSERT INTO " & Tabella1 & " ( " & Campo1 & ", " & Campo2 & " ) SELECT " & Campo1 & ", " & Campo2 & " FROM " & Tabella2 & """"
 DoCmd.RunSQL SqlAccodaTabella
 rst.Close
 Set rst = Nothing
End Sub§

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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 23/Gen/2013 at 12:56

FUNZIONE 153 Rende maiuscole le iniziali delle parole di un testo

§InizialeMaiuscola
Funzione
Testo
Luciano
§Rende maiuscole le iniziali delle parole di un testo.§
Testo
ciao mi chiamo. Piero! E tu, (come) ti chiami?

 

 

 


§Public Function InizialeMaiuscola(Testo As String) As String
Dim Contatore As Integer
Testo = Testo & Chr(32)
While Len(Testo) > 1
    Contatore = InStr(1, Testo, Chr(32))
    InizialeMaiuscola = InizialeMaiuscola & " " & UCase(Left(Testo, 1)) & Trim(Mid(Testo, 2, Contatore - 2))
    Testo = Right(Testo, Len(Testo) - Contatore)
Wend
msgbox InizialeMaiuscola
End Function§

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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post Posted: 23/Gen/2013 at 14:44
L'oggetto Module
 
L'oggetto Module può rappresentare un modulo standard o un modulo di classe che può essere manipolato a piacimento grazie a moltecipli metodi e proprietà,
sia dall'interno dell'applicazione stessa che soprattutto dall'esterno.
Le modifiche apportate ai moduli a loro volta influenzano l'applicazione nell'aspetto e nella sostanza, esaltando la potenza di questo strumento.
Esempi applicativi:
*** variazione definitive di proprietà degli oggetti, oltre alle classiche effettuate dalla visualizzazione struttura o dalla lettura in tabelle.
vedi demo;
*** Inserire dei dati nel codice invece che nelle tabelle più semplici da violare.
vedi Cifratore;
*** come motore dell'inflazionato Catalogo delle funzioni;
 Se avete altri esempi di come è stato usato l'oggetto Module o idee di come poterlo utilizzare sono disponibile a inserirli nell'elenco.
                                                                             PROPRIETà
Type
Indica se un modulo è un modulo standard o di classe
CountOfLines
restituisce un valore Long che indica il numero di righe di codice presenti in un modulo
CountOfDeclarationLines
restituisce un valore Long che indica il numero di righe di codice incluse nella sezione Dichiarazioni in un modulo

Lines

restituisce una stringa costituita dal contenuto di una o più righe specifiche presenti in un modulo.
ProcBodyLine
restituisce un valore Long che include il numero della riga iniziale del corpo di una routine.Può essere il numero di una riga vuota che precede l'intestazione di una routine.
ProcCountLines
restituisce un valore Long che include il numero di righe di una routine specifica di un modulo
ProcOfLine
restituisce una stringa in sola lettura che include il nome della routine contenente una riga specifica di un modulo
                                                                                METODI
AddFromFile
posiziona il contenuto del file di testo specificato subito dopo la sezione Dichiarazioni e prima della prima routine del modulo, se questo contiene altre routine.
AddFromString
aggiunge una stringa a un oggetto Module.
CreateEventProc
crea una routine evento in un modulo di classe. Restituisce un valore di tipo Long che indica il numero della prima riga della routine evento
Find
Trova il testo specificato in un modulo
DeleteLines
elimina righe da un modulo
InsertLines
inserisce una riga o un gruppo di righe di codice in un modulo
InsertText
inserisce una stringa di testo specificata in un modulo
 
ReplaceLine
sostituisce una riga specificata in un modulo
ProcStartLine
restituisce un valore Long in sola lettura che identifica la riga iniziale di una specifica routine in un modulo
 


Edited by Luciano - 09/Feb/2013 at 19:27
Dio è Amore e Pace
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  <1 1516171819>
  Share Topic   

Forum Jump Forum Permissions View Drop Down

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

This page was generated in 0,063 seconds.