Avatar billede christianaar Nybegynder
12. maj 2003 - 21:30 Der er 14 kommentarer og
1 løsning

VBA kode til håndtering af billed visning

Hej
jeg et problem i en access rapport hvor jeg bruger billeder linket fra HD. Problemet med koden jeg bruger er hvis der er en post hvor endnu ikke er linket et billede vises det sidst viste billede i rapporten, Jeg ville gerne have rapporten til at bare vise Blankt.
Koden jeg bruger er:
Option Compare Database
Option Explicit

Private Sub Gruppehoved0_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(Me!Foto1) Then
Me!Billede.Picture = Me!Foto1
Else
Me!Billede.Picture = ""
End If

End Sub
Avatar billede sblar Nybegynder
12. maj 2003 - 21:36 #1
Findes der ikke en Visible property for picture? I så tilfælde:
Private Sub Gruppehoved0_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(Me!Foto1) Then
Me!Billede.Picture = Me!Foto1
Else
Me!Billede.Picture.Visible = False
End If

End Sub
Avatar billede christianaar Nybegynder
12. maj 2003 - 21:50 #2
jeg prøver lige...
Avatar billede christianaar Nybegynder
12. maj 2003 - 21:53 #3
desværre den fejlmelder at "object required"
Avatar billede terry Ekspert
12. maj 2003 - 21:54 #4
Your Example should work!
Another idea is to maybe have a dummy picture, one showing "No Picture" or something. You could have name of this in another table

If Not IsNull(Me!Foto1) Then
Me!Billede.Picture = Me!Foto1
Else
Me!Billede.Picture = DFirst("DummyPicture", "SomeTable")
End If
Avatar billede terry Ekspert
12. maj 2003 - 21:55 #5
DummyPicture is th ename of a field in a table "SomeTable" and the field contains the fielname of your dummy picture
Avatar billede christianaar Nybegynder
12. maj 2003 - 21:55 #6
jeg prøver den...
Avatar billede christianaar Nybegynder
12. maj 2003 - 21:59 #7
jeg har oprettet tabellen og ændret koden men den svare tilbage "Type mismatch"
Avatar billede christianaar Nybegynder
12. maj 2003 - 22:06 #8
hej terry nu virker det, jeg manglede bare at skrive stien til dummy picture
Avatar billede christianaar Nybegynder
12. maj 2003 - 22:06 #9
points til Terry
Avatar billede christianaar Nybegynder
12. maj 2003 - 22:08 #10
Terry jeg mangler en mulighed for at give dig points
Avatar billede sblar Nybegynder
13. maj 2003 - 07:49 #11
Den med visible er nu god nok alligevel, syntaksen var bare forkert. Property Visible gælder selvfølgelig for selve billedet og ikke for billedets property Picture. sådan her skal det se ud:
Private Sub Gruppehoved0_Format(Cancel As Integer, FormatCount As Integer)
If Not IsNull(Me!Foto1) Then
Me!Billede.Picture = Me!Foto1
Else
Me!Billede.Visible = False
End If

End Sub
Avatar billede christianaar Nybegynder
13. maj 2003 - 07:53 #12
Sblar får points. Jeg kan desværre ikke give terry nogen da jeg ikke har noget åbnet svar fra ham... Tak for hjælpen
Avatar billede sblar Nybegynder
13. maj 2003 - 07:56 #13
Selv tak.
Avatar billede terry Ekspert
13. maj 2003 - 17:56 #14
there was an open question, unless you rejected it earlier!
Avatar billede christianaar Nybegynder
14. maj 2003 - 07:09 #15
Hej Terry, jeg har fået trykket afvist, så hvis du kunne åbne et svar så er der 45 points til dig....
Og tak for hjælpen
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