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 45678 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: 14/Mag/2011 at 15:33

Funzione n.042 Esporta il report nei vari formati

§EsportaReport
Sub
Report
Luky
§Esporta il report nei vari formati.
Inserire un valore da 1 a 5
Ho rilevato che l'applicazione si blocca, è gradita la conferma da parte dei foristi se si verifica o no.§
Tipo
2

 

 

 


§Public Sub EsportaReport(Tipo)
Dim Estensione As String
Select Case Tipo
Case 1
Tipo = acFormatXLS: Estensione = "XLS"
Case 2
Tipo = acFormatTXT: Estensione = "txt"
Case 3
Tipo = acFormatRTF: Estensione = "RTF"
Case 4
Tipo = acFormatHTML: Estensione = "HTML"
Case 5
Tipo = acFormatDAP: Estensione = "DAP"
End Select
DoCmd.OutputTo acOutputReport, "Report_Catalogo", Tipo, Application.CurrentProject.Path & "\CatalogoFunzioni." & Estensione, False
'altri formati
'acOutputForm  acOutputFunction  acOutputModule  acOutputQuery
'acOutputServerView  acOutputStoredProcedure acOutputTable
''''''
'acFormatASP  acFormatIIS  acFormatSNP
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: 16/Mag/2011 at 19:48

Funzione n.043 Apre una Query

§ApriQuery
Sub
Sql
Luky
§Apre una Query.
Contiene il comando per disabilitare momentaneamente i messaggi di avviso delle query, che in questo caso non sussistono in quanto si tratta di una  semplice interrogazione.§
NomeQuery
Qreport

 

 

 


§Public Sub ApriQuery(NomeQuery)
DoCmd.Minimize  'Riduce a icona la maschera corrente
DoCmd.SetWarnings False  'disabilita messaggi
DoCmd.OpenQuery NomeQuery
DoCmd.SetWarnings True
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: 18/Mag/2011 at 18:04

Funzione n.044 La funzione Iif (SE)

§Iif_Funzione
Sub
Logica
Diabolik_70
§Restituisce il doppio per valori maggiori di 1000.
Il triplo per valori compresi fra 500 e 1000.
Il quadruplo per valori inferiori a 500§
Importo
500

 

 

 


§Public Sub Iif_Funzione(Importo)
Importo = CInt(Importo)
Importo = IIf(Importo > 1000, Importo * 2, IIf(Importo < 500, Importo * 4, Importo * 3))
MsgBox Importo
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: 19/Mag/2011 at 17:17
Funzione n.045 Inserimento di un valore nel campo di una tabella

 

§InserisciRecord
Sub
Sql
Luky
§Inserimento di un valore nel campo di una tabella.§
Tabella
Tabella1
Campo
Campo
Valore
Addio

 


§Public Sub InserisciRecord(Tabella, Campo, Valore)
On Error GoTo 5000
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT " & Campo & "  FROM " & Tabella & "", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rst.AddNew
        rst!Campo = Valore
        rst.Update
    rst.Close
MsgBox "Fatto"
Exit Sub
5000
MsgBox "Operazione annullata"
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/Mag/2011 at 17:18

Funzione n.046 Elimina  un valore nel campo di una tabella

§EliminaRecord
Sub
Sql
Luky
§Elimina  un valore nel campo di una tabella.§
Tabella
Tabella1
Campo
Campo
Valore
addio

 


