Bonjour,
Dans un formulaire des images associés aux enregistrements fonctionnent
normalement sauf dans certains cas de façons aléatoires, en tout cas je n'en
vois pas la cause.
La fenêtre de recherche de la photo se bloque, reste à l'écran, je dois
quitter access 2003(fenêtre de recherche de la photo est tjs à l'écran)
alors, il me reste à relancer windows 2000 pro.
Merci de vos lumières
A Pol.
Private Sub Chemin_AfterUpdate()
Dim strChemin As String
On Error Resume Next
If IsNull(Me!Chemin) Then
Me!Photo.Picture = "C:\RepertoirePhotos\CalFoto.JPG"
Else
' Chemin d'accès à l'image = Répertoire de base + Nom de l'image
strChemin = Me!txtRepBase & "\" & Me!Chemin
' Charger l'image
Me!Photo.Picture = strChemin
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"A Pol"
Dans un formulaire des images associés aux enregistrements fonctionnent normalement sauf dans certains cas de façons aléatoires, en tout cas je n'en vois pas la cause. La fenêtre de recherche de la photo se bloque, reste à l'écran, je dois quitter access 2003(fenêtre de recherche de la photo est tjs à l'écran) alors, il me reste à relancer windows 2000 pro. Merci de vos lumières A Pol.
Private Sub Chemin_AfterUpdate() Dim strChemin As String
On Error Resume Next If IsNull(Me!Chemin) Then Me!Photo.Picture = "C:RepertoirePhotosCalFoto.JPG" Else ' Chemin d'accès à l'image = Répertoire de base + Nom de l'image strChemin = Me!txtRepBase & "" & Me!Chemin
' Charger l'image Me!Photo.Picture = strChemin End If End Sub
Mets ton "On error Resume next" en commentaire, et regarde ou il a mal...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"A Pol"
Dans un formulaire des images associés aux enregistrements fonctionnent
normalement sauf dans certains cas de façons aléatoires, en tout cas je n'en
vois pas la cause.
La fenêtre de recherche de la photo se bloque, reste à l'écran, je dois
quitter access 2003(fenêtre de recherche de la photo est tjs à l'écran)
alors, il me reste à relancer windows 2000 pro.
Merci de vos lumières
A Pol.
Private Sub Chemin_AfterUpdate()
Dim strChemin As String
On Error Resume Next
If IsNull(Me!Chemin) Then
Me!Photo.Picture = "C:RepertoirePhotosCalFoto.JPG"
Else
' Chemin d'accès à l'image = Répertoire de base + Nom de l'image
strChemin = Me!txtRepBase & "" & Me!Chemin
' Charger l'image
Me!Photo.Picture = strChemin
End If
End Sub
Mets ton "On error Resume next" en commentaire,
et regarde ou il a mal...
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Dans un formulaire des images associés aux enregistrements fonctionnent normalement sauf dans certains cas de façons aléatoires, en tout cas je n'en vois pas la cause. La fenêtre de recherche de la photo se bloque, reste à l'écran, je dois quitter access 2003(fenêtre de recherche de la photo est tjs à l'écran) alors, il me reste à relancer windows 2000 pro. Merci de vos lumières A Pol.
Private Sub Chemin_AfterUpdate() Dim strChemin As String
On Error Resume Next If IsNull(Me!Chemin) Then Me!Photo.Picture = "C:RepertoirePhotosCalFoto.JPG" Else ' Chemin d'accès à l'image = Répertoire de base + Nom de l'image strChemin = Me!txtRepBase & "" & Me!Chemin
' Charger l'image Me!Photo.Picture = strChemin End If End Sub
Mets ton "On error Resume next" en commentaire, et regarde ou il a mal...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
A Pol
Bonjour, Impec, il n'a plus mal. Et merci, merci, merci A Pol
"3stone" wrote in message news:%
Salut,
"A Pol"
Dans un formulaire des images associés aux enregistrements fonctionnent normalement sauf dans certains cas de façons aléatoires, en tout cas je n'en
vois pas la cause. La fenêtre de recherche de la photo se bloque, reste à l'écran, je dois quitter access 2003(fenêtre de recherche de la photo est tjs à l'écran) alors, il me reste à relancer windows 2000 pro. Merci de vos lumières A Pol.
Private Sub Chemin_AfterUpdate() Dim strChemin As String
On Error Resume Next If IsNull(Me!Chemin) Then Me!Photo.Picture = "C:RepertoirePhotosCalFoto.JPG" Else ' Chemin d'accès à l'image = Répertoire de base + Nom de l'image strChemin = Me!txtRepBase & "" & Me!Chemin
' Charger l'image Me!Photo.Picture = strChemin End If End Sub
Mets ton "On error Resume next" en commentaire, et regarde ou il a mal...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Bonjour,
Impec, il n'a plus mal.
Et merci, merci, merci
A Pol
"3stone" <threestone@cielreseau.be> wrote in message
news:%23lOhPCrjEHA.3876@TK2MSFTNGP15.phx.gbl...
Salut,
"A Pol"
Dans un formulaire des images associés aux enregistrements fonctionnent
normalement sauf dans certains cas de façons aléatoires, en tout cas je
n'en
vois pas la cause.
La fenêtre de recherche de la photo se bloque, reste à l'écran, je dois
quitter access 2003(fenêtre de recherche de la photo est tjs à l'écran)
alors, il me reste à relancer windows 2000 pro.
Merci de vos lumières
A Pol.
Private Sub Chemin_AfterUpdate()
Dim strChemin As String
On Error Resume Next
If IsNull(Me!Chemin) Then
Me!Photo.Picture = "C:RepertoirePhotosCalFoto.JPG"
Else
' Chemin d'accès à l'image = Répertoire de base + Nom de l'image
strChemin = Me!txtRepBase & "" & Me!Chemin
' Charger l'image
Me!Photo.Picture = strChemin
End If
End Sub
Mets ton "On error Resume next" en commentaire,
et regarde ou il a mal...
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Bonjour, Impec, il n'a plus mal. Et merci, merci, merci A Pol
"3stone" wrote in message news:%
Salut,
"A Pol"
Dans un formulaire des images associés aux enregistrements fonctionnent normalement sauf dans certains cas de façons aléatoires, en tout cas je n'en
vois pas la cause. La fenêtre de recherche de la photo se bloque, reste à l'écran, je dois quitter access 2003(fenêtre de recherche de la photo est tjs à l'écran) alors, il me reste à relancer windows 2000 pro. Merci de vos lumières A Pol.
Private Sub Chemin_AfterUpdate() Dim strChemin As String
On Error Resume Next If IsNull(Me!Chemin) Then Me!Photo.Picture = "C:RepertoirePhotosCalFoto.JPG" Else ' Chemin d'accès à l'image = Répertoire de base + Nom de l'image strChemin = Me!txtRepBase & "" & Me!Chemin
' Charger l'image Me!Photo.Picture = strChemin End If End Sub
Mets ton "On error Resume next" en commentaire, et regarde ou il a mal...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
