Ανανέωση ιστοσελίδας

[triton21]

Με access 2010 ναι

[Tasos]

Δοκίμασε το παρακάτω:

Αντικατέστησε την πρώτη γραμμή:

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

με τον παρακάτω κώδικα:

Option Compare Database
Option Explicit

#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) _
                As LongPtr
    #Else
        Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
    #End If
#Else
        Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
#End If

και πες μας αν έγινε.

Φιλικά

Τάσος

[triton21]

Τάσο είσαι αρχηγός!!!
Δουλεύει μια χαρά