Har brug for et billedfeldt i Access database.

I would suggest that you only save the path+filename of each picture in your database. Access can stor teh actual picture butit does have a max size of 2Gb and picture can fill quite a lot.

OK, men hvordan gør jeg så helt præcist det.
Databaseb skal udelukkende køre intern på min PC.

Private Sub DocumentName_DblClick(Cancel As Integer)
   
    GetDocument
   
    If IsNull(Me.AXComDlg.filename) Or Me.AXComDlg.filename = "" Then
    ' We don 't want to alter the previous data
        Exit Sub
       
    End If
   
    Me.DocumentName = Me.AXComDlg.FileTitle
    Me.DocumentLink = Left(Me.AXComDlg.filename, InStr(1,      Me.AXComDlg.filename, Me.AXComDlg.FileTitle, 1) - 2)
   
End Sub

Public Function GetDocument()
Dim InitDir As String

    ' Set CancelError is True
   
    Me.AXComDlg.CancelError = True
    Me.AXComDlg.DialogTitle = "Link Document"
   
    On Error GoTo Err_GetDocument
    ' Set flags
    Me.AXComDlg.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist
    ' Set filters
 
    Me.AXComDlg.Filter = "All Files (*.*)|*.*"
   
    If Not IsNull(Me.DocumentName) Then
        Me.AXComDlg.InitDir = Me.DocumentLink
    End If
       
    ' Specify default filter
    Me.AXComDlg.FilterIndex = 2
    ' Display the Open dialog box
    Me.AXComDlg.ShowOpen
    ' Display name of selected file

Exit_GetDocument:
    Exit Function
   
Err_GetDocument:
    'User pressed the Cancel button
    Exit Function

End Function

Private Sub cmdViewDocument_Click()
Dim result As Integer
   
   
    On Error GoTo Err_cmdViewDocument_Click
   
    If Not IsNull(Me.DocumentID) Then
   
        result = ShellExecute(0, "Open", Me.DocumentName, "", Me.DocumentLink, SW_SHOW)

        If result < 32 Then
            msgBox "Couldn't open file ...", vbInformation
       
        End If
   
    End If
   
Exit_cmdViewDocument_Click:
    Exit Sub

Err_cmdViewDocument_Click:
    msgBox Err.Description
    Resume Exit_cmdViewDocument_Click

End Sub

Explanation:
You need a common dialog control on your form and name itAXComDlg.
You need a text field in your table named DocumentName and one named DocumentLink.
Then you add the DocumentName to the form.

Then in the double click property for DocumentName you set it to [Event Procedure]

Then you place a button on the form named cmdViewDocument and set its click event to [Event Procedure]

When you double click on the DocumentName field the dialog box will open so that you can find the .jpg file for the record. This will display the file name and also save the path to the file.

When you press the button the selected records picture will be displayed in th eprogram which is associated to this file type.

Think thats it.

Tilføj et felt med typen OLE-Object.
Derefter tilføjer du billederne i Formularen samtidig med at du indskriver de andre data. Højreklik på billedfeltet og følg anvisningen.

hi johs_j>see my answer 13:14! Yes its as easy as you say but it does give problems!

perj>hows it going?

Hvorfor får jeg kun et IKON i billedfeltet ?
Jeg har valgt OLE-bundet Object - er det forkert?

Det kan skyldes at Acces måske ikke kan vise jpg-filer på grund af kompressionen i disse typer. Prøv at konvertere billederne til BMP.

perj>hows it going here?

Hej Perj!

Gør som johs_j siger! tilføj et felt med typen ole-objekt.
og tilføj derefter hændelsen:

Private Sub billede_Enter()
billede.Class = "Photo Editor 3.0-billed"    ' Set class name.
    ' Specify type of object.
    billede.OLETypeAllowed = acOLELinked
    ' Specify source file.
    billede.SourceDoc = "C:\Mappenavn?\" & navn & ".jpg"
    ' Specify data to create link to.
      billede.Action = acOLECreateLink
    ' Adjust control size.
    billede.SizeMode = acOLESizeZoom
End Sub

Bemærk at nr bem i "C:\Mappenavn?\" & nr bem & ".jpg" er nr bem i din database!
Kald derfor billederne de numre der passer til databasen..

Husk du skal have photoed installeret den ligger evt. på din office cd! Det skulle også løse problemet med at du kun kan se ikoner...

hilsen martin

perj! Hows it going?

Tak for svarerne. Jeg løste problemet på en anden måde (Delphi), men kan bruge jeres svar i en anden forbindelse.

Til peri:
Jeg har samme problem. Har du noget imod at fortælle om din løsning på problemet. På forhånd tak.