Een Sub directory openen

[OctaFish]

Geen probleem. In een ander draadje dat nu loopt (die over de foto's laten zien) gebruik ik die variant. Bekijk hem maar, er zit inmiddels een db in de draad.

 

[Rene71]

bedankt, ik ga het opzoeken

 

[Palmpje60]

Hallo OctaFish,

Dankje voor het bericht en correctie, ik was er nog niet mee begonnen, als het gelukt is laat ik het weten.

Groet Palmpje60

 

[Palmpje60]

Hallo OctaFish,

Ik vind het heel erg vervelend dat ik met vragen kom, maar ik ben er al zo lang uit betreffende Access, en ben een hoop vergeten. (zal wel aan de leeftijd liggen)

Maar ik moet u toch teleur stellen betreffende het stukje code die u gaf, er zit een foutje in.

Het gaat om de volgende regel .CurrentProject.Path & "\Covers" deze regel wordt rood, er word een expressie verwacht.
Bij "&" gaat het fout daar blijft de cursor op staan.

Groet Palmpje60

 

[edmoor]

Wijzig het eens in dit:

Private Sub knpZoekAfbeelding_Click()
    Dim fd As Office.FileDialog

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .InitialFileName = CurrentProject.Path & "\Covers"
        .AllowMultiSelect = False
        If .Show = -1 Then Me.TxtLocatie = .SelectedItems(1)
    End With
End Sub

 

[OctaFish]

Klopt; de punt moest weg. Te snel knippen en plakken .

 

[edmoor]

Maken we verder geen punt van

 

[Palmpje60]

Beste OctaFish en edmoor,

Mag ik jullie beiden heel hartelijk danken voor de hulp die geboden is, en zeker ook voor het geduld met mij.
Maar ik kan vermelden dat het nu wel werkt, ik ga meteen naar betreffende directory, ik ben weer een gelukkig mens, nogmaals mijn dank.

Groeten Palmpje60