Access Incorporer des images dans un état
Résolu
stomec62
Messages postés
11
Statut
Membre
-
lapon -
lapon -
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
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
A voir également:
- Access Incorporer des images dans un état
- Des images - Guide
- Remettre pc etat usine - Guide
- Etat disque dur - Télécharger - Informations & Diagnostic
- Acer quick access ✓ - Forum PC portable
- Comment insérer des images dans un document word - Guide