Je reviens sur un post précédent daté du 01/09/2005, et vais tenté d'être
plus clair :-)
Je développe en Access 2003.
J'ai une table ARTICLE(code_article, designation_article)
J'ai crée un formulaire lié à cette table (en consultation), sur lequel
j'affiche :
- le code_article
- sa désignation.
- une petite vignette image, visualisant une photo de l'article
J'ai activé dans le formulaire la barre de navigation me permettant de
passer d'une fiche article
à l'autre (MoveFirst, MovePrevious,....).
Je réactualise l'image avec le code VBA suivant.
\\
Private Sub Form_Current()
Dim fso as FileSystemObject
[...]
monImg = Form.RecordSet("code_article") & ".jpg"
If fso.FileExists(monImg) then
img.Picture = monImg
else
img.Picture = ""
end if
End Sub
\\
Lorsque l'utilisateur passe d'une fiche article à l'autre
et cela trop rapidemment - cad qu'il joue de la Zappette,
et ne laisse pas aux images le temps de se visualiser-
, Access génère une erreur critique qui nécessite
son arrêt avec ses procédures de maintenances.
Avez-vous une idée afin d'éviter ce "désagréement" ?
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,
Bug prog ? ;-)
"synopsis" | J'ai crée un formulaire lié à cette table (en consultation), sur lequel | j'affiche : | - le code_article | - sa désignation. | - une petite vignette image, visualisant une photo de l'article
Dans ce cas, pourquoi ne pas simplement faire:
If Dir([code_article] & ".jpg") <> "" then CtrlImage.Picture = Code_article & ".jpg" else CtrlImage.Picture = "" End if
"synopsis"
| J'ai crée un formulaire lié à cette table (en consultation), sur lequel
| j'affiche :
| - le code_article
| - sa désignation.
| - une petite vignette image, visualisant une photo de l'article
Dans ce cas, pourquoi ne pas simplement faire:
If Dir([code_article] & ".jpg") <> "" then
CtrlImage.Picture = Code_article & ".jpg"
else
CtrlImage.Picture = ""
End if
"synopsis" | J'ai crée un formulaire lié à cette table (en consultation), sur lequel | j'affiche : | - le code_article | - sa désignation. | - une petite vignette image, visualisant une photo de l'article
Dans ce cas, pourquoi ne pas simplement faire:
If Dir([code_article] & ".jpg") <> "" then CtrlImage.Picture = Code_article & ".jpg" else CtrlImage.Picture = "" End if
A mon avis cela ne change strictement rien... Que l'on passe par la vieille commande Dir et ou par le FileSystemObject
Ici, je vérifie simplement l'existence du fichier image..
C'est lorsque que l'on zappe de fiche en fiche que ca bug.
"3stone" a écrit dans le message de news:
Salut,
Bug prog ? ;-)
"synopsis" | J'ai crée un formulaire lié à cette table (en consultation), sur lequel | j'affiche : | - le code_article | - sa désignation. | - une petite vignette image, visualisant une photo de l'article
Dans ce cas, pourquoi ne pas simplement faire:
If Dir([code_article] & ".jpg") <> "" then CtrlImage.Picture = Code_article & ".jpg" else CtrlImage.Picture = "" End if
A mon avis cela ne change strictement rien...
Que l'on passe par la vieille commande Dir et ou par le FileSystemObject
Ici, je vérifie simplement l'existence du fichier image..
C'est lorsque que l'on zappe de fiche en fiche que ca bug.
"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
ePf1g5ItFHA.3316@TK2MSFTNGP12.phx.gbl...
Salut,
Bug prog ? ;-)
"synopsis"
| J'ai crée un formulaire lié à cette table (en consultation), sur lequel
| j'affiche :
| - le code_article
| - sa désignation.
| - une petite vignette image, visualisant une photo de l'article
Dans ce cas, pourquoi ne pas simplement faire:
If Dir([code_article] & ".jpg") <> "" then
CtrlImage.Picture = Code_article & ".jpg"
else
CtrlImage.Picture = ""
End if
A mon avis cela ne change strictement rien... Que l'on passe par la vieille commande Dir et ou par le FileSystemObject
Ici, je vérifie simplement l'existence du fichier image..
C'est lorsque que l'on zappe de fiche en fiche que ca bug.
"3stone" a écrit dans le message de news:
Salut,
Bug prog ? ;-)
"synopsis" | J'ai crée un formulaire lié à cette table (en consultation), sur lequel | j'affiche : | - le code_article | - sa désignation. | - une petite vignette image, visualisant une photo de l'article
Dans ce cas, pourquoi ne pas simplement faire:
If Dir([code_article] & ".jpg") <> "" then CtrlImage.Picture = Code_article & ".jpg" else CtrlImage.Picture = "" End if
"synopsis" |A mon avis cela ne change strictement rien... | Que l'on passe par la vieille commande Dir et ou par le FileSystemObject | | Ici, je vérifie simplement l'existence du fichier image.. | | C'est lorsque que l'on zappe de fiche en fiche que ca bug.
Puisque c'est ton avis...
C'est tu seulement ce que fait le "FileSystemObject" ?
"synopsis"
|A mon avis cela ne change strictement rien...
| Que l'on passe par la vieille commande Dir et ou par le FileSystemObject
|
| Ici, je vérifie simplement l'existence du fichier image..
|
| C'est lorsque que l'on zappe de fiche en fiche que ca bug.
Puisque c'est ton avis...
C'est tu seulement ce que fait le "FileSystemObject" ?
"synopsis" |A mon avis cela ne change strictement rien... | Que l'on passe par la vieille commande Dir et ou par le FileSystemObject | | Ici, je vérifie simplement l'existence du fichier image.. | | C'est lorsque que l'on zappe de fiche en fiche que ca bug.
Puisque c'est ton avis...
C'est tu seulement ce que fait le "FileSystemObject" ?
C'est la librairie de gestion des fichiers et des répertoires par excellence. Je l'utilise depuis longtemps dans d'autre environnement. Je n'ai jamais rencontré de pb.
En fait sur mon formulaire, j'ai plus de 150 contrôles dont une 40aine sont réactualisable à chaque changement , notamment des listboxs, un ctrl image, un graphique...
J'ai pris le parti de désactivé les curseurs MoveNext, MovePast, ..., tant que la page n'est pas réactualisée complétement. Ce qui est le comportement normal ; Bref j'interdis la zapette.
"3stone" a écrit dans le message de news:
"synopsis" |A mon avis cela ne change strictement rien... | Que l'on passe par la vieille commande Dir et ou par le FileSystemObject | | Ici, je vérifie simplement l'existence du fichier image.. | | C'est lorsque que l'on zappe de fiche en fiche que ca bug.
Puisque c'est ton avis...
C'est tu seulement ce que fait le "FileSystemObject" ?
C'est la librairie de gestion des fichiers et des répertoires par
excellence.
Je l'utilise depuis longtemps dans d'autre environnement. Je n'ai jamais
rencontré de pb.
En fait sur mon formulaire, j'ai plus de 150 contrôles dont une 40aine
sont réactualisable à chaque changement , notamment des listboxs, un ctrl
image, un graphique...
J'ai pris le parti de désactivé les curseurs MoveNext, MovePast, ..., tant
que la page n'est pas réactualisée complétement.
Ce qui est le comportement normal ; Bref j'interdis la zapette.
"3stone" <3stone_@_skynet_be> a écrit dans le message de
news:eIr39KKtFHA.3236@TK2MSFTNGP09.phx.gbl...
"synopsis"
|A mon avis cela ne change strictement rien...
| Que l'on passe par la vieille commande Dir et ou par le FileSystemObject
|
| Ici, je vérifie simplement l'existence du fichier image..
|
| C'est lorsque que l'on zappe de fiche en fiche que ca bug.
Puisque c'est ton avis...
C'est tu seulement ce que fait le "FileSystemObject" ?
C'est la librairie de gestion des fichiers et des répertoires par excellence. Je l'utilise depuis longtemps dans d'autre environnement. Je n'ai jamais rencontré de pb.
En fait sur mon formulaire, j'ai plus de 150 contrôles dont une 40aine sont réactualisable à chaque changement , notamment des listboxs, un ctrl image, un graphique...
J'ai pris le parti de désactivé les curseurs MoveNext, MovePast, ..., tant que la page n'est pas réactualisée complétement. Ce qui est le comportement normal ; Bref j'interdis la zapette.
"3stone" a écrit dans le message de news:
"synopsis" |A mon avis cela ne change strictement rien... | Que l'on passe par la vieille commande Dir et ou par le FileSystemObject | | Ici, je vérifie simplement l'existence du fichier image.. | | C'est lorsque que l'on zappe de fiche en fiche que ca bug.
Puisque c'est ton avis...
C'est tu seulement ce que fait le "FileSystemObject" ?
