Affichage Pochette su formulaire Access
Bonjour le forum
désirant faire un afficahge de pochette sur un formulaire Access , j' ai trouvé en exemple un formulaire avec ce code ci dessous.
ce formuliare a un controle Webbrowser
le champ Photo de la table a des donnée de ce style
https://images-na.ssl-images-amazon....82,268_AL_.jpg
igne de commande suivante qui remonte les photos
Code:
s = s & "<img src ='" & .Fields("photo") & "'><div>"
Ma question est la suivante
Comment transformer cette ligne de commande pour lui dire d' aller chercher les phtos sur le disque avec comme chemin
d:\toto\tata\pochette\toto.jpg sachant que ce chemin est stocke dans une table
le code complet
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Private Sub genrpt()
Dim wb As WebBrowser
Set wb = WebBrowser0.Object
With wb.Document.body.Style
.backgroundcolor = "black"
.Color = "grey"
.FontSize = "10pt"
.FontWeight = "bold"
.fontfamily = "arial"
End With
With CurrentDb.OpenRecordset("select * from sheet1 order by [" & Combo1 & "]")
Do Until .EOF
s = s & "<span style='width:150px;vertical-align:top;margin:2px;'>"
s = s & "<img src ='" & .Fields("photo") & "'><div>"
s = s & .Fields("Name of movie") & " "
s = s & .Fields("year") & "</div>"
s = s & "<div style='font-size:20pt;'>"
s = s & "<span style='color:yellow;'>" & String(.Fields("rate_t"), "*") & "</span>"
s = s & "<span style='color:grey;'>" & String(5 - .Fields("rate_t"), "*") & "</span>"
s = s & "</div>"
s = s & "</span>"
.MoveNext
Loop
End With
wb.Document.body.innerhtml = s
End Sub |
Merci d' avance pour votre aide
Aladin
