Hente billeder ind i form, men lagre den i en folder

place an image object on your form. You may have to place a picture in it, but that can be deleted afterwards.

then you can use the following to show the picture

Me.TheImgageObject.Picture = "D:\SomePicture.BMP"

Hej Terry
Tænkte på lidt mere kompliceret. At jeg havde en knap "Select picture" så kunne man vælge en billede til at indsætte.
Jan (amatøren)

OK, du you have anything against using the common dialog control to find the picture?

Nej det er ok, jeg har en del forms som allerede bruger common dialog control.

hvor jeg indsætter links til forskellige dokumenter

Har allerede en kode som åbner en specifik folder
Option Compare Database

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Function LaunchCD(strform As Form) As String
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = strform.Hwnd
    sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
      "JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = "\\server\server\company shared folders\relief"
    OpenFile.lpstrTitle = "Select a file from the RELIEF folder on the SERVER"
    OpenFile.flags = 0
    lReturn = GetOpenFileName(OpenFile)
        If lReturn = 0 Then
            MsgBox "A file was not selected!", vbInformation, _
              "Select a file from the RELIEF folder on the SERVER"
        Else
            LaunchCD = Trim(OpenFile.lpstrFile)
        End If
End Function

Yes I was just writing this

Jan, if you have already implemented routines for inserting links to ducuments then you ALREADY HAVE something you can use. You do it in just the same way but at the same time you put the path+filename in the dB you use the line of code I gave in my answer to show it on the form.

Then you obviously need to show the picture each time you go to this record.

You could use something like this for doing this in the forms on current event

Private Sub Form_Current()
    If Not IsNull(Me.LinkToPicture) Then
        Me.TheImage.Picture = Me.LinkToPicture
    Else
        Me.TheImage.Picture = ""
       
    End If

End Sub

Hej Terry

Skal der oprettes noget felt i en db og skal der oprettes et object felt på formen?

Jan

yes you are going to need a field in the table for storing the path and file name. You dont need a field on the form unless you want to see the path.

Hej Terry
Jeg sidder og "fjoger" så lige et par tillægsspørgsmål.
me.linkToPicture er det felt som jeg opretter i databasen, som hyperlink
me.TheImage.Picture, hvad er det, jeg får hele tiden debug error

Jan

me.TheImage is the image object you need on th eform to display the picture
me.TheImage.Picture is the picture property which will contain the path+filename (me.LinkToPicture)

me.LinkToPicture is the name of a field on the form IF you do NOT have a field on the form for displaying the path+filename then use
me!LinkToPicture where LinkToPicture is the name of the field in the table which contains the path+filename.
You need to re-name these fields/objects to reflect the names in your dB.

Hope that clears things up Jan

You need to ren

Hej Terry. Jeg giver op.! Er klar over at det er ret nemt, men det er ikke min dag.
Jan

OK, you can try again tomorrow :o)

Hej Terry
Så fik jeg mit billede ind på formen, så nu har jeg et andet problem, hvis nu nogen sletter billedet, så får jeg en debug error, hvad kan jeg gøre ved det? Pointene er til dig...

Private Sub Form_Current()

    If Not IsNull(Me!Ekstra4) Then
        Me!Billede.Picture = Me!Ekstra4
        Else
        Me!Billede.Picture = "(none)"
    End If


End Sub