Avatar billede gp Nybegynder
24. juli 2002 - 13:25 Der er 9 kommentarer og
1 løsning

Vis billeder

I forbindelse med min db skal vise billeder bruger jeg følgende:
Private Sub Form_Current()

    ' Hvis vi har et billede så vis det ellers tomt felt
If Me.Billede.Picture <> "" Then
        Me!Billede.Picture = Me.Picturessti & Articelno & ".bmp"
Else
        Me!Billede.Picture = Me.Picturessti & "tom.bmp"
End If

End Sub

I Me!VarebilledePath indgår et artikel nr. som også er billeds navn ex. J6778.bmp. Der er ikke altid at billded er der, hvordan ændre jeg så ovenstående til ikke at komme med en box der fortæller at billed/filen ikke findes. N.B. artikel nr skal altid udfyldes.

GP
Avatar billede gp Nybegynder
24. juli 2002 - 13:26 #1
Sorry!!!
Skrive fejl Me!VarebilledePath = Me.Picturessti & Articelno & ".bmp"

GP
Avatar billede mugs Novice
24. juli 2002 - 13:49 #2
If Not IsNull(Me!Billede.Picture) Then
Me!Billede.Picture = Me.Picturessti & Articelno & ".bmp"

Jeg har en lille testdb i Access97. Læg din e-mail hvis du vil have den tilsendt. (Fungerer også i 2000).
Avatar billede gp Nybegynder
24. juli 2002 - 13:59 #3
Mugs!

Ja det virker godt nok hvis billedfilen findes, med hvis nu der ikke er en billed fil endnu havd så?

Ex.
Me.Picturessti = c:\db\bmp\
Me.Articelno = J6778
så bliver Me!Billede.Picture = c:\db\bmp\J6778.bmp
hvilket er godtnok hvis filen J6778.bmp findes, men hvis nu filen ikke finden der endnu hvad så, Articelno skal jo være der eller er der ingen varer oprettet.

GP
Avatar billede terry Ekspert
24. juli 2002 - 15:07 #4
Private Sub Form_Current()

    ' Hvis vi har et billede så vis det ellers tomt felt
If Me.Billede.Picture <> "" Then
        Me!Billede.Picture = Me.Picturessti & Articelno & ".bmp"
Else

        msgbox "Picture cant be found"
'You could also display a bmp with some text saying no picture found
        Me!Billede.Picture = Me.Picturessti & "C:\db\bmp\NoPicture.bmp"
End If

End Sub
Avatar billede gp Nybegynder
26. juli 2002 - 09:46 #5
Terry,

Nej jeg vil ikke have en beskedbox! Sagen er at hvid filen ex. J6778.bmp ikke findes skal den bare vise filen tom.bmp. Mit problem er at articelno altid er der og derfor hvis jeg bruger
If Me.Billede.Picture <> "" Then ...
så kigger den efter en fil som ikke finden men Me.Billede.Picture vil jo ikke være tomt "".
Det er Me.Billede.Picture skal være <> fra de filer der ligger på min C:\db\bmp\ , jeg ved bare ikke hvordan der skriver dette.

GP
Avatar billede mugs Novice
26. juli 2002 - 13:10 #6
Kan du ikke blot forlade procedÿuren hvis billedet ikke findes sådan:

If Me.Billede.Picture <> "" Then
Me!Billede.Picture = Me.Picturessti & Articelno & ".bmp"
Else
Exit Sub
End If
Avatar billede gp Nybegynder
26. juli 2002 - 13:30 #7
Nej fordi Me.Billede.Picture  vil aldrig være tom, den vil altid have Me.Picturessti & Articelno & ".bmp", da articelno ikke kan være tom, jeg kan ikke have et produkt uden artikel nr.
Avatar billede terry Ekspert
26. juli 2002 - 18:11 #8
This is another way to do it

Private Sub Command1_Click()

On Error GoTo NoPicture
Me.Billede.PictureType = 1 'Linked
Me!Billede.Picture = Me.Picturessti & Articelno & ".bmp"
   
Exit Sub
 
NoPicture:
    Me!Billede.Picture = Me.Picturessti & "tom.bmp"
End Sub
Avatar billede gp Nybegynder
27. juli 2002 - 10:13 #9
Terry,

Helt perfekt!!

Glenn P.
Avatar billede terry Ekspert
27. juli 2002 - 10:55 #10
great, and thanks :o)
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