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



Edited by Luciano - 18/Gen/2013 at 09:38
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/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-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
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/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&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
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: 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
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: 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
(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§



Edited by Luciano - 26/Gen/2012 at 11:52
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: 09/Dic/2011 at 17:49
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



Edited by Luciano - 08/Feb/2012 at 10:31
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/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
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: 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
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: 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
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  <1 7891011 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,063 seconds.