Bonjour ou bonsoir
Access 2003
A l’ouverture d’un formulaire je charge des photos liées (chemin).c’est ok.
Sur bouton:chargement et copie du fichier image dans un dossier spécifié
avec message si doublon, c’est bon aussi……Mais…..
Si j’ai supprimé mon image par erreur ou autre je voudrais garder le lien
dans la table pas de problème non plus, le Hic je ne veux pas voir apparaître
le message
« ma base ne peut ouvrir le fichier C:\Program Files\NRS\Images\1 ;jpg »
J’ai essayé « DoCmd.SetWarnings False” sur "Private Sub Form_Current()" mais
sans succès.
je ne dois pas savoir l'utiser comme il faut.
Alors si quelqu'un a une piste ....
Un grand merci par avance
Private Sub Form_Current()
DoCmd.SetWarnings False
If Len(Me.RefRec) > 0 Then
If Len(Me.PicChemin10A) > 0 Then
fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) &
"Images\" & Me!PicChemin10A
Else
Me.Img10A.Picture = ""
End If
If Len(Me.PicChemin10A) = "" Then Exit Sub
Else
Me.Img10A.Picture = ""
End If
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
Pierre CFI [mvp]
bonjour je sais pas si je comprends bien
au début tu mets on error goto bye
a la fin bye: end sub si erreur tu sors
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer Access http://www.mpfa.info
"jfd" a écrit dans le message de news:
Bonjour ou bonsoir Access 2003 A l'ouverture d'un formulaire je charge des photos liées (chemin).c'est ok. Sur bouton:chargement et copie du fichier image dans un dossier spécifié avec message si doublon, c'est bon aussi..Mais... Si j'ai supprimé mon image par erreur ou autre je voudrais garder le lien dans la table pas de problème non plus, le Hic je ne veux pas voir apparaître le message « ma base ne peut ouvrir le fichier C:Program FilesNRSImages1 ;jpg » J'ai essayé « DoCmd.SetWarnings False" sur "Private Sub Form_Current()" mais sans succès. je ne dois pas savoir l'utiser comme il faut. Alors si quelqu'un a une piste .... Un grand merci par avance
Private Sub Form_Current() DoCmd.SetWarnings False
If Len(Me.RefRec) > 0 Then
If Len(Me.PicChemin10A) > 0 Then
fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) & "Images" & Me!PicChemin10A Else Me.Img10A.Picture = "" End If If Len(Me.PicChemin10A) = "" Then Exit Sub Else Me.Img10A.Picture = "" End If
Etc. Merci bien.
bonjour
je sais pas si je comprends bien
au début tu mets
on error goto bye
a la fin
bye:
end sub
si erreur tu sors
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"jfd" <jfd@discussions.microsoft.com> a écrit dans le message de news: 1758BBF9-7E50-4E89-9AB1-31389EE23BA1@microsoft.com...
Bonjour ou bonsoir
Access 2003
A l'ouverture d'un formulaire je charge des photos liées (chemin).c'est ok.
Sur bouton:chargement et copie du fichier image dans un dossier spécifié
avec message si doublon, c'est bon aussi..Mais...
Si j'ai supprimé mon image par erreur ou autre je voudrais garder le lien
dans la table pas de problème non plus, le Hic je ne veux pas voir apparaître
le message
« ma base ne peut ouvrir le fichier C:Program FilesNRSImages1 ;jpg »
J'ai essayé « DoCmd.SetWarnings False" sur "Private Sub Form_Current()" mais
sans succès.
je ne dois pas savoir l'utiser comme il faut.
Alors si quelqu'un a une piste ....
Un grand merci par avance
Private Sub Form_Current()
DoCmd.SetWarnings False
If Len(Me.RefRec) > 0 Then
If Len(Me.PicChemin10A) > 0 Then
fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) &
"Images" & Me!PicChemin10A
Else
Me.Img10A.Picture = ""
End If
If Len(Me.PicChemin10A) = "" Then Exit Sub
Else
Me.Img10A.Picture = ""
End If
Site pour bien commencer Access http://www.mpfa.info
"jfd" a écrit dans le message de news:
Bonjour ou bonsoir Access 2003 A l'ouverture d'un formulaire je charge des photos liées (chemin).c'est ok. Sur bouton:chargement et copie du fichier image dans un dossier spécifié avec message si doublon, c'est bon aussi..Mais... Si j'ai supprimé mon image par erreur ou autre je voudrais garder le lien dans la table pas de problème non plus, le Hic je ne veux pas voir apparaître le message « ma base ne peut ouvrir le fichier C:Program FilesNRSImages1 ;jpg » J'ai essayé « DoCmd.SetWarnings False" sur "Private Sub Form_Current()" mais sans succès. je ne dois pas savoir l'utiser comme il faut. Alors si quelqu'un a une piste .... Un grand merci par avance
Private Sub Form_Current() DoCmd.SetWarnings False
If Len(Me.RefRec) > 0 Then
If Len(Me.PicChemin10A) > 0 Then
fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) & "Images" & Me!PicChemin10A Else Me.Img10A.Picture = "" End If If Len(Me.PicChemin10A) = "" Then Exit Sub Else Me.Img10A.Picture = "" End If
Etc. Merci bien.
jfd
Merci Pierre Je pense que tu as très bien compris, mais j’ai toujours mon message avec ta solution on error goto bye a la fin bye: end sub
Peut être qui cloche dans mon code et qui provoque cela Merci bien
bonjour je sais pas si je comprends bien
au début tu mets on error goto bye
a la fin bye: end sub si erreur tu sors
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer Access http://www.mpfa.info
"jfd" a écrit dans le message de news:
Bonjour ou bonsoir Access 2003 A l'ouverture d'un formulaire je charge des photos liées (chemin).c'est ok. Sur bouton:chargement et copie du fichier image dans un dossier spécifié avec message si doublon, c'est bon aussi..Mais... Si j'ai supprimé mon image par erreur ou autre je voudrais garder le lien dans la table pas de problème non plus, le Hic je ne veux pas voir apparaître le message « ma base ne peut ouvrir le fichier C:Program FilesNRSImages1 ;jpg » J'ai essayé « DoCmd.SetWarnings False" sur "Private Sub Form_Current()" mais sans succès. je ne dois pas savoir l'utiser comme il faut. Alors si quelqu'un a une piste .... Un grand merci par avance
Private Sub Form_Current() DoCmd.SetWarnings False
If Len(Me.RefRec) > 0 Then
If Len(Me.PicChemin10A) > 0 Then
fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) & "Images" & Me!PicChemin10A Else Me.Img10A.Picture = "" End If If Len(Me.PicChemin10A) = "" Then Exit Sub Else Me.Img10A.Picture = "" End If
Etc. Merci bien.
Merci Pierre
Je pense que tu as très bien compris, mais j’ai toujours mon message avec
ta solution
on error goto bye
a la fin
bye:
end sub
Peut être qui cloche dans mon code et qui provoque cela
Merci bien
bonjour
je sais pas si je comprends bien
au début tu mets
on error goto bye
a la fin
bye:
end sub
si erreur tu sors
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"jfd" <jfd@discussions.microsoft.com> a écrit dans le message de news: 1758BBF9-7E50-4E89-9AB1-31389EE23BA1@microsoft.com...
Bonjour ou bonsoir
Access 2003
A l'ouverture d'un formulaire je charge des photos liées (chemin).c'est ok.
Sur bouton:chargement et copie du fichier image dans un dossier spécifié
avec message si doublon, c'est bon aussi..Mais...
Si j'ai supprimé mon image par erreur ou autre je voudrais garder le lien
dans la table pas de problème non plus, le Hic je ne veux pas voir apparaître
le message
« ma base ne peut ouvrir le fichier C:Program FilesNRSImages1 ;jpg »
J'ai essayé « DoCmd.SetWarnings False" sur "Private Sub Form_Current()" mais
sans succès.
je ne dois pas savoir l'utiser comme il faut.
Alors si quelqu'un a une piste ....
Un grand merci par avance
Private Sub Form_Current()
DoCmd.SetWarnings False
If Len(Me.RefRec) > 0 Then
If Len(Me.PicChemin10A) > 0 Then
fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) &
"Images" & Me!PicChemin10A
Else
Me.Img10A.Picture = ""
End If
If Len(Me.PicChemin10A) = "" Then Exit Sub
Else
Me.Img10A.Picture = ""
End If
Merci Pierre Je pense que tu as très bien compris, mais j’ai toujours mon message avec ta solution on error goto bye a la fin bye: end sub
Peut être qui cloche dans mon code et qui provoque cela Merci bien
bonjour je sais pas si je comprends bien
au début tu mets on error goto bye
a la fin bye: end sub si erreur tu sors
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer Access http://www.mpfa.info
"jfd" a écrit dans le message de news:
Bonjour ou bonsoir Access 2003 A l'ouverture d'un formulaire je charge des photos liées (chemin).c'est ok. Sur bouton:chargement et copie du fichier image dans un dossier spécifié avec message si doublon, c'est bon aussi..Mais... Si j'ai supprimé mon image par erreur ou autre je voudrais garder le lien dans la table pas de problème non plus, le Hic je ne veux pas voir apparaître le message « ma base ne peut ouvrir le fichier C:Program FilesNRSImages1 ;jpg » J'ai essayé « DoCmd.SetWarnings False" sur "Private Sub Form_Current()" mais sans succès. je ne dois pas savoir l'utiser comme il faut. Alors si quelqu'un a une piste .... Un grand merci par avance
Private Sub Form_Current() DoCmd.SetWarnings False
If Len(Me.RefRec) > 0 Then
If Len(Me.PicChemin10A) > 0 Then
fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) & "Images" & Me!PicChemin10A Else Me.Img10A.Picture = "" End If If Len(Me.PicChemin10A) = "" Then Exit Sub Else Me.Img10A.Picture = "" End If
Etc. Merci bien.
3stone
Salut,
"jfd" | Private Sub Form_Current() | DoCmd.SetWarnings False | | If Len(Me.RefRec) > 0 Then | | | | If Len(Me.PicChemin10A) > 0 Then | | | fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) & | "Images" & Me!PicChemin10A | Else | Me.Img10A.Picture = "" | End If | If Len(Me.PicChemin10A) = "" Then Exit Sub <========= incorrect | Else | Me.Img10A.Picture = "" | End If |
len() renvoie une valeur numérique et non une chaîne vide !!
la construction des if - then - else - end if n'est pas correcte non plus.
Bonsoir et merci Pierre Je viens de passer une bonne partie de ma journée à essayer de comprendre ayant des doutes sur ce code, mais je suis passablement perdu et le pire c'est que cela semble fonctioner normallement … Bref je tâtonne et j’avance petit à petit mais je vais essayer de revoir cela et surtout essayer de comprendre qui fait quoi….. PS si tu a un lien qui pourrait m’aider à comprendre la construction des if - then - else - end if je suis preneur.
Merci
Salut,
"jfd" | Private Sub Form_Current() | DoCmd.SetWarnings False | | If Len(Me.RefRec) > 0 Then | | | | If Len(Me.PicChemin10A) > 0 Then | | | fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) & | "Images" & Me!PicChemin10A | Else | Me.Img10A.Picture = "" | End If | If Len(Me.PicChemin10A) = "" Then Exit Sub <========= incorrect | Else | Me.Img10A.Picture = "" | End If |
len() renvoie une valeur numérique et non une chaîne vide !!
la construction des if - then - else - end if n'est pas correcte non plus.
Bonsoir et merci Pierre
Je viens de passer une bonne partie de ma journée à essayer de comprendre
ayant des doutes sur ce code, mais je suis passablement perdu et le pire
c'est que cela semble fonctioner normallement …
Bref je tâtonne et j’avance petit à petit mais je vais essayer de revoir
cela et surtout essayer de comprendre qui fait quoi…..
PS si tu a un lien qui pourrait m’aider à comprendre la construction des if
- then - else - end if je suis preneur.
Merci
Salut,
"jfd"
| Private Sub Form_Current()
| DoCmd.SetWarnings False
|
| If Len(Me.RefRec) > 0 Then
|
|
|
| If Len(Me.PicChemin10A) > 0 Then
|
|
| fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) &
| "Images" & Me!PicChemin10A
| Else
| Me.Img10A.Picture = ""
| End If
| If Len(Me.PicChemin10A) = "" Then Exit Sub <========= incorrect
| Else
| Me.Img10A.Picture = ""
| End If
|
len() renvoie une valeur numérique et non une chaîne vide !!
la construction des if - then - else - end if n'est pas correcte non plus.
Bonsoir et merci Pierre Je viens de passer une bonne partie de ma journée à essayer de comprendre ayant des doutes sur ce code, mais je suis passablement perdu et le pire c'est que cela semble fonctioner normallement … Bref je tâtonne et j’avance petit à petit mais je vais essayer de revoir cela et surtout essayer de comprendre qui fait quoi….. PS si tu a un lien qui pourrait m’aider à comprendre la construction des if - then - else - end if je suis preneur.
Merci
Salut,
"jfd" | Private Sub Form_Current() | DoCmd.SetWarnings False | | If Len(Me.RefRec) > 0 Then | | | | If Len(Me.PicChemin10A) > 0 Then | | | fLoadPicture Me!Img10A, Left(Path(), Len(Path()) - Len(Dir(Path()))) & | "Images" & Me!PicChemin10A | Else | Me.Img10A.Picture = "" | End If | If Len(Me.PicChemin10A) = "" Then Exit Sub <========= incorrect | Else | Me.Img10A.Picture = "" | End If |
len() renvoie une valeur numérique et non une chaîne vide !!
la construction des if - then - else - end if n'est pas correcte non plus.
