Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

[VBA] Afbeelding uit OLE veld (ACCESS 2000) opslaan

Ben Lankamp
1 antwoord
  • Ik heb een tabel in een ACCESS 2000 database met daarin een (ongebonden) ole veld waarin afbeeldingen staan welke gekopieerd zijn uit Internet Explorer.
    Aangezien ik deze afbeeldingen nodig heb, wil ik deze gaan opslaan.
    (Het gaat om 900 afbeeldingen, dus als het enigzins kan niet met de hand)
    Ik heb het met de volgende code geprobeerd:
    [code:1:a6eb7a254d]
    ' Open de tabel
    Set db = CurrentDb()
    Set T = db.OpenRecordset("Table", dbOpenTable)
    ' Naar eerste record
    T.MoveFirst
    Do Until T.EOF
    ' Nieuwe bestandsnaam kiezen en opslaan
    Destination = "C:\afbeeldingen\" & T!ProductId & ".dib" ' in de bestanden welke gegenereerd worden staat DIB
    DestFile = FreeFile
    Open Destination For Binary As DestFile
    Put DestFile, , T!Image.value
    Close DestFile
    ' Naar volgende record
    T.MoveNext
    Loop
    MsgBox "Klaar"
    [/code:1:a6eb7a254d]
    Maar deze bestanden zijn dus niet te openen.
    Ook heb ik de code van http://support.microsoft.com/default.aspx?scid=KB;EN-US;q175261 omgebouwd, maar ook dit werkt niet.
    Iemand enig idee hoe ik dit kan oplossen? Of moet ik het toch met de hand gaan copy-pasten?

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.