access billede

jeg glemte det sidste jeg vil gerne have at brugeren af database let kan tilføje et billede til en medarbejde eks. ved at klikke på en knap gennemse og her kan kan vælge et billede fra harddisken.

I would suggest that you use the common dialog control (file open) to browse aftter your pictures.

Its is NOT a good idea to store the pictures in the database, only the path+filename. Then you can place an image control on the form an duse this to display the picture.

Me.YourImageControl.Picture = "Me.YourPathFileName

Me.YourImageControl.Picture = Me.YourPathFileName

Jeg har et eksempel du må få. Jeg benytter det til nøgagtig det samme som dit formål.

mugs jeg vil meget gerne se det.. :-)

Hvis du lægger din e-mail, sender jeg så snart jeg er hjemme fra arbejde.

olano@coldplay.dk

Til SMÅ datamængder kan følgende nok også bruges:

I tabellen laves et felt af typen OLE-object.
I formen laves en control af typen Bundet objektramme. Denne skal som kontrolkildeelement have angivet feltet fra tabellen.

For at fylde posterne med billeder brugte jeg stifinderen, og med drag-and-drop hev jeg billederne over på billedfeltet i formen.
Det giver ganske vist ikke nogen fin knap til at åbne en File-open box, som Terry skriver, men det virker. Quick and Dirty!

Sendt.

En knap med denne kode åbner en i forvejen valgt mappe.

Private Sub CommandButton1_Click()

Dim Mappesti As String
Dim retval
   
    Mappesti = "C:\Programmer\Mappenavn"
    retval = Shell("EXPLORER " & Mappesti, 1)

End Sub

rosco -> Og hvordan hente et billede ind i formularen?

Mugs > håber du er i den gavmilde hjørne - jeg kunne også godt tænke mig at se dit eksempel...

På forhånd tak

kaj@christiansen.mail.dk

mugs tag for det gode database men i database "db46" når man vælger et billede via "skift billede" henter den stien men åbener også billede i paint. kan man ikke få den til at lade vær med at åbene paint..?

tag =tak

Der er tidligere blevet spurgt om dette, men det er aldrig lykkedes. Men jeg vil, når jeg kommer hjem, prøve med en anden løsning.

kkc -> Jeg sender, når jeg er hjemme fra arbejde.

Tak for det mugs

Sendt til kkc.

Mugs: jeg bruger selv denne.
et tekstfelt til billednavn. Og så denne kode.

Private Sub Form_Current()
    ' Hvis vi har et billede så vis det ellers tomt felt
    If Not IsNull(Me!Billednavn) Then 'CurrentProject.Path , mappen Billeder ligger i programmets mappe.
        Me!Billede.Picture = CurrentProject.Path & "\Billeder\" & Me!Billednavn
        Else
        Me!Billede.Picture = ""
    End If
End Sub

Men du havde måske en løsning hvór man hentede kunne hente billedsti og navn ved at klikke på billedet i sin mappe.
det ville være smart.

rosco -> du kan ved et klik starte stifinderen og derved vælge et billede. Læg din e-mail så sender jeg et eksempel. Hvis ellers eksperten ikke snart opgiver ævred!!!!

Sorry :)jeg var på vej i seng da jeg skrev kommentaren.
erlenbach@adslhome.dk

Eksempel sendt til rosco.

hej Mugs - jeg ville gerne se dit eksempel. Har lavet en db til registrering af medlemmer, og ville gerne tilføje billederne.

Takker på forhånd.
(send til farooq@hwarang.dk)

Tak.

Sendt til rashid.

tak mugs - du er helt fin til at dele. Synes du skulle vide det.

hilsen

Farooq

Tak skal du have.

jeg har fået det jeg skal bruge tak mugs din løsning er kanon

Tak skal du have.

Var det muligt at få løsningen vist her?
Jeg vil også gerne se den. Evt. send venligst også til mig; yxos@geismar.biz.

yxos -> Løsningen er alt for kompleks til at blive vist her. Sender den.