Bijlagen toevoegen aan records

[Danny28]

Beste mensen,

Graag had ik teweten gekomen hoe ik bijlagen kan toevoegen aan mijn records in Access 2003. Het programma dat ik gemaakt heb is voor dossiers in de bouw op te volgen. Meer om meer moeten er fotos en documenten aan het dossier gekopeld worden.

Kan iemand mij hier mee helpen?

Bedankt

 

[OctaFish]

In dit voorbeeld van AccessPower zit een voorbeeld van hoe je foto's kunt koppelen aan een database.
Dezelfde techniek is uiteraard ook bruikbaar voor andere soorten documenten.

Met deze functie kun je bladeren naar een map, en bestanden selecteren die je wilt koppelen.

Function HaalBestand(Optional Titel As String) As String
Dim lngCount As Long, Result

    ' Aanroepen met (Call) HaalBestand("Typ een titel")
    With Application.FileDialog(msoFileDialogOpen)
        .Title = Titel
        .Filters.Add "Tekstbestanden", "*.csv", 1
        .Filters.Add "Alle bestanden", "*.*", 2
        .FilterIndex = 0
        .AllowMultiSelect = True
        Result = .Show
        If (Result <> 0) Then
            For lngCount = 1 To .SelectedItems.Count
                HaalBestand = HaalBestand & Trim(.SelectedItems.Item(lngCount))
                If lngCount < .SelectedItems.Count Then
                    HaalBestand = HaalBestand & "|"
                End If
            Next lngCount
        End If
    End With

End Function

Als de functie niet werkt, moet je waarschijnlijk de Microsoft Office Objects Library nog aanzetten in VBA.

 

[Danny28]

Probeer ik vanavond.

Bedankt