Avatar billede amiedk Nybegynder
04. september 2003 - 10:26 Der er 5 kommentarer og
1 løsning

Billeder i database

Hejsa
Så kæmper jeg med billeder..

Jeg har i min medarbejder tabel 2 celler
Billede
Billedested

I min form har jeg sat denne kode ind :

Private Sub Form_Current()
    If Not IsNull(Me!billedested) Then
    Me!Billede.Picture = Me!billedested & Me!Billede
    Else
    Me!Billede.Picture = ""
    End If
End Sub

Det virker ikke.

I min billede celle står der DCP_0422.jpg
I min billedested celle står der c:\privat\
( har sat det samme ind for alle medarbejder, bare for at få det til at virke )

Skal jeg lave et helt nyt objekt i min form ?? Skal mine to billede celler i medarbejder tabellen være Tekst eller OLE Object ??

Har jeg bare misforstået det hele ?? hehe

Pleace hjælp :)
Malene
Avatar billede bennytordrup Nybegynder
04. september 2003 - 10:29 #1
Prøv med LoadPicture

Me!Billede.Picture = LoadPicture(Me!Billedested & Me!Billede)
Avatar billede thor.ostergaard Nybegynder
04. september 2003 - 10:35 #2
I din tabel skal billede og billede sted være tekstfelt.
På din formular skal du oprette et billede objekt som du skal henvise til i din kode:
Me!Billede.Picture 
Så er bør den måske i stedet stå
Me!objBillede.Picture (eller hvad du nu vælger at kalde dit objekt.
Jeg har skrevet lidt om det her:
http://www.kursusmaterialer.dk/Access%20VBA/Formularer/Billeder.aspx
Avatar billede amiedk Nybegynder
04. september 2003 - 10:49 #3
Det er sgu gået helt galt nu hehe roder rundt i alt mulig kode og ved hat om hvad jeg laver hehe .. er der ikke en af jer jeg kan sende en lille base til som kan vise mig hvad hvad det er jeg gør galt ??
Avatar billede mugs Novice
04. september 2003 - 10:50 #4
Umiddelbart ser det korrekt ud. Felterne i din tabel skal være tekst. koden skal indsættes i formularens OnCurrent event.

Jeg vil skyde på, at fejlen ligger i dit billede på formen. Me!Billede skal være et billedefelt, der modtager billedet fra dit billedested.

Jeg kan sende dig en vejledning når jeg er hjemme fra arbejde.
Avatar billede amiedk Nybegynder
04. september 2003 - 11:18 #5
Ja det kunne være cool hvis ikke der er nogen andre der kan hjælpe inden :)
amie@tiscali.dk

Jeg roder videre.. hvis jeg løser problemet skal jeg nok skrive :)
Avatar billede amiedk Nybegynder
04. september 2003 - 12:53 #6
Jeg har fået det til at virke.

Private Sub Form_Current()
    If Not IsNull(Me!billedested) Then
    Me!Billede.Picture = Me!billedested

    Else
    Me!Billede.Picture = ""
    End If
End Sub

Hvordan ved jeg ikke hehe lige pludselig så var den der bare :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester