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  <12345 19>
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: 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§



Edited by Luky
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: 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
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: 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
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: 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
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: 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
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: 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
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: 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
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: 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
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: 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§



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

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 2121
Direct Link To This Post 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



Edited by Luky
Dio è Amore e Pace
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  <12345 19>
  Share Topic   

Forum Jump Forum Permissions View Drop Down

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

This page was generated in 0,051 seconds.