Bien sûr que si mais je pense que tu commences à me connaître... :/
En ce jour exceptionnel du lundi 26/02/2007, tu nous as très généreusement gratifié du message suivant:
Bonjour ze Titi,
Et de baser en source de son état, une requête contenant LeMail:ExtracChaîne([Email];8) LeSite: ExtracChaîne([SiteWeb];8) et les autres champs
ça aurait été pas plus simple ?
J'enchaîne les conneries, j'aurais mieux fait de rester couché ce matin... Ce coup-ci, prenons notre temps...
Renomme les nouvelles étiquettes en USiteWeb et UEMail. Ensuite:
USiteWeb.Caption=Mid(SiteWeb,8) et UEmail.Caption=Mid(UEmail,8)
Et, stp, dis-moi que ça fonctionne !!! Je me sens mauvais sur ce coup... Désolé pour le temps perdu !
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
Guy
Réellement désolé
Meme Chose je vais déclarer les champs en text comme c'est pour la societe (ma societe cela n'est pas manipulé mais pour le plaisir de la connaissance je continuerais a chercher le pourqoui -- Amicalement et merci
"ze Titi" wrote:
J'enchaîne les conneries, j'aurais mieux fait de rester couché ce matin... Ce coup-ci, prenons notre temps...
Renomme les nouvelles étiquettes en USiteWeb et UEMail. Ensuite:
USiteWeb.Caption=Mid(SiteWeb,8) et UEmail.Caption=Mid(UEmail,8)
Et, stp, dis-moi que ça fonctionne !!! Je me sens mauvais sur ce coup... Désolé pour le temps perdu !
En ce jour mémorable du lundi 26/02/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Désolé mais cela évolue dans les messages d'erreurs
Nous avons maintenant une erreur 438
Propriété ou Méthode non géréé par cet Objet -- Amicalement et merci
"ze Titi" wrote:
Dans ce cas, remplace ces zones de texte par des étiquettes et modifie le code pour avoir le résultat suivant:
SiteWeb.Caption=Mid(SiteWeb,8) et EMail.Caption=Mid(EMail,8)
En ce jour exceptionnel du lundi 26/02/2007, tu nous as très généreusement gratifié du message suivant:
Ze Titi cela ne fonctionne toujours Pas
Tb Ma Société Npm Champs Type de Données SiteWeb Lien hypertexte
Rq Ma societe
Site Web
Etat Imp Facture Dans : En-tête d'état
Champ SiteWeb (en bleu Sousligné)
Dans :Section EntêteÉtat
Au formatage [Procédure événementielle] Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer) SiteWeb = Mid(SiteWeb, 8) End Sub
Même Motif même punition
Pour la beauté j'ai recreer mon enregistrement -- Amicalement et merci
"ze Titi" wrote:
C'est tout simplement parce que j'ai omis un détail... Il faut d'abord rendre les contrôles indépendants... Dans les propriétés des contrôles EMail et SiteWeb, vide le champ "Source contrôle" dans l'onglet "Données". Théoriquement, ça devrait beaucoup mieux se passer !
Dans ton message
Avant tout merci mais , Je continue et je vais essayer de m'améliorer
Dans l'évènement "Sur formatage" de ta section détail, place le code
suivant:
EMail=Mid(EMail,8) Site=Mid(Site,8)
J'ai donc suivi les conseils
1 ) dans la section entete j'ai placé le code
SiteWeb=Mid(SiteWeb,8)
Mais hélas j'ai un message d'erreur
Impossible d'attribuer une valeur à cet objet
erreur d'exécution '-2147352567(80020009)':
Meme combat pour
dans la section Pied j'ai placé le code
Email=Mid(Email,8)
Mais hélas j'ai un message d'erreur
Impossible d'attribuer une valeur à cet objet
erreur d'exécution '-2147352567(80020009)':
-- Amicalement et merci
"ze Titi" wrote:
Dans l'état, onglet Evenements dans les propriétés de la section Detail de l'état.
En ce jour exceptionnel du lundi 26/02/2007, tu nous as très généreusement gratifié du message suivant:
Bonjour Ze Titi,
Oui mais ou trove t-on la section détail de l'evenement sur formatage
Table, requete, Etat ou sur le formulaire -- Amicalement et merci
"ze Titi" wrote:
Bonjour Guy
Dans l'évènement "Sur formatage" de ta section détail, place le code suivant:
EMail=Mid(EMail,8) Site=Mid(Site,8)
Dis-nous !
Dans ton message
Bonjour à tous
Dans une table j'ai deux Lien hypertexte
un pour Email avec mailto: et l'autre pour le Site
Mais voila dur l'etat je vois aparitre le tout comment faire pour eliminer le Mailto: et le http:// de facon automatique
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
Réellement désolé
Meme Chose je vais déclarer les champs en text comme c'est pour la societe
(ma societe cela n'est pas manipulé mais pour le plaisir de la connaissance
je continuerais a chercher le pourqoui
--
Amicalement et merci
"ze Titi" wrote:
J'enchaîne les conneries, j'aurais mieux fait de rester couché ce
matin... Ce coup-ci, prenons notre temps...
Renomme les nouvelles étiquettes en USiteWeb et UEMail. Ensuite:
USiteWeb.Caption=Mid(SiteWeb,8)
et
UEmail.Caption=Mid(UEmail,8)
Et, stp, dis-moi que ça fonctionne !!! Je me sens mauvais sur ce
coup... Désolé pour le temps perdu !
En ce jour mémorable du lundi 26/02/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Désolé mais cela évolue dans les messages d'erreurs
Nous avons maintenant une erreur 438
Propriété ou Méthode non géréé par cet Objet
--
Amicalement et merci
"ze Titi" wrote:
Dans ce cas, remplace ces zones de texte par des étiquettes et modifie
le code pour avoir le résultat suivant:
SiteWeb.Caption=Mid(SiteWeb,8)
et
EMail.Caption=Mid(EMail,8)
En ce jour exceptionnel du lundi 26/02/2007, tu nous as très
généreusement gratifié du message suivant:
Ze Titi cela ne fonctionne toujours Pas
Tb Ma Société
Npm Champs Type de Données
SiteWeb Lien hypertexte
Rq Ma societe
Site Web
Etat
Imp Facture
Dans : En-tête d'état
Champ SiteWeb (en bleu Sousligné)
Dans :Section EntêteÉtat
Au formatage [Procédure événementielle]
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
SiteWeb = Mid(SiteWeb, 8)
End Sub
Même Motif même punition
Pour la beauté j'ai recreer mon enregistrement
--
Amicalement et merci
"ze Titi" wrote:
C'est tout simplement parce que j'ai omis un détail...
Il faut d'abord rendre les contrôles indépendants... Dans les
propriétés des contrôles EMail et SiteWeb, vide le champ "Source
contrôle" dans l'onglet "Données". Théoriquement, ça devrait beaucoup
mieux se passer !
Dans ton message <8676E5BC-ABD3-4F3E-9DCB-7BCB4C11D147@microsoft.com>
Avant tout merci mais ,
Je continue et je vais essayer de m'améliorer
Dans l'évènement "Sur formatage" de ta section détail, place le code
suivant:
EMail=Mid(EMail,8)
Site=Mid(Site,8)
J'ai donc suivi les conseils
1 ) dans la section entete j'ai placé le code
SiteWeb=Mid(SiteWeb,8)
Mais hélas j'ai un message d'erreur
Impossible d'attribuer une valeur à cet objet
erreur d'exécution '-2147352567(80020009)':
Meme combat pour
dans la section Pied j'ai placé le code
Email=Mid(Email,8)
Mais hélas j'ai un message d'erreur
Impossible d'attribuer une valeur à cet objet
erreur d'exécution '-2147352567(80020009)':
--
Amicalement et merci
"ze Titi" wrote:
Dans l'état, onglet Evenements dans les propriétés de la section Detail
de l'état.
En ce jour exceptionnel du lundi 26/02/2007, tu nous as très
généreusement gratifié du message suivant:
Bonjour Ze Titi,
Oui mais ou trove t-on la section détail de l'evenement sur formatage
Table, requete, Etat ou sur le formulaire
--
Amicalement et merci
"ze Titi" wrote:
Bonjour Guy
Dans l'évènement "Sur formatage" de ta section détail, place le code
suivant:
EMail=Mid(EMail,8)
Site=Mid(Site,8)
Dis-nous !
Dans ton message <F2DF1D65-47EE-45F3-B4EE-BFE7809F937C@microsoft.com>
Bonjour à tous
Dans une table j'ai deux Lien hypertexte
un pour Email avec mailto: et l'autre pour le Site
Mais voila dur l'etat je vois aparitre le tout comment faire pour
eliminer le Mailto: et le http:// de facon automatique
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Meme Chose je vais déclarer les champs en text comme c'est pour la societe (ma societe cela n'est pas manipulé mais pour le plaisir de la connaissance je continuerais a chercher le pourqoui -- Amicalement et merci
"ze Titi" wrote:
J'enchaîne les conneries, j'aurais mieux fait de rester couché ce matin... Ce coup-ci, prenons notre temps...
Renomme les nouvelles étiquettes en USiteWeb et UEMail. Ensuite:
USiteWeb.Caption=Mid(SiteWeb,8) et UEmail.Caption=Mid(UEmail,8)
Et, stp, dis-moi que ça fonctionne !!! Je me sens mauvais sur ce coup... Désolé pour le temps perdu !
En ce jour mémorable du lundi 26/02/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Désolé mais cela évolue dans les messages d'erreurs
Nous avons maintenant une erreur 438
Propriété ou Méthode non géréé par cet Objet -- Amicalement et merci
"ze Titi" wrote:
Dans ce cas, remplace ces zones de texte par des étiquettes et modifie le code pour avoir le résultat suivant:
SiteWeb.Caption=Mid(SiteWeb,8) et EMail.Caption=Mid(EMail,8)
En ce jour exceptionnel du lundi 26/02/2007, tu nous as très généreusement gratifié du message suivant:
Ze Titi cela ne fonctionne toujours Pas
Tb Ma Société Npm Champs Type de Données SiteWeb Lien hypertexte
Rq Ma societe
Site Web
Etat Imp Facture Dans : En-tête d'état
Champ SiteWeb (en bleu Sousligné)
Dans :Section EntêteÉtat
Au formatage [Procédure événementielle] Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer) SiteWeb = Mid(SiteWeb, 8) End Sub
Même Motif même punition
Pour la beauté j'ai recreer mon enregistrement -- Amicalement et merci
"ze Titi" wrote:
C'est tout simplement parce que j'ai omis un détail... Il faut d'abord rendre les contrôles indépendants... Dans les propriétés des contrôles EMail et SiteWeb, vide le champ "Source contrôle" dans l'onglet "Données". Théoriquement, ça devrait beaucoup mieux se passer !
Dans ton message
Avant tout merci mais , Je continue et je vais essayer de m'améliorer
Dans l'évènement "Sur formatage" de ta section détail, place le code
suivant:
EMail=Mid(EMail,8) Site=Mid(Site,8)
J'ai donc suivi les conseils
1 ) dans la section entete j'ai placé le code
SiteWeb=Mid(SiteWeb,8)
Mais hélas j'ai un message d'erreur
Impossible d'attribuer une valeur à cet objet
erreur d'exécution '-2147352567(80020009)':
Meme combat pour
dans la section Pied j'ai placé le code
Email=Mid(Email,8)
Mais hélas j'ai un message d'erreur
Impossible d'attribuer une valeur à cet objet
erreur d'exécution '-2147352567(80020009)':
-- Amicalement et merci
"ze Titi" wrote:
Dans l'état, onglet Evenements dans les propriétés de la section Detail de l'état.
En ce jour exceptionnel du lundi 26/02/2007, tu nous as très généreusement gratifié du message suivant:
Bonjour Ze Titi,
Oui mais ou trove t-on la section détail de l'evenement sur formatage
Table, requete, Etat ou sur le formulaire -- Amicalement et merci
"ze Titi" wrote:
Bonjour Guy
Dans l'évènement "Sur formatage" de ta section détail, place le code suivant:
EMail=Mid(EMail,8) Site=Mid(Site,8)
Dis-nous !
Dans ton message
Bonjour à tous
Dans une table j'ai deux Lien hypertexte
un pour Email avec mailto: et l'autre pour le Site
Mais voila dur l'etat je vois aparitre le tout comment faire pour eliminer le Mailto: et le http:// de facon automatique
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
Pour www.ArmurerieJeannot.comm -- Amicalement et merci
"Eric" wrote:
Bonjour ze Titi,
Et de baser en source de son état, une requête contenant LeMail:ExtracChaîne([Email];8) LeSite: ExtracChaîne([SiteWeb];8) et les autres champs
ça aurait été pas plus simple ?
J'enchaîne les conneries, j'aurais mieux fait de rester couché ce matin... Ce coup-ci, prenons notre temps...
Renomme les nouvelles étiquettes en USiteWeb et UEMail. Ensuite:
USiteWeb.Caption=Mid(SiteWeb,8) et UEmail.Caption=Mid(UEmail,8)
Et, stp, dis-moi que ça fonctionne !!! Je me sens mauvais sur ce coup... Désolé pour le temps perdu !
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
re,
Copies ceci dans un module global :
Enum TypeConversion Web = 1 Mail = 2 End Enum
Function fExtractionURL(NomChamp, Optional lType As TypeConversion = Web) As String If IsNull(NomChamp) Then Exit Function Dim strSearch As String, lSearch As Integer, iPosition As Integer If lType = Web Then strSearch = "#http://" Else strSearch = "#mailto:" End If lSearch = Len(strSearch) iPosition = InStr(NomChamp, strSearch) If iPosition > 1 Then fExtractionURL = Left(NomChamp, iPosition - 1) Else fExtractionURL = Mid(NomChamp, iPosition + lSearch, _ Len(NomChamp) - lSearch - 1) End If End Function
Dans la requête tu mets 2 champs calculés: LeSite: fExtractionURL([SiteWeb];1) LeMail: fExtractionURL([Email];2)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Copies ceci dans un module global :
Enum TypeConversion
Web = 1
Mail = 2
End Enum
Function fExtractionURL(NomChamp, Optional lType As TypeConversion =
Web) As String
If IsNull(NomChamp) Then Exit Function
Dim strSearch As String, lSearch As Integer, iPosition As Integer
If lType = Web Then
strSearch = "#http://"
Else
strSearch = "#mailto:"
End If
lSearch = Len(strSearch)
iPosition = InStr(NomChamp, strSearch)
If iPosition > 1 Then
fExtractionURL = Left(NomChamp, iPosition - 1)
Else
fExtractionURL = Mid(NomChamp, iPosition + lSearch, _
Len(NomChamp) - lSearch - 1)
End If
End Function
Dans la requête tu mets 2 champs calculés:
LeSite: fExtractionURL([SiteWeb];1)
LeMail: fExtractionURL([Email];2)
Function fExtractionURL(NomChamp, Optional lType As TypeConversion = Web) As String If IsNull(NomChamp) Then Exit Function Dim strSearch As String, lSearch As Integer, iPosition As Integer If lType = Web Then strSearch = "#http://" Else strSearch = "#mailto:" End If lSearch = Len(strSearch) iPosition = InStr(NomChamp, strSearch) If iPosition > 1 Then fExtractionURL = Left(NomChamp, iPosition - 1) Else fExtractionURL = Mid(NomChamp, iPosition + lSearch, _ Len(NomChamp) - lSearch - 1) End If End Function
Dans la requête tu mets 2 champs calculés: LeSite: fExtractionURL([SiteWeb];1) LeMail: fExtractionURL([Email];2)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Guy
Merci de vos conseilles ils sont toujours les bienvenues
Je vais essayer cela demain matin l'esprist reposé cela sera plus profitable pour mon petit cerveau
Donc à demain pour une réponse positive -- Amicalement et merci
"Eric" wrote:
re,
Copies ceci dans un module global :
Enum TypeConversion Web = 1 Mail = 2 End Enum
Function fExtractionURL(NomChamp, Optional lType As TypeConversion = Web) As String If IsNull(NomChamp) Then Exit Function Dim strSearch As String, lSearch As Integer, iPosition As Integer If lType = Web Then strSearch = "#http://" Else strSearch = "#mailto:" End If lSearch = Len(strSearch) iPosition = InStr(NomChamp, strSearch) If iPosition > 1 Then fExtractionURL = Left(NomChamp, iPosition - 1) Else fExtractionURL = Mid(NomChamp, iPosition + lSearch, _ Len(NomChamp) - lSearch - 1) End If End Function
Dans la requête tu mets 2 champs calculés: LeSite: fExtractionURL([SiteWeb];1) LeMail: fExtractionURL([Email];2)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci de vos conseilles ils sont toujours les bienvenues
Je vais essayer cela demain matin l'esprist reposé cela sera plus profitable
pour mon petit cerveau
Donc à demain pour une réponse positive
--
Amicalement et merci
"Eric" wrote:
re,
Copies ceci dans un module global :
Enum TypeConversion
Web = 1
Mail = 2
End Enum
Function fExtractionURL(NomChamp, Optional lType As TypeConversion =
Web) As String
If IsNull(NomChamp) Then Exit Function
Dim strSearch As String, lSearch As Integer, iPosition As Integer
If lType = Web Then
strSearch = "#http://"
Else
strSearch = "#mailto:"
End If
lSearch = Len(strSearch)
iPosition = InStr(NomChamp, strSearch)
If iPosition > 1 Then
fExtractionURL = Left(NomChamp, iPosition - 1)
Else
fExtractionURL = Mid(NomChamp, iPosition + lSearch, _
Len(NomChamp) - lSearch - 1)
End If
End Function
Dans la requête tu mets 2 champs calculés:
LeSite: fExtractionURL([SiteWeb];1)
LeMail: fExtractionURL([Email];2)
Merci de vos conseilles ils sont toujours les bienvenues
Je vais essayer cela demain matin l'esprist reposé cela sera plus profitable pour mon petit cerveau
Donc à demain pour une réponse positive -- Amicalement et merci
"Eric" wrote:
re,
Copies ceci dans un module global :
Enum TypeConversion Web = 1 Mail = 2 End Enum
Function fExtractionURL(NomChamp, Optional lType As TypeConversion = Web) As String If IsNull(NomChamp) Then Exit Function Dim strSearch As String, lSearch As Integer, iPosition As Integer If lType = Web Then strSearch = "#http://" Else strSearch = "#mailto:" End If lSearch = Len(strSearch) iPosition = InStr(NomChamp, strSearch) If iPosition > 1 Then fExtractionURL = Left(NomChamp, iPosition - 1) Else fExtractionURL = Mid(NomChamp, iPosition + lSearch, _ Len(NomChamp) - lSearch - 1) End If End Function
Dans la requête tu mets 2 champs calculés: LeSite: fExtractionURL([SiteWeb];1) LeMail: fExtractionURL([Email];2)
