Catalogo delle funzioni, articoli e risorse utili

Author

Message

Topic Search

Topic Options

Ricky53

Amministratore

Esperto di Excel e PowerPoint

Joined: 05/Ott/2006
Location: Italy
Status: Offline
Points: 9477

Topic: Catalogo delle funzioni, articoli e risorse utili
Posted: 18/Mar/2013 at 15:05

Ciao,

in attesa di decisioni dello staff in merito a quanto è stato scritto chiudo la discussione.

Amministratore

Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 18/Mar/2013 at 13:32

11/03 2013 in questa data

ti ho mandato la mail in calce in cui ti avvisavo che avrei inserito la funzione.

Il materiale su internet è di pubblica funzione, basta citare l'autore come tu stesso hai scritto ed io avevo fatto:

"poi di solito si indica l'autore del codice se non è scritto da chi lo pubblica in articoli, una volta si chiedeva anche il consenso, che ovviamente ti concedo:".

Ora hai dichiarato obsoleta la richiesta di consenso salvo poi rispolverarla in questo caso.

La pubblicazione di tuo materiale nel catalogo sarebbe a vantaggio della comunità, non certo mio.

Negargliela non ha senso.

Sarò felice di accontentarti.

Subject - ciao
Sent - 11/Mar/2013 at 20:16
Sent by: Luciano
Group - Utente Onorario

ciao

Add Buddy

Ciao,

omissis omissis

la inserisco nel catalogo

Edited by Luciano - 18/Mar/2013 at 13:33

Dio è Amore e Pace
Catalogo funzioni

@Alex

Utente Onorario

Joined: 09/Apr/2012
Location: Mantova
Status: Offline
Points: 836

Posted: 18/Mar/2013 at 13:12

A parte non aver alcuna tua richeista privata in data 11/03 credo 2013 e non 2012, ma questo non importa non voglio aprire questioni su questo.
Tu NON SEI autorizzato a pubblicare in questo 3D o in altri NULLA di quanto io inserisco nel Forum.

La richiesta è formalizzata agli amministratori, questione per me chiusa.

Edited by @Alex - 18/Mar/2013 at 13:15

Non SUPPORTO il CROSSPOST.
http://mirror.masterdrive.it/alessandrobaraldi/
Scaricare i DEMO modificando l'Estensione.

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 15/Mar/2013 at 08:13

Funzione n. 163 Rinomina files

Questa funzione che ho attribuito ad Alex, è stata rimossa su sua richiesta poichè nel comunicargli privatamente che l'avrei inserita nel catalogo giorno 11/03/2012 ho omesso di chiedergli il consenso alla pubblicazione.

ciao

Edited by Luciano - 18/Mar/2013 at 10:57

Dio è Amore e Pace
Catalogo funzioni

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 28/Feb/2013 at 16:34

Funzione n. 162 Input Dati su Multi Riga

§InputDatiMultiRiga
Sub
Sql
willy
§Scrive su più righe il messaggio di una inputbox anche in quella di immissione dati delle query di access§
PrimaRiga
Inserire dato, questa è la prima riga
SecondaRiga
questa la seconda riga
TerzaRiga
questa la terza riga

§Public Function InputDatiMultiRiga(PrimaRiga As String, SecondaRiga As String, TerzaRiga As String) As String
    Dim strDato As String
    strDato = InputBox(PrimaRiga & Chr(13) & Chr(10) & _
        SecondaRiga & vbCrLf & _
        TerzaRiga, "Titolo")
    InputDatiMultiRiga = strDato
End Function§

Edited by Luciano - 03/Mar/2013 at 09:27

Dio è Amore e Pace
Catalogo funzioni

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 21/Feb/2013 at 17:09

Funzione 161 Restituisce il percorso della cartella selezionata

§SelezionaCartella
Funzione
FileCartelle
Luciano
§Restituisce il percorso di una cartella§ 
 
 
 

§Public Function SelezionaCartella()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
     With fd
             .Title = "seleziona cartella"
             .ButtonName = "Ok"
             .AllowMultiSelect = False
             .InitialView = msoFileDialogViewDetails
             .InitialFileName = Application.CurrentProject.Path
             .Show
             For Each objfl In .SelectedItems
                 FileName = objfl
             Next objfl
     End With
Set fd = Nothing
SelezionaCartella = FileName
msgbox SelezionaCartella
End Function§

