Find billedfil i bibliotek - klik og vis

Jeg har et eksempel hvor du åbner stifinderen og vælger et billede - erefter åbnes billedet og stien lagres i Access. E-mail?

Prøv om du kan få ud af dette. Indlæs filnavne i tabel:

http://makeiteasy.dk/Home.asp?ContentID=30&MenuItemID=25

Hej jensen, blot til inspiration:

Jeg bruger nedenstående til at fylde en listboks med alle filer i en foruddefineret sti:

Private Sub FillFilesInCombo(CtlNavn As String, Mappe As String, FilType As String)
  Dim FilNavn As String
 
  With Me.Controls(CtlNavn)
    .Value = ""
    .RowSourceType = "Value List"
    .RowSource = ""
   
    FilNavn = Dir(Mappe & FilType, vbNormal)
    Do Until FilNavn = ""
      If .RowSource <> "" Then .RowSource = .RowSource & ";"
      .RowSource = .RowSource & FilNavn
      FilNavn = Dir
    Loop
    .Requery
  End With
End Sub

Private Sub Form_Open(Cancel As Integer)
  Call FillFilesInCombo("Combo1", "E:\Ad\", "*.rtf")
End Sub

Måske man så kunne indsætte et imagebox på formen og skrive ved dobbeltklik på listboksen:

Me!Imagebox.Picture = NavnPåListBoks

Nedenstående er testet og virker, dog vises ikke stien til filen, men kun filnavnet:

1. Opret en formular indsæt en listboks, navngiv listen lstfiles

2. Indsæt et billed på samme form, og fjern derefter stien til det indsatte billed.

3. Navngiv den den tomme billedramme ImageBox.

4. Indsæt nedenstående kode på formen.

Private Sub FillFilesInCombo(CtlNavn As String, Mappe As String, FilType As String)
  Dim FilNavn As String
 
  With Me.Controls(CtlNavn)
    .Value = ""
    .RowSourceType = "Value List"
    .RowSource = ""
   
    FilNavn = Dir(Mappe & FilType, vbNormal)
    Do Until FilNavn = ""
      If .RowSource <> "" Then .RowSource = .RowSource & ";"
      .RowSource = .RowSource & FilNavn
      FilNavn = Dir
    Loop
    .Requery
  End With
End Sub

Ved formens OnOpen event indsættes nedenstående kode:

Private Sub Form_Open(Cancel As Integer)
  Call FillFilesInCombo("lstfiles", "C:\Billeder\", "*.jpg")
End Sub

'Du skal naturligvis angive din egen sti.'

På listboksen lstfiles indsættes nedenstående kode på OnClick eventen på lstfiles:

Private Sub lstfiles_Click()
Me!ImageBox.Picture = Me!lstfiles
End Sub

Jeg tester i morgen ... er lidt træt i dag ... møgarbejdsdag

Kender det godt :o), men når du nu skal teste har der desværre indsneget sig en fejl i min kode, for at filen kan vises i billedrammen er det nødvendigt at kende hele stien til filen i selve listboksen lstfiles. nedenstående kode virker:

Dim Filnavn As String
 
  With Me.Controls(CtlNavn)
    .Value = ""
    .RowSourceType = "Value List"
    .RowSource = ""
   
    Filnavn = Dir(Mappe & FilType, vbNormal)
    Do Until Filnavn = ""
      If .RowSource <> "" Then .RowSource = .RowSource & ";"
      .RowSource = .RowSource & Mappe & Filnavn
      Filnavn = Dir
    Loop
    .Requery
  End With

go aften, og held og lykke med fodbolden :o)

Overbevisende god løsning :o)

Og det var ikke fodbolden som trak, men sengens glæder :o)

Tak for point, og forsat god arbejdslyst med projeket :o)

Anders > nu har jeg haft lejighed til at teste dit forslag igennem ... det virker men kan jeg på nogen måde undgå, at sti ( mappe ) også vises i listfiles ... altså således at kun filnavnet vises ... jeg kan godt se i dit første forslag, at du forsøgte ... og opgav ???

Hej jensen

Det kan lade sig gøre, har lige testet nedenstående forslag. Det er ikke så pænt, men det virker, prøv evt nedenstående:

1. Opret en ubunden tekstboks på din form navngiv den txt1.

Indsæt nedenstående kode, bemærk at her loades kun filnavn som i det oprindlige forslag i listfiles.

Private Sub FillFilesInCombo(CtlNavn As String, Mappe As String, FilType As String)
  Dim Filnavn As String
 
  With Me.Controls(CtlNavn)
    .Value = ""
    .RowSourceType = "Value List"
    .RowSource = ""
   
    Filnavn = Dir(Mappe & FilType, vbNormal)
    Do Until Filnavn = ""
      If .RowSource <> "" Then .RowSource = .RowSource & ";"
      .RowSource = .RowSource & Filnavn
     
      Filnavn = Dir
    Loop
    .Requery
  End With

End Sub

Indsæt nedenstående kode på listen lstfiles ved klik eventen, koden skriver som det første den foruddefineret sti i tekstboksen txt1, derefter "fanges" det filnavn der klikkes på i listen lstfiles og skrives efter den foruddefineret sti i txt1.

Private Sub lstfiles_Click()
Me.txt1 = ("C:\Billeder\") & Me.lstfiles
Me!Billedboks.Picture = Me.txt1
End Sub

Nu loades billed i din billedramme på baggrund af den sammensatte værdi i txt1, og ikke filnavnet i lstfiles. Jeg har testet det, og det virker. Indrømmet det ikke så pænt, men det virker. Man kan evt. skjule tekstboksn hvis man ønsker det.

Ups, Billedboks i ovenstående er naturligvis ImageBox :o)

Fandt en gangbar løsning hvor jeg kun ser filnavn i lstfiles

    .RowSource = .RowSource & Filnavn

og så har stien i en tabel

Sub lstfiles_Click()
Dim Folder As String
Folder = DLookup("[ImportFil]", "tblFilplacering", "[JobID] = 1")
    Me!Imagebox.Picture = Folder & Me!lstfiles
End Sub

Glimrende løsning :o), noget pænere end mit sidste forslag. Din løsning indeholder så vidt jeg kan vurdere en tabel, jeg troede ikke at det var en option her, så havede jeg nok kommet på noget andet :o)

God weekend

ilm :o)