Acquista i nostri libri consigliati su Amazon.it
Discussione chiusa
Visualizzazione dei risultati da 1 a 10 su 10

Ricerca di un file in una directory

  1. #1
    GPA
    GPA non  in linea Novello
    Buona giornata a tutti

    In access 97 sto cercando di impostare una ricerca della presenza di un file in un direttorio di windows ( explorer )

    Il programma che ho impostato

    CODEDOCUMENTO = Forms![GESTIONE_ANAGRAFICA_ARTICOLI_CODIFICA]![Sottomaschera GESTIONE_ANAGRAFICA_ARTICOLI]![A_COAS]
    
    ESTENSIONEFILE = DLookup("[VPH-E-PHOTO]", "T_PERCORSO_SOFTWARE_ESTERNI_VISU")
    
    CARTELLAPULITA = Trim(DLookup("[VPH-PHOTO]", "T_PERCORSO_FILE_ESTERNI_VISU"))
    
    CARTELLAFAM = (CARTELLAPULITA) & "\" & Left(CODEDOCUMENTO, 3)
    
    DOCUFILE = "VPH_" & CODEDOCUMENTO & "." & ESTENSIONEFILE
    
        Set FS = Application.FileSearch
        With FS
    
            .LookIn = CARTELLAFAM
            .SearchSubFolders = False
            .Filename = DOCUFILE
      
      If .Execute() > 0 Then
      Forms![GESTIONE_ANAGRAFICA_ARTICOLI_CODIFICA]![Comando188].Visible = True 
      Forms![GESTIONE_ANAGRAFICA_ARTICOLI_CODIFICA]![Comando188].Coloreprimopiano = 255
      endif
    
        End With
    
    trovo 2 problemi:

    1) anche se il file non esiste il tasto 188 viene reso ugualmente visibile ( sembra che il controllo Execute non funzioni )
    2) il colore primo piano della scritta del tasto non funziona ( da errore ) nel comando ho impostato 255 corrispondente al rosso.

    Se vi possibile potreste aiutarmi a capire dove sbaglio

    Sinceramente Ringrazio e buona giornata a tutti

    Pierangelo GPA
    Ultima modifica di AntonioG; 16-03-2021 15:36  Motivo: Utilizza i tag CODE per il codice

  2. #2
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    Prima di tutto devi leggere e rispettare il regolamento quindi clicca qui
    https://masterdrive.it/microsoft-acc...ag-code-89022/

    Non so se su access97 funziona ma per versioni decisamente meno preistoriche io uso questo se ti pu essere utile
        With Application.FileDialog(msoFileDialogFilePicker)
            .title = "mio titolo"
            .ButtonName = "nome pulsante"
            .Filters.Clear
            .Filters.Add "Tutti i file", "*.*"
            .FilterIndex = IDdefault
            .AllowMultiSelect = true / false
            .InitialView = msoFileDialogViewDetails
            If .Show = True Then
    

  3. #3
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Prima cosa conviene essere consapevoli che FileSearch non pi supportato.
    Tuttavia mi chiedo se serva...? (Temo sia inutile...)

    Se in DOCUFILE hai il Nome del File da cercare... ed in CARTELLAFAM hai il PATH ti basta interrogare con
    IF LEN(DIR(CARTELLAFAM & DOCUFILE))>0 THEN
       ' Il file esiste
    
    Else
       ' Il file NON esiste
    
    End If
    
    ℹ️ Leggi di pi su @Alex ...

  4. #4
    Intervento che aiuta poco il thread ma cos ci togliamo subito il pensiero
    Quote Originariamente inviato da muttley005 Visualizza il messaggio
    Non so se su access97 funziona ...
        With Application.FileDialog(msoFileDialogFilePicker)
    
    No, non funziona perch FileDialog in A97 ancora non c'era, si doveva ricorrere alle API. E' disponibile solo da A2002 (solo... beh, si fa per dire)

  5. #5
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    avete ragione, ho capito male le intenzioni. non vuole cercare/aprire un file ma solo vedere se esiste.
    scusate

  6. #6
    GPA
    GPA non  in linea Novello
    Veramente Grazie per il Suggerimento.
    Saluti
    GPA

    Great
    Ho capito tutto.
    Molte Grazie
    GPA

    Grazie per il suggerimento.
    GPA
    Ultima modifica di AntonioG; 17-03-2021 14:27  Motivo: 3 risposte ravvicinate per dire la stessa cosa?

  7. #7
    GPA
    GPA non  in linea Novello
    Per modificare il colore di una casella ( bottone ) in una videata di ACCESS sto cercando di utilizzare la funzione
    Forms![GESTIONE_ANAGRAFICA_ARTICOLI_CODIFICA]![Comando100].Coloreprimopiano 32896
    dove 32896 il colore che vorrei impostare.
    Il problema che non funziona. Probabilmente mi sfugge qualcosa nella sintassi.
    Hai un suggerimento?
    Grazie
    GPA

  8. #8
    Quote Originariamente inviato da GPA Visualizza il messaggio
    Per modificare il colore di una casella ( bottone )...GPA
    Se un "nuovo problema" (vedi anche il titolo del thread che parla di tutt'altra cosa) devi creare un nuovo thread.
    PS: fai attenzione quando rispondi, a volte i messaggi compaiono con quale minuto di ritardo. Prima, ad esempio, hai scritto 3 ringraziamenti in serie. (ora sistemati da AntonioG)
    Ultima modifica di Phil_cattivocarattere; 17-03-2021 14:29 

  9. #9
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    Me.nomeButton.ForeColor=valoreColore
    
    se invece hai una maschera continua devi usare la formattazione condizionale

  10. #10
    GPA attenzione nelle risposte e nell'uso del forum.
    Per un altro problema scrivi un altro thread.
    E attenzione alle risposte ravvicinate non utili.

    Chiuso
    ℹ️ Leggi di pi su AntonioG ...

Discussione chiusa

Potrebbero interessarti anche ...

  1. Ricerca in directory e ordinamento alfabetico
    Da Yellow_red nel forum Microsoft Excel
    Risposte: 6
    Ultimo Post: 07-11-2015, 20:24
  2. Apertura file in directory
    Da MAURIZIO79 nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 29-08-2015, 22:43
  3. Motore di ricerca web directory
    Da fabio90 nel forum PHP
    Risposte: 3
    Ultimo Post: 06-06-2012, 08:11
  4. [C/C++] No such file o directory
    Da Newton nel forum C/C++
    Risposte: 1
    Ultimo Post: 11-05-2010, 12:04
  5. Ricerca Files In directory
    Da Symo88 nel forum Delphi
    Risposte: 0
    Ultimo Post: 19-02-2008, 11:50