modificata a seguito di segnalazione di errore (Mancava l'assegnazione e la parte finale)

Edited by Luciano - 03/Mar/2013 at 09:35

Dio è Amore e Pace
Catalogo funzioni

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 16/Feb/2013 at 19:52

Funzione 160 Cambio Colore in casella

§ChangeBackColor
Sub
Form
Luciano
§Il cambio di colore. 15 colori codificati richiamabili dal parametro ColorCode; se ColorCode maggiore di 15 allora i parametri utili sono dettati da Red, Green, Blue§
ColorCode
15
Red
200
Green
200
Blue
200

§Public Sub ChangeBackColor(ColorCode As Integer, RED As Integer, Green As Integer, Blue As Integer)
If ColorCode <= 15 Then
    ColorCode = CInt(ColorCode)
    Forms!Menù.TCodice.BackColor = QBColor(ColorCode)
Else
    Forms!Menù.TCodice.BackColor = RGB(RED, Green, Blue)
End If
End Sub§

Dio è Amore e Pace
Catalogo funzioni

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 16/Feb/2013 at 19:36

Funzione 159 Immisione dati in Inputbox

§InputBox1
Sub
Form
Luciano
§Inserisce una stringa in una variabile per mezzo di una finestra di immissione dati§
Messaggio
Quanti euro hai in tasca?
Titolo
Inserimento dati
Predefinito
100
PosizioneX
4000
PosizioneY
5000
§Public Sub InputBox1(Messaggio As String, Titolo As String, predefinito As String, PosizioneX As Long, PosizioneY As Long)
Dim Response As String
On Error GoTo Err_Close   'Prima della riga in cui potrebbe verificarsi l'errore
Response = InputBox(Messaggio, Titolo, predefinito, PosizioneX, PosizioneY)
If Response = "" Then msgbox "Hai Annullato o hai premuto X": Exit Sub
msgbox "Hai immesso """ & Response & """"
Exit_here:
     Exit Sub
Err_Close:
If Err = 6 Then
   msgbox "Errore " & Str(Err.Number) & " generato da " & Err.Source & Chr(13) & Err.Description
   Resume Exit_here
End If
End Sub§

Dio è Amore e Pace
Catalogo funzioni

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 14/Feb/2013 at 17:08

Funzione 158 Aggiorna collegamenti al BE

§AggiornaCollegamenti
Funzione
Tabella
VediCodice
§Collega le tabelle presenti nel BE spostato in altra cartella. Non funzionante nel contesto di questo db in quanto database non diviso.§
NomeDatabase
C:\Users\io\Desktop\Ial attuali\prova2.mdb
 
 
 

§Public Function AggiornaCollegamenti(NomeDatabase As String) As Boolean
'Modifica sul lavoro di  Federico Luciani http://www.ialweb.it/forum/forum_posts.asp?TID=16464306&PN=1&title=risoltoperdita-record-back-end-su-copia-del-db
    Dim dbs As Database
    Dim tdf As TableDef
    Set dbs = CurrentDb
    f_AggiornaColl = False
    For Each tdf In dbs.TableDefs
        If (Len(tdf.Connect) > 0) Then
            tdf.Connect = ";DATABASE=" & strMdb
            Err = 0
            On Error Resume Next
            tdf.RefreshLink
                Select Case Err.Number
                    Case 3024
                        msgbox "Impossibile trovare il file:" & vbCrLf & Mid$(tdf.Connect, 11), vbCritical + vbOKOnly, "Errore nel collegamento"
                        Exit Function
                    Case 0
                        msgbox tdf.Name & " Collegata a " & DLookup("Database", "MSysObjects", "Type=6")
                        f_AggiornaColl = True
                    Case Else
                        msgbox tdf.Name & vbCrLf & Err.Number & " - " & Err.Description, vbCritical + vbOKOnly, "Errore"
                End Select
        End If
    Next tdf
End Function§

Edited by Luciano - 14/Feb/2013 at 17:10

Dio è Amore e Pace
Catalogo funzioni

Luciano

Utente Onorario

Joined: 05/Giu/2010
Location: Italy
Status: Offline
Points: 1972

Posted: 12/Feb/2013 at 19:21

Funzione 157 Intervallo valori (3)

§IntervalloValori_ter
Funzione
Matematica
Luciano
§Determina a quale intervallo valori appartiene un numero.
tipologia intervalli -19 … -10    -9 … 0  0 … 9    10 … 19§
Numero
-10
 
 
 

§Public Function IntervalloValori_ter(Numero As Integer) As String
'tipologia intervalli -19 … -10    -9 … 0  0 … 9    10 … 19
Dim Avanti As Integer
Avanti = 1
If Numero >= 0 Then
    Do While (Avanti + Numero) Mod 10 <> 0
        Avanti = Avanti + 1
    Loop
    IntervalloValori_ter = (Avanti + Numero - 10) & " ... " & (Avanti + Numero - 1)
Else
Avanti = 10
    Do While (Numero - Avanti) Mod 10 <> 0
        Avanti = Avanti - 1
    Loop
    IntervalloValori_ter = (Numero - Avanti + 1) & " ... " & (Numero - Avanti + 10)
End If
msgbox IntervalloValori_ter
End Function§

Dio è Amore e Pace
Catalogo funzioni