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 678910 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: 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
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: 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
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: 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
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: 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
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: 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
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: 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§



Edited by Luciano - 05/Mar/2013 at 10:19
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: 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 §
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
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/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
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/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
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/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-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
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  <1 678910 19>
  Share Topic   

Forum Jump Forum Permissions View Drop Down

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

This page was generated in 0,062 seconds.