Visualizzazione dei risultati da 1 a 4 su 4
  1. #1

    [Access] riferimenti librerie

    Ciao a tutti,

    avete presente i vari riferimenti? (strumenti-riferimenti dal modulo)

    la domanda è questa:
    posso in automatico fare una lista di riferimenti e relativo file che usa il mio programma?

    Voi come fate? Vi appuntate i riferimenti non di default e poi li rimettete a mano?!?!? Preferisco mettere dei file in un cartella librerie e così quando vado ad installare ho già i files a protata di mano.


    Grazie

  2. #2
    Quote Originariamente inviata da VanessaInfo Visualizza il messaggio
    Ciao a tutti,

    avete presente i vari riferimenti? (strumenti-riferimenti dal modulo)

    la domanda è questa:
    posso in automatico fare una lista di riferimenti e relativo file che usa il mio programma?

    Voi come fate? Vi appuntate i riferimenti non di default e poi li rimettete a mano?!?!? Preferisco mettere dei file in un cartella librerie e così quando vado ad installare ho già i files a protata di mano.


    Grazie


    ops..ho sbagliato forum...chiedo ai moderatori di spostarmi
    grazie

  3. #3
    Utente di HTML.it L'avatar di nman
    Registrato dal
    Jan 2011
    residenza
    Milano
    Messaggi
    1,333
    Quote Originariamente inviata da VanessaInfo Visualizza il messaggio
    ..... Voi come fate? Vi appuntate i riferimenti non di default e poi li rimettete a mano?!?!? ........
    Per trovare i riferimenti che utilizza una applicazione puoi fare cosi:
    codice:
    Private Sub TrRi_Click()
    
    Dim StUsa As String
    Dim NuUsa As Integer
    Dim NuMan As Integer
    Dim accRef As Object
    
        For Each accRef In Application.References
            If (accRef.IsBroken = False) Then
                StUsa = StUsa & Left((accRef.Guid & String(50, "-")), 50) & Left((accRef.Name & String(20, "-")), 20) & accRef.FullPath & vbNewLine
                NuUsa = NuUsa + 1
            Else
                StUsa = StUsa & accRef.Guid & vbNewLine
                NuMan = NuMan + 1
            End If
        Next accRef
    
    Me.txtUsati = "Totale Usati N° " & NuUsa & "            Totale Manca N° " & NuMan & vbNewLine & StUsa
    
    End Sub

    .

  4. #4
    Moderatore di Windows e software L'avatar di darkkik
    Registrato dal
    Dec 2003
    residenza
    Pavia - Milano - Lodi.
    Messaggi
    11,476
    Spostato in Programmazione.
    I can see much clearer now, I'm blind.
    Io fui già quel che voi siete, Quel ch'io son voi anco sarete.
    Remember that death is not the end, but only a transition
    All that we learn this time is carried beyond this life.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.