MS access probleem met het oproepen van een formulier

[JohanError]

Wanneer ik een bepaalde formilier oproep krijg ik een error "getimage" runtime error 94
Ik weet niet waar ik het moet gaan zoeken, wie kan helpen?

 

[BastS]

Dim FSO as object
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FileExists(Cstr(Full_path)) = True then
Set FSO = Nothing

Bovenstaande code werkt bij mij.

 

[OctaFish]

Beetje vreemd vind ik het dat je Full_Path als variant declareert en niet als string. Wat kan er anders in staan dan tekst? Kortom: maak het jezelf gemakkelijk en gebruik een stringvariabele als je met strings werkt. En met DIR kun je prima checken of een pad bestaat of niet.

 

[JohanError]

en waar moet ik die code schrijven?

 

[OctaFish]

Je hebt zelf een functie gemaakt die controleert of een foto bestaat of niet. Lijkt mij dat je daarin de nieuwe check opneemt. Ik zou het dus zo doen:

Public Function GetImage(obj As Object, FullPath As String)
    If Dir(FullPath) <> "" Then
        With obj
            .Picture = FullPath
            .Visible = True
        End With
    Else
        With obj
            .Picture = CurrentProject.Path & "\dummy.jpg"
            .Visible = False
        End With
    End If
End Function