§Public Sub EliminaRecord(Tabella, Campo, Valore)
'Notare come nell'sql le variabili Campo e Tabella richiedono un solo doppio apice quando espandono il tipo di oggetto, mentre ne richiedono tre quando espandono il valore dell'oggetto.
'Nella funzione Dlookup non richiedono  apici in quanto semplici varialbili
'Valore richiede tre doppi apici  nel contesto di concatenamento in quanto tipo di dato testo.
'Ricordarsi di convertire in tipo numerico quando necessita nel qual caso va usato  solo un doppio apice.
'
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
If IsNull(DLookup(Campo, Tabella, Campo & "= """ & Valore & """")) Then MsgBox "Non c'è il valore " & Valore & " nel Campo " & Campo & " nella Tabella  " & Tabella & "": Exit Sub
'
rst.Open "DELETE " & Campo & " FROM  " & Tabella & "  WHERE  " & Campo & " = """ & Valore & """", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'
If IsNull(DLookup(Campo, Tabella, Campo & "= """ & Valore & """")) Then
    MsgBox "Fatto"
End If
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/Mag/2011 at 09:06

Funzione n.047 Apre un pdf ad una determinata pagina

§ApriPdfPagina
Sub
Win32
Diabolik_70
§Apre un pdf ad una determinata pagina§
CartellaAcrobat
C:\Programmi\Adobe\Reader 8.0\Reader\AcroRd32.exe
NomeFileCompleto
C:\Users\Luc\Desktop\Cd\abusivo.pdf
NumeroPagina
6

 


§Public Sub ApriPdfPagina(CartellaAcrobat, NomeFileCompleto, NumeroPagina)
Shell CartellaAcrobat & " /A page=" & NumeroPagina & " " & NomeFileCompleto, vbNormalFocus
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/Mag/2011 at 18:47

Funzione n.048 Apre maps di google per l'indirizzo dato

§RichiamaGoogleMaps
Sub
Varie
Laky_66
§Apre maps di google per l'indirizzo dato.
Inserire x per le incognite§
Citta
Roma
Cap
x
Indirizzo
via ancona
NumeroCivico
x


§Public Sub RichiamaGoogleMaps(Citta, Cap, Indirizzo, NumeroCivico)
Dim Link As String
Dim ret As Integer
    Indirizzo = Replace(Nz(Indirizzo & " " & NumeroCivico, ""), ",", " ")
    Citta = Replace(Nz(Citta, ""), ",", " ")
    Cap = Nz(Cap, "")
    Link = "http://maps.google.it/?q="
    Link = Link & Indirizzo & " , " & Cap & " " & Citta
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
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/Mag/2011 at 14:49

Funzione n.049 Apre la pagina web "non solo cap" per per l'indirizzo dato.

§RichiamaCap
Sub
Varie
Luky
§Ottiene CAP, REGIONE, CODICE CATASTALE E PREFISSO
Apre www.nonsolocap.it per l'indirizzo dato.
Il CAP generico per alcune città (riportate nel vba) non è più in uso, ogni zona postale ha il suo.
Inserire x per le incognite§
Citta
verbania
Indirizzo
Via Venticinque Aprile
NumeroCivico
34

 


§Public Sub RichiamaCap(Citta, Indirizzo, NumeroCivico)
Dim Link As String
Dim ret As Integer
Indirizzo = Replace(Nz(Indirizzo & " " & NumeroCivico, ""), ",", " ")
    Citta = Replace(Nz(Citta, ""), ",", " ")
If Citta = "Alessandria" Or Citta = "Ancona" Or Citta = "Bari" Or Citta = "Bergamo" Or Citta = "Bologna" Or Citta = "Brescia" Or Citta = "Cagliari" Or Citta = "Catania" Or Citta = "Cesena" Or Citta = "Ferrara" Or Citta = "Firenze" Or Citta = "Foggia" Or Citta = "Forli" Or Citta = "Genova" Or Citta = "La Spezia" Or Citta = "Livorno" Or Citta = "Messina" Or Citta = "Milano" Or Citta = "Modena" Or Citta = "Napoli" Or Citta = "Padova" Or Citta = "Palermo" Or Citta = "Parma" Or Citta = "Perugia" Or Citta = "Pesaro" Or Citta = "Pescara" Or Citta = "Piacenza" Or Citta = "Pisa" Or Citta = "Ravenna" Or Citta = "Reggio Calabria" Or Citta = "Reggio Emilia" Or Citta = "Rimini" Or Citta = "Roma" Or Citta = "Salerno" Or Citta = "Taranto" Or Citta = "Torino" Or Citta = "Trento" Or Citta = "Trieste" Or Citta = "Venezia" Or Citta = "Verbania" Or Citta = "Verona" Then
 Link = "http://www.nonsolocap.it/cap?k=" & Indirizzo & "&b=+Cerca+&c=" & Citta & ""
Else
Link = "http://www.nonsolocap.it/cap?k=" & Citta & "&b=+Cerca+&c="
End If
  
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
   
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/Mag/2011 at 13:25

Funzione n.050 Apre  per il nominativo dato contemporaneamente le pagine gialle e quelle bianche

§RichiamaPagineGialleBianche
Sub
Varie
Luciano
§Apre  per il nominativo dato contemporaneamente le pagine gialle e quelle bianche
Inserire x per le incognite§
Nominativo
Cappuccio renato
Indirizzo
via necropoli grotticelle
Città
siracusa
Cap
96100


§Public Sub RichiamaPagineGialleBianche(Nominativo, Indirizzo, Città, Cap)
Dim Link, NominativoCopia, CittàCopia, IndirizzoCopia, CapCopia As String
Dim ret, ret2 As Integer
If Nominativo = "x" Then Nominativo = ""
If Indirizzo = "x" Then Indirizzo = ""
If Città = "x" Then Città = ""
If Cap = "x" Then Cap = ""
NominativoCopia = Nominativo
IndirizzoCopia = Indirizzo
CittàCopia = Città
CapCopia = Cap
    Nominativo = Replace(Nominativo, " ", "%20")
    Città = Replace(Città, " ", "%20")
    Indirizzo = Replace(Indirizzo, " ", "%20")
    Cap = Trim(Nz(Cap, ""))
    Link = "http://www.paginegialle.it/pgol/4-cappuccio%20renato/3-"
    Link = Link & Nominativo & "&dv=" & Cap & "%20" & Città & "%20" & Indirizzo
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
NominativoCopia = Replace(Nz(NominativoCopia, ""), " ", "+")
Indirizzo = Replace(Nz(IndirizzoCopia, ""), " ", "+")
CittàCopia = Replace(Nz(CittàCopia, ""), " ", "+")
Cap = Replace(Nz(Cap, ""), " ", "+")
Link = " http://www.paginebianche.it/execute.cgi?iq=&ver=default& amp; amp;font=default&btt=1&mr=10&rk=&om=&qs ="
Link = Link & NominativoCopia & "&dv=" & IndirizzoCopia & "&dv=" & CittàCopia & "&dv=" & Cap
ret2 = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



Edited by Luciano
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/Mag/2011 at 11:22

Funzione n.051 Apre  le pagine gialle (http://www.paginegialle.it) per la categoria e la località  date

§RichiamaPagineGialle
Sub
Varie
Luciano
§Apre  le pagine gialle (http://www.paginegialle.it) per la categoria e la località  date§
Categoria
arredo bagno
Località
canicattini bagni

 

 


§Public Sub RichiamaPagineGialle(Categoria, Località)
Dim Link As String
Dim ret As Integer
    Categoria = Replace(Categoria, " ", "%20")
    Località = Replace(Località, " ", "%20")
   
Link = "http://www.paginegialle.it/pgol/4-"
Link = Link & Categoria & "/3-" & Località
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (Link))
End Sub§



Edited by Luciano
Dio è Amore e Pace
Catalogo funzioni
Back to Top
 Post Reply Post Reply Page  <1 45678 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.