Billeder i formular og mange ens poster i samme database

Jeg viser jpg. / bmp. efter ønske.

Du må gerne sende din db, men jeg får ikke tid før iaften.

mugs@mail.dk

Det lyder fint den fylder ca 720 kb, er det i orden ?

When you install Access/Office you must select JPG as one of your graphic filters. If you havent then you  cant display them. You can install the filter to get it to work.

OK - Men husk at zippe den, ellers bliver den afvist.

Db er returneret. Den kører fint med .jpg billeder. Om hurup har valgt .jpg formatet som terry påpeger, kan jeg ikke vide.

Jeg har indsat et felt i tabllen der lagrer sti og navn til billede, som formularen henter ved en kode i formularens Vedaktuel. Efter samme princip som stry's artikel.

Dersuden en kode der ved tryk på en knap åbner stifinderen, så brugeren har mulighed for at indsætte / vælge et andet billede.

Holdk... det er smart det du har lavet, hatten af for det.
Ligger lige det modul som Mugs har lavet her også.

Mugs har du evt. en ide om en måde at man kan lave det mere smart med kunster, jeg synes det ser lidt underligt ud det jeg har fået lavet ???

1000 tak for hjælpen

Option Compare Database

Option Explicit
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) & _
"JPG 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 = "C:\Billede"
OpenFile.lpstrTitle = "Vælg en fil og tryk på Åbn."
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "Manglende fil!", vbInformation, _
"Du har ikke valgt en fil fra Stifinderen."
Else
LaunchCD = Trim(OpenFile.lpstrFile)
End If
End Function

Tak for point.
Nu skal jeg ikke have æren for modulet. Det har jeg tyvstjålet et eller andet sted.
På denne linie kan du ændre den default mappe, som stifinderen skal åbne i:

OpenFile.lpstrInitialDir = "C:\Billede"

Ser lige på det med kunstneren.

Hej Mugs

Det lyder bare rigtigt godt, jeg har fået sat billeder af de dvd der er inde i databasen, det ligner af lidt mere når man kan se hvad det er for en flim :)
Hej fra Jan

Det er korrekt.
Jeg har faktisk lavet en løsning m.h.t. kunstnere, så du skal ikke indtaste kunstnere. Data går bare tabt hvis du implementerer mit forslag. Mangler lidt finpudsning, men gør det færdigt senere iaften.

Øv det er surt, jeg har over 500 skuespiller ind i databasen nu ... men det må jeg tage som en oplevelse, har i alt små 4000 dvd titeler i base nu !!!

Hej fra jan

Kan du sende mig din versiob, så vil jeg prøve at redde data.

det gør med det samme

ups der skulle have stået gør det med det samme, sorry

Har ikke modtaget noget endnu.