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 1213141516 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/Dic/2012 at 12:39
 
 
 
L'indice del catalogo č dotato adesso di comodi link ipertestuali per richiamare immediatamente le funzioni
 
ciao
 
 


Edited by Luciano - 24/Dic/2012 at 12:43
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: 03/Gen/2013 at 13:34

Funzione 0118 Suonare un file WAV

§PlaySoundWav
Sub
Win32
65.Franco
§eseguire un file Wav con l'Api di windows "winmm.dll"§
strWav
C:\Windows\Media\tada.wav
blnWaiting
1

 

 


§Public Sub PlaySoundWav(ByVal strWav As String, ByVal blnWaiting As Boolean)
'By 65.Franco http://www.ialweb.it/forum/forum_posts.asp?TID=16464229&PID=3366949&title=suonare-file-mp3#3366949
'occorre inserire ad inizio modulo la stringa: Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
' Parameters' strWav = stringa completa percorso + nome file' blnwaiting = True - il codice si ferma fino a quando non č finita la riproduzione del brano musicale
' blnwaiting = False - il codice non si ferma durante la riproduzione del brano
If Dir(strWav, vbArchive) <> "" Then sndPlaySound32 strWav, IIf(blnWaiting, 0, 1)
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: 07/Gen/2013 at 09:08
Funzione 119 Azzera tabella
§AzzeraTabella
Sub
Tabella
Luciano
§Azzera il contatore di una tabella presente nel database.§
Tabella
Tabella1

 

 

Funzione 0119 Azzerare il contatore di una tabella 


§Public Sub AzzeraTabella(Tabella)
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
' Cancella TUTTI i records presenti
rst.Open "Delete * FROM " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.Open "SELECT * FROM " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
' Azzera il contatore creando un record transitorio
    rst.AddNew
        rst.Fields(0) = 0
    rst.Update
    rst.Close
' Elimina il record transitorio
rst.Open "Delete * FROM " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
MsgBox "Azzerata"
End Sub§



Edited by Luciano - 16/Feb/2013 at 17:30
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/Gen/2013 at 09:17

Funzione 0120 Ricava l'elenco dei moduli

§ElencoModuli
Sub
Moduli
Luciano
§Ricava l'elenco dei moduli (tipo 0) e dei moduli di Form (tipo1)§
Tipo
1

 

 

 


§Public Sub ElencoModuli(Tipo 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 = Tipo Then
            Stringa = Stringa & vbCr & modOpenModules(I).Name
        End If
    Next
    MsgBox "Elenco dei  moduli di tipo " & Tipo & vbCr & Stringa
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: 07/Gen/2013 at 09:19

Funzione 0121 Trova e sostituisce stringa in modulo interno

§TrovaSostituisciModuloInterno
Funzione
Moduli
Luciano
§Cerca una stringa in tutte le sue occorrenze e sostituisce con un'altra stringa le occorrenze scelte dall'utente. ParolaIntera Sė / no§
NomeModulo
mod_Funzioni
VecchiaStringa
Massimo
NuovaStringa
Massimo
ParolaIntera
no


§Public Function TrovaSostituisciModuloInterno(NomeModulo As String, VecchiaStringa As String, NuovaStringa As String, ParolaIntera) As Boolean
    Dim mdl As Module
    Dim Inizio As Long, lngSCol As Long
    Dim lngELine As Long, lngECol As Long
    Dim VecchiaRiga, NuovaRiga, Response As String
    Dim Massimo As Integer
    Dim ParInt As Boolean
    DoCmd.OpenModule NomeModulo
    Set mdl = Modules(NomeModulo)
If ParolaIntera = "Sė" Then ParInt = True
Massimo = 0
5000
'Inizio indica la riga dell'occorrenza trovata. Con  il suo incremento si estende la ricerca alle righe successive.
'Poiché il ciclo si reitera dopo l'ultima occorrenza, si legge l'ultimo valore di Inizio e lo si memorizza in Massimo.
'Quando inizio divanta minore di Massimo la ricerca ha interessato tutte le occorrenze e si puō uscire dal ciclo.
    If mdl.Find(VecchiaStringa, Inizio, lngSCol, lngELine, lngECol, ParInt) Then  ' fatto
    If Inizio < Massimo Then MsgBox "Fine Ricerca": Exit Function
        VecchiaRiga = mdl.Lines(Inizio, 1)
        Response = MsgBox("Sostituisco """ & VecchiaStringa & """ nella riga:" & vbCrLf & VecchiaRiga & vbCrLf & "con """ & NuovaStringa & """?", vbYesNo + 256)
        If Response = vbYes Then
            NuovaRiga = Replace(VecchiaRiga, VecchiaStringa, NuovaStringa)  ' Fatto
            mdl.ReplaceLine Inizio, NuovaRiga
        End If
        Inizio = Inizio + 1
        Massimo = Inizio
    GoTo 5000
    Else
        MsgBox "Testo non trovato."
        TrovaSostituisciModuloInterno = False
    End If
DoCmd.Close acModule, NomeModulo, acSaveYes
Set mdl = Nothing
End Function§



Edited by Luciano - 07/Gen/2013 at 09:25
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/Gen/2013 at 09:22

Funzione 0122 Connessione ad un db esterno

§ConnettiDbEsterno
Sub
ConnessioneDatabase
Luciano
§Cambia il valore di un campo di una tabella di un database esterno.§
Database
C:\Users\io\Desktop\db7.mdb
Tabella
campionato
Campo
denominazione
Valore
20


§Public Sub ConnettiDbEsterno(Database, Tabella, Campo, Valore)
Dim strConn, rs, conn As Object   'modificato
Dim NumeroAccesso As Integer
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Database & ""
Set conn = CreateObject("ADODB.Connection")
conn.Open strConn       '
Set rs = CreateObject("ADODB.Recordset")
rs.Open "UPDATE " & Tabella & " SET " & Campo & " =" & Valore, conn
conn.Close
MsgBox "Fatto "
End Sub§



Edited by Luciano - 07/Gen/2013 at 09:26
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/Gen/2013 at 09:27

Funzione 0123 Trova e sostituisce stringa in modulo esterno

§TrovaSostituisciModuloEsterno
Sub
Moduli
Luciano
§Trova e sostituisce una stringa da un modulo di un database esterno§
Database
C:\Users\io\Desktop\db7.mdb
NomeModulo
Modulo3
VecchiaStringa
ddd
NuovaStringa
option Explicit


§Public Sub TrovaSostituisciModuloEsterno(Database, NomeModulo, VecchiaStringa, NuovaStringa)
   Dim appAccess As Access.Application
   Dim mdl As Module
   Dim TrovatoeSostituito As Boolean
   Dim VecchiaRiga, NuovaRiga, Stringa As String
   Dim Inizio As Long, lngSCol As Long
   Dim lngELine As Long, lngECol As Long
          'restituisce riferimento all'oggetto Application di Microsoft Access
   Set appAccess = CreateObject("Access.Application")
          'apre database in Microsoft Access
   appAccess.OpenCurrentDatabase Database
   Set mdl = appAccess.Modules(NomeModulo)
   If mdl.Find(VecchiaStringa, Inizio, lngSCol, lngELine, lngECol) Then
        VecchiaRiga = mdl.Lines(Inizio, 1)
        NuovaRiga = Replace(VecchiaRiga, VecchiaStringa, NuovaStringa)
        mdl.ReplaceLine Inizio, NuovaRiga
        TrovatoeSostituito = True
    Else
        TrovatoeSostituito = False
    End If
   appAccess.DoCmd.Close
   Set appAccess = Nothing
   If TrovatoeSostituito Then
        MsgBox "Modifiche eseguite!", vbInformation
   Else
        MsgBox "Text not found!.", vbInformation
   End If
DoCmd.Close acModule, NomeModulo, acSaveYes
Set mdl = 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: 07/Gen/2013 at 09:30

Funzione 0124 Trova e richiama il codice di una funzione.

§RichiamaFunzione
Sub
Moduli
Luciano
§Trova la Funzione e la riporta nella casella di testo§
Modulo
Mod_Funzioni
NomeFunzione
ScriveRegistro

 

 


§Public Sub RichiamaFunzione(NomeModulo, NomeFunzione)
Dim mdl As Module
Dim Inizio, Lunghezza As Integer
If Not CurrentProject.AllModules(NomeModulo).IsLoaded Then DoCmd.OpenModule NomeModulo
Set mdl = Modules(NomeModulo)
Inizio = TrovaInizioFunzione(NomeModulo, NomeFunzione)
If Inizio = 0 Then
    MsgBox " Non esiste una funzione di nome """ & NomeFunzione & """":
Else
    Lunghezza = mdl.ProcCountLines(NomeFunzione, vbext_pk_Proc) 'Restituisce il numero delle righe della funzione in argomento
   MsgBox mdl.Lines(Inizio, Lunghezza)
End If
DoCmd.Close acModule, NomeModulo, acSaveYes
Set mdl = 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: 07/Gen/2013 at 09:32

Funzione 0125 Rinomina la funzione riportata nella casella di testo

§RinominaFunzione
Sub
Moduli
Luciano
§Rinomina la funzione riportata nella casella di testo§
NomeModulo
Mod_Funzioni
NomeFunzione
hhtt
NuovoNome
htt

 


§Public Sub RinominaFunzione(NomeModulo, NomeFunzione, NuovoNome)
Dim NuovaStringa, VecchiaStringa As String
Dim Inizio As Integer
Dim mdl As Module
Set mdl = Modules(NomeModulo)
'--------------------
MsgBox "Codice dimostrativo interrotto. La copia funzionante si trova nel mod:Sistema. XXRinominaFunzione"
Exit Sub
'--------------------
If Forms!Menų.NewRecord Then Exit Sub
If Not CurrentProject.AllModules(NomeModulo).IsLoaded Then DoCmd.OpenModule NomeModulo
If Len(NuovoNome) > 0 Then
    Inizio = mdl.ProcBodyLine(NomeFunzione, vbext_pk_Proc)
    VecchiaStringa = mdl.Lines(Inizio, 1)  ''''mdl.Lines(Inizio, 1)
    NuovaStringa = Replace(VecchiaStringa, NomeFunzione, NuovoNome)
    mdl.ReplaceLine Inizio, NuovaStringa
    'Forms!Menų.TFunzione.Value = NuovoNome'Questa assegnazione č valida
    XXRichiamaFunzione
End If
DoCmd.Close acModule, NomeModulo, acSaveYes
Forms!Menų.FIltroFunzione.Requery
Set mdl = 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: 07/Gen/2013 at 09:34

Funzione 0126 Modifica la funzione riportata nella casella di testo

§ModificaCodice
Sub
Moduli
Luciano
§Modifica la funzione riportata nella casella di testo§
NomeModulo
Mod_Funzioni
NomeFunzione
bb

 

 


§Public Sub ModificaCodice(NomeModulo, NomeFunzione)
Dim mdl As Module
Dim Inizio, Lunghezza As Integer
If Not CurrentProject.AllModules(NomeModulo).IsLoaded Then DoCmd.OpenModule NomeModulo
Set mdl = Modules(NomeModulo)

'--------------------
MsgBox "Codice interrotto. La copia funzionante si trova nel mod:Sistema. XXModificaCodice"
Exit Sub
'--------------------

'If Forms!Menų.NewRecord Or Forms!Menų.TCodice.Value = "" Then Exit Sub
'If Not CurrentProject.AllModules(NomeModulo).IsLoaded Then DoCmd.OpenModule NomeModulo
'Set mdl = Modules(NomeModulo)
'NomeFunzione = Forms!Menų!Funzione.Value
'If Not XXTrovaFunzione(NomeFunzione) Then
 ' Forms!Menų!TCodice.Value = "": MsgBox " Non esiste una funzione di nome """ & NomeFunzione & """":
'Else
    'Lunghezza = mdl.ProcCountLines(NomeFunzione, vbext_pk_Proc) 'Restituisce il numero delle righe della funzione in argomento
   ' mdl.DeleteLines Inizio, Lunghezza                          'Cancella la routine
   'If Len(Forms!Menų!TCodice.Value) > 0 Then mdl.InsertLines Inizio, Forms!Menų!TCodice.Value
 
'End If
'DoCmd.Close acModule, NomeModulo, acSaveYes
'Set mdl = Nothing
End Sub§


Dio č Amore e Pace
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  <1 1213141516 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.