Newsgroup: it.comp.appl.access
Titolo: Access 97 e 2000 su windows xp

Ho su SO windows xp installato access97 e access 2000.
A97 si blocca su istruzioni che fanno riferimento ai caratteri jolly ( 
.Filename = "*.*" )
L'applicazione a97, convertita in A2000, funziona correttamente.
Perchè avviene tutto questo?
Ringrazio per l'aiuto che certamente mi darete.
Giannik4 

 Giannik4
Rispetto a quanto hai scritto, motivi di malfunzionamento tra versioni 97
e 2k, non ve ne sono. Win XP non implica nulla.
Posta il codice sul quale 97 si blocca e 2k no.
-- 
Ciao
Pablitomf (Maurizio Facciuti)
------------------------------
http://www.sitocomune.com/
http://www.accessgroup.it/
------------------------------
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel 
messaggio news:crdtqh$d51$1...@news.newsland.it...

Grazie per l'interessamento e scusatemi del ritardo con cui vengo a 
rispondere... sono stato fuori.
Il codice su cui A97 si blocca è il seguente:
***************************************************************************
Private Sub P_DIRECTORY_Click()
    Dim i As Integer
    Dim nomefile As String, SPECIFICA As String, strTabella_txt As String, 
ACCOLTO As String
    Dim RESPONSE As String
    Dim dbs As Database, RST As Recordset, QDF As QueryDef
    Dim bInf As BROWSEINFO
    Dim RetVal As Long, PathID As Long, RetPath As String, Offset As Integer
' impostazione degli elementi della struttura
    bInf.hOwner = Me.hwnd
    bInf.lpszTitle = " ==== Stringa visualizzata nel browser ====="
    bInf.ulFlags = BIF_RETURNONLYFSDIRS
' Mostra il "Browse For Folder" dialog
    PathID = SHBrowseForFolder(bInf)
    RetPath = Space$(512)
' Recupero il path
    RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
    'Debug.Print RetVal
    'Debug.Print RetPath
    If RetVal Then
        Offset = InStr(RetPath, Chr$(0))
        MsgBox "Il folder selezionato è :" & Chr$(10) & Chr$(10) & _
        Left$(RetPath, Offset - 1), vbInformation
    Else
        MsgBox "Selezionato Tasto Annulla", vbInformation
    End If
    RESPONSE = RetPath
        With Application.FileSearch
        .LookIn = RESPONSE 'dir di partenza
        .SearchSubFolders = True  'ricerca ricorsiva nelle sottodir
        .FileName = "*.*" 'nome del file (anche con caratteri jolly)
            If .Execute() > 0 Then
                'Debug.Print "Trovati " & .FoundFiles.Count & " file."
                MsgBox "Trovati " & .FoundFiles.Count & " file.", 
vbExclamation, "FILE PRESENTI IN A:"
                Set dbs = CurrentDb
                Set RST = dbs.OpenRecordset("ELENCO_FILE")
                Set QDF = dbs.QueryDefs("AZZERA_ELENCO")
                QDF.Execute
            For i = 1 To .FoundFiles.Count
                'Debug.Print .FoundFiles(i) 'path+nome dei file trovati
                nomefile = .FoundFiles(i)
                With RST
                .AddNew
                !PERCORSO = nomefile
                .Update
                End With
            Next i
            Else
                MsgBox "Nessun file trovato."
            End If
        End With
Me!Elenco19.Requery
End Sub
************************************************************************
Si tratta di una funzione presa dal sitocomune che ha sempre funzionato 
egregiamente.
Dopo essere passato a windows XP, l'esecuzione di questa funzione provoca il 
blocco di A97 su questa riga di codice:
-------------------------------------------------------------
.FileName = "*.*" 'nome del file (anche con caratteri jolly)
-------------------------------------------------------------
e dà questo messaggio di errore:
--------------------------------------------------------------------------
Errore di run-time '5' - Chiamata di routine o argomenti non validi.
--------------------------------------------------------------------------
Ho pensato che la causa potesse essere windows XP in quanto questo sistema 
operativo ha delle protezioni che non consentono
le modifiche di alcuni tipi di files e l'utilizzo dei caratteri jolly da 
codice VBA, ma quando ho tradotto tutta l'applicazione in A2000
ed ho visto che tutto funziona normalmente, non so più cosa pensare.
Ciao,
Nicola Giannotti 

 Giannik4
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

Grazie, ho seguito il tuo consiglio ed ho risolto.