Access Incorporer des images dans un état

Résolu/Fermé
stomec62 Messages postés 11 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 4 décembre 2007 - 4 déc. 2007 à 13:39
 lapon - 4 janv. 2008 à 20:31
Bonjour,
Me voilà à nouveau sur ce forum pour étaler mon incompétence dans Access 2003.
On m’a superbement aidé à reconstruire ma base de données qui comporte plus de 6000 photos.
Cela en sortant les photos de la base même
Cela fonctionne à merveille.
J’ai mes photos dans les formulaires.
Bravo et merci.

Mais je suis incapable de les remettre dans mes états.
J’utilise une requête et je pensais qu’il suffisait de copier le code « du formulaire »
Mais cela ne marche pas.
J’ai le message
« Expression sans paramètre »

Voilà ce que j’ai fait.

Private Sub Report_Open(Cancel As Integer)

Dim Chemin As String
Dim Nom1 As String
Dim Nom2 As String
Dim Numser As Long
On Error GoTo Err

Chemin = "C:\Photos\"
If IsNull(NomPhoto1) Then
Nom1 = ""
Else
Nom1 = NomPhoto1
End If

Rem If IsNull(NomPhoto2) Then
Rem Nom2 = ""
Rem Else
Rem Nom2 = NomPhoto2
Rem End If

Rem If Numserie = 0 Then
Rem Image1.Picture = Chemin & "PhotoVierge.jpg"
Rem Image2.Picture = Chemin & "PhotoVierge.jpg"
Rem Else
Rem Numser = Numserie
Rem End If

Rem If Nom1 = "" Then
Rem Image1.Picture = Chemin & "PhotoVierge.jpg"
Rem Else
Rem Image1.Picture = Chemin & CStr(Numser) & " (" & Nom1 & ").jpg"
Rem End If

Rem If Nom2 = "" Then
Rem Image2.Picture = Chemin & "PhotoVierge.jpg"
Rem Else
Rem Image2.Picture = Chemin & CStr(Numser) & " (" & Nom2 & ").jpg"
Rem End If

Err_Exit:
Exit Sub
Err:
MsgBox Error$
Resume Err_Exit

End Sub

Merci pour votre aide

3 réponses

pas clair pourquoi tout est en commentaire
0
stomec62 Messages postés 11 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 4 décembre 2007
4 déc. 2007 à 16:20
En effet, désolé
Je voulais tester des parties pour voir ou ça clochait. cela n'a rien donné.
Il faut retirer les REM.
0
Essaye de rajouter un Image1.visible = true, pour voir... Je l'ai fait aujourdhui et ça a fonctionné.
0