J'ai un petit souci avec une ligne de code qui concerne un champ email qui
est un lien hypertexte ; en effet j'ai une ligne de code que je voudraisd
modifier ; cette ligne dit à l'uitilisateur qu'il doit absolument saisir une
ville si le le champs Adresse est pas Null ; tout cela fonctionne très bien
mais je me suis aperçu que certains oubliaient assez souvent les adresses
mails de certains clients ; j'ai donc voulu modifier mon code mais cela ne
fonctionne pas ; mon code actue lest le suivant :
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Si l'uitlisateur a saisi une adresse, verifie que le champs Ville est
aussi saisi
Dim BlnOk As Boolean
If Not IsNull(Adresse) And IsNull(Ville) Then
BlnOk = Confirmer(" Vous n'avez pas saisi de Ville ; Voulez-Vous
valider l'enregistrement?")
If Not BlnOk Then
Ville.SetFocus
Cancel = True
End If
End If
End Sub
Mon souci est que si je remplace le champs Adresse par mon champs Email, mon
code ne fonctionne plus ;-(
Voici mon code actuel qui me pose des soucis :
Y a t'il quelque chose de particulier à metttre dans le cas d'un champs
hypertexte ?
Dim BlnOk As Boolean
If IsNull(Email) Then
BlnOk = Confirmer(" Vous n'avez pas saisi d' email ; Voulez-Vous
valider l'enregistrement?")
If Not BlnOk Then
Email.SetFocus
Cancel = True
End If
End If
End Sub
J'ai même essayé de remplacer Null par Mailto: qui est la valeur pae defaut
de ce champs mais ça ne marche pas non plus ;-(
Merci de vos lumières
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
pour un lien hypertexte il faut tester l'adresse du lien.
essaie ceci dans ta procédure:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Then
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:%
Bonjour à tous ,
J'ai un petit souci avec une ligne de code qui concerne un champ email qui est un lien hypertexte ; en effet j'ai une ligne de code que je voudraisd modifier ; cette ligne dit à l'uitilisateur qu'il doit absolument saisir une
ville si le le champs Adresse est pas Null ; tout cela fonctionne très bien
mais je me suis aperçu que certains oubliaient assez souvent les adresses mails de certains clients ; j'ai donc voulu modifier mon code mais cela ne fonctionne pas ; mon code actue lest le suivant : Private Sub Form_BeforeUpdate(Cancel As Integer) 'Si l'uitlisateur a saisi une adresse, verifie que le champs Ville est aussi saisi Dim BlnOk As Boolean If Not IsNull(Adresse) And IsNull(Ville) Then
BlnOk = Confirmer(" Vous n'avez pas saisi de Ville ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Ville.SetFocus Cancel = True End If End If
End Sub
Mon souci est que si je remplace le champs Adresse par mon champs Email, mon
code ne fonctionne plus ;-( Voici mon code actuel qui me pose des soucis :
Y a t'il quelque chose de particulier à metttre dans le cas d'un champs hypertexte ? Dim BlnOk As Boolean If IsNull(Email) Then
BlnOk = Confirmer(" Vous n'avez pas saisi d' email ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Email.SetFocus Cancel = True End If End If
End Sub J'ai même essayé de remplacer Null par Mailto: qui est la valeur pae defaut
de ce champs mais ça ne marche pas non plus ;-( Merci de vos lumières
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Bonjour.
pour un lien hypertexte il faut tester l'adresse du lien.
essaie ceci dans ta procédure:
Dim HLK As Hyperlink
Set HLK = Me.Email.Hyperlink
If IsNull(HLK.Address) Then
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:%239KHzSQLEHA.1392@TK2MSFTNGP09.phx.gbl...
Bonjour à tous ,
J'ai un petit souci avec une ligne de code qui concerne un champ email qui
est un lien hypertexte ; en effet j'ai une ligne de code que je voudraisd
modifier ; cette ligne dit à l'uitilisateur qu'il doit absolument saisir
une
ville si le le champs Adresse est pas Null ; tout cela fonctionne très
bien
mais je me suis aperçu que certains oubliaient assez souvent les adresses
mails de certains clients ; j'ai donc voulu modifier mon code mais cela ne
fonctionne pas ; mon code actue lest le suivant :
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Si l'uitlisateur a saisi une adresse, verifie que le champs Ville est
aussi saisi
Dim BlnOk As Boolean
If Not IsNull(Adresse) And IsNull(Ville) Then
BlnOk = Confirmer(" Vous n'avez pas saisi de Ville ; Voulez-Vous
valider l'enregistrement?")
If Not BlnOk Then
Ville.SetFocus
Cancel = True
End If
End If
End Sub
Mon souci est que si je remplace le champs Adresse par mon champs Email,
mon
code ne fonctionne plus ;-(
Voici mon code actuel qui me pose des soucis :
Y a t'il quelque chose de particulier à metttre dans le cas d'un champs
hypertexte ?
Dim BlnOk As Boolean
If IsNull(Email) Then
BlnOk = Confirmer(" Vous n'avez pas saisi d' email ; Voulez-Vous
valider l'enregistrement?")
If Not BlnOk Then
Email.SetFocus
Cancel = True
End If
End If
End Sub
J'ai même essayé de remplacer Null par Mailto: qui est la valeur pae
defaut
de ce champs mais ça ne marche pas non plus ;-(
Merci de vos lumières
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
pour un lien hypertexte il faut tester l'adresse du lien.
essaie ceci dans ta procédure:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Then
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:%
Bonjour à tous ,
J'ai un petit souci avec une ligne de code qui concerne un champ email qui est un lien hypertexte ; en effet j'ai une ligne de code que je voudraisd modifier ; cette ligne dit à l'uitilisateur qu'il doit absolument saisir une
ville si le le champs Adresse est pas Null ; tout cela fonctionne très bien
mais je me suis aperçu que certains oubliaient assez souvent les adresses mails de certains clients ; j'ai donc voulu modifier mon code mais cela ne fonctionne pas ; mon code actue lest le suivant : Private Sub Form_BeforeUpdate(Cancel As Integer) 'Si l'uitlisateur a saisi une adresse, verifie que le champs Ville est aussi saisi Dim BlnOk As Boolean If Not IsNull(Adresse) And IsNull(Ville) Then
BlnOk = Confirmer(" Vous n'avez pas saisi de Ville ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Ville.SetFocus Cancel = True End If End If
End Sub
Mon souci est que si je remplace le champs Adresse par mon champs Email, mon
code ne fonctionne plus ;-( Voici mon code actuel qui me pose des soucis :
Y a t'il quelque chose de particulier à metttre dans le cas d'un champs hypertexte ? Dim BlnOk As Boolean If IsNull(Email) Then
BlnOk = Confirmer(" Vous n'avez pas saisi d' email ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Email.SetFocus Cancel = True End If End If
End Sub J'ai même essayé de remplacer Null par Mailto: qui est la valeur pae defaut
de ce champs mais ça ne marche pas non plus ;-( Merci de vos lumières
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Ayrton
Bonjour Raymond,
"Raymond [mvp]" a écrit dans le message de news:
pour un lien hypertexte il faut tester l'adresse du lien. Excuse moi mais je n'ai jamais fait ; je ne sais pas testee un lien ;(-
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Then
Voici comment j'ai modifié ma procedure :
Dim BlnOk As Boolean Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Then
Blnok = Confirmer(" Vous n'avez pas saisi d' Email ; Voulez-Vous valider l'enregistrement?") If Not Blnok Then Email.SetFocus Cancel = True End If End If
End Sub même comme cela ça ne fonctionne pas ; je passe au travers ,-( Ais je commis une erreur ? Merci
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
"Ayrton" a écrit dans le message de news:%
Bonjour à tous ,
J'ai un petit souci avec une ligne de code qui concerne un champ email qui est un lien hypertexte ; en effet j'ai une ligne de code que je voudraisd modifier ; cette ligne dit à l'uitilisateur qu'il doit absolument saisir une ville si le le champs Adresse est pas Null ; tout cela fonctionne très bien mais je me suis aperçu que certains oubliaient assez souvent les adresses mails de certains clients ; j'ai donc voulu modifier mon code mais cela ne fonctionne pas ; mon code actue lest le suivant : Private Sub Form_BeforeUpdate(Cancel As Integer) 'Si l'uitlisateur a saisi une adresse, verifie que le champs Ville est aussi saisi Dim BlnOk As Boolean If Not IsNull(Adresse) And IsNull(Ville) Then
BlnOk = Confirmer(" Vous n'avez pas saisi de Ville ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Ville.SetFocus Cancel = True End If End If
End Sub
Mon souci est que si je remplace le champs Adresse par mon champs Email, mon code ne fonctionne plus ;-( Voici mon code actuel qui me pose des soucis :
Y a t'il quelque chose de particulier à metttre dans le cas d'un champs hypertexte ? Dim BlnOk As Boolean If IsNull(Email) Then
BlnOk = Confirmer(" Vous n'avez pas saisi d' email ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Email.SetFocus Cancel = True End If End If
End Sub J'ai même essayé de remplacer Null par Mailto: qui est la valeur pae defaut de ce champs mais ça ne marche pas non plus ;-( Merci de vos lumières
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Bonjour Raymond,
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:OD4V8URLEHA.3428@TK2MSFTNGP09.phx.gbl
pour un lien hypertexte il faut tester l'adresse du lien.
Excuse moi mais je n'ai jamais fait ; je ne sais pas testee un lien ;(-
Dim HLK As Hyperlink
Set HLK = Me.Email.Hyperlink
If IsNull(HLK.Address) Then
Voici comment j'ai modifié ma procedure :
Dim BlnOk As Boolean
Dim HLK As Hyperlink
Set HLK = Me.Email.Hyperlink
If IsNull(HLK.Address) Then
Blnok = Confirmer(" Vous n'avez pas saisi d' Email ; Voulez-Vous
valider l'enregistrement?")
If Not Blnok Then
Email.SetFocus
Cancel = True
End If
End If
End Sub
même comme cela ça ne fonctionne pas ; je passe au travers ,-(
Ais je commis une erreur ?
Merci
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:%239KHzSQLEHA.1392@TK2MSFTNGP09.phx.gbl...
Bonjour à tous ,
J'ai un petit souci avec une ligne de code qui concerne un champ
email qui est un lien hypertexte ; en effet j'ai une ligne de code
que je voudraisd modifier ; cette ligne dit à l'uitilisateur qu'il
doit absolument saisir une ville si le le champs Adresse est pas
Null ; tout cela fonctionne très bien mais je me suis aperçu que
certains oubliaient assez souvent les adresses mails de certains
clients ; j'ai donc voulu modifier mon code mais cela ne fonctionne
pas ; mon code actue lest le suivant :
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Si l'uitlisateur a saisi une adresse, verifie que le champs
Ville est aussi saisi
Dim BlnOk As Boolean
If Not IsNull(Adresse) And IsNull(Ville) Then
BlnOk = Confirmer(" Vous n'avez pas saisi de Ville ;
Voulez-Vous valider l'enregistrement?")
If Not BlnOk Then
Ville.SetFocus
Cancel = True
End If
End If
End Sub
Mon souci est que si je remplace le champs Adresse par mon champs
Email, mon code ne fonctionne plus ;-(
Voici mon code actuel qui me pose des soucis :
Y a t'il quelque chose de particulier à metttre dans le cas d'un
champs hypertexte ?
Dim BlnOk As Boolean
If IsNull(Email) Then
BlnOk = Confirmer(" Vous n'avez pas saisi d' email ;
Voulez-Vous valider l'enregistrement?")
If Not BlnOk Then
Email.SetFocus
Cancel = True
End If
End If
End Sub
J'ai même essayé de remplacer Null par Mailto: qui est la valeur pae
defaut de ce champs mais ça ne marche pas non plus ;-(
Merci de vos lumières
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
pour un lien hypertexte il faut tester l'adresse du lien. Excuse moi mais je n'ai jamais fait ; je ne sais pas testee un lien ;(-
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Then
Voici comment j'ai modifié ma procedure :
Dim BlnOk As Boolean Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Then
Blnok = Confirmer(" Vous n'avez pas saisi d' Email ; Voulez-Vous valider l'enregistrement?") If Not Blnok Then Email.SetFocus Cancel = True End If End If
End Sub même comme cela ça ne fonctionne pas ; je passe au travers ,-( Ais je commis une erreur ? Merci
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
"Ayrton" a écrit dans le message de news:%
Bonjour à tous ,
J'ai un petit souci avec une ligne de code qui concerne un champ email qui est un lien hypertexte ; en effet j'ai une ligne de code que je voudraisd modifier ; cette ligne dit à l'uitilisateur qu'il doit absolument saisir une ville si le le champs Adresse est pas Null ; tout cela fonctionne très bien mais je me suis aperçu que certains oubliaient assez souvent les adresses mails de certains clients ; j'ai donc voulu modifier mon code mais cela ne fonctionne pas ; mon code actue lest le suivant : Private Sub Form_BeforeUpdate(Cancel As Integer) 'Si l'uitlisateur a saisi une adresse, verifie que le champs Ville est aussi saisi Dim BlnOk As Boolean If Not IsNull(Adresse) And IsNull(Ville) Then
BlnOk = Confirmer(" Vous n'avez pas saisi de Ville ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Ville.SetFocus Cancel = True End If End If
End Sub
Mon souci est que si je remplace le champs Adresse par mon champs Email, mon code ne fonctionne plus ;-( Voici mon code actuel qui me pose des soucis :
Y a t'il quelque chose de particulier à metttre dans le cas d'un champs hypertexte ? Dim BlnOk As Boolean If IsNull(Email) Then
BlnOk = Confirmer(" Vous n'avez pas saisi d' email ; Voulez-Vous valider l'enregistrement?") If Not BlnOk Then Email.SetFocus Cancel = True End If End If
End Sub J'ai même essayé de remplacer Null par Mailto: qui est la valeur pae defaut de ce champs mais ça ne marche pas non plus ;-( Merci de vos lumières
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Raymond [mvp]
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:%
même comme cela ça ne fonctionne pas ; je passe au travers ,-( Ais je commis une erreur ? Merci
mets comme ceci :
If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink
Set HLK = Me.Email.Hyperlink
If IsNull(HLK.Address) Or HLK.Address = "" Then
If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l
'enregistrement?", vbYesNo) = vbNo Then
Email.SetFocus
Cancel = True
End If
End If
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:%23BahPrRLEHA.1472@TK2MSFTNGP12.phx.gbl...
même comme cela ça ne fonctionne pas ; je passe au travers ,-(
Ais je commis une erreur ?
Merci
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:%
même comme cela ça ne fonctionne pas ; je passe au travers ,-( Ais je commis une erreur ? Merci
Ayrton
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non plus ! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme valeur par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du formulaire en BeforeUpdate et je sors sans message ni rien ! ! ! Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Re Raymond ,
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:e3IE3OSLEHA.4052@TK2MSFTNGP11.phx.gbl
mets comme ceci :
If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink
Set HLK = Me.Email.Hyperlink
If IsNull(HLK.Address) Or HLK.Address = "" Then
If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous
valider l 'enregistrement?", vbYesNo) = vbNo Then
Email.SetFocus
Cancel = True
End If
End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non plus
! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme
s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme valeur
par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je
ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du
formulaire en BeforeUpdate et je sors sans message ni rien ! ! !
Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non plus ! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme valeur par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du formulaire en BeforeUpdate et je sors sans message ni rien ! ! ! Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Raymond [mvp]
mets des points d'arrêt sur les lignes et regarde les valeurs des données. pour essais, mets ta procédure sur un événement obligatoire tel sortie sur un champ et passe dessus pour voir.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:urV$
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non plus
! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme valeur
par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du formulaire en BeforeUpdate et je sors sans message ni rien ! ! ! Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
mets des points d'arrêt sur les lignes et regarde les valeurs des données.
pour essais, mets ta procédure sur un événement obligatoire tel sortie sur
un champ et passe dessus pour voir.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:urV$OkTLEHA.2692@tk2msftngp13.phx.gbl...
Re Raymond ,
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:e3IE3OSLEHA.4052@TK2MSFTNGP11.phx.gbl
mets comme ceci :
If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink
Set HLK = Me.Email.Hyperlink
If IsNull(HLK.Address) Or HLK.Address = "" Then
If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous
valider l 'enregistrement?", vbYesNo) = vbNo Then
Email.SetFocus
Cancel = True
End If
End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non
plus
! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme
s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme
valeur
par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je
ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du
formulaire en BeforeUpdate et je sors sans message ni rien ! ! !
Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
mets des points d'arrêt sur les lignes et regarde les valeurs des données. pour essais, mets ta procédure sur un événement obligatoire tel sortie sur un champ et passe dessus pour voir.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:urV$
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non plus
! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme valeur
par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du formulaire en BeforeUpdate et je sors sans message ni rien ! ! ! Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Ayrton
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets des points d'arrêt sur les lignes et regarde les valeurs des données. Je suis désolé mais je ne sais pas ce que sont des points d'arrêt ni oèu
regarder les valeurs données ;-( J'ai un peu honte mais je ne suis pas un pro ! ! Si tu peu avoir la gentillesse de me le dire ( sauf si c'est trop long ! ) ça me servira pour une autre fois et ça evitera que j'ennuie quequ'un ! !
pour essais, mets ta procédure sur un événement obligatoire tel sortie sur un champ et passe dessus pour voir.
Sur Sortie du champs, ça fonctionne pil poil ;-)) Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form?
Merci Raymond
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
"Ayrton" a écrit dans le message de news:urV$
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non plus ! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme valeur par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du formulaire en BeforeUpdate et je sors sans message ni rien ! ! ! Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Re Raymond ,
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:uQpRKoTLEHA.2692@tk2msftngp13.phx.gbl
mets des points d'arrêt sur les lignes et regarde les valeurs des
données.
Je suis désolé mais je ne sais pas ce que sont des points d'arrêt ni oèu
regarder les valeurs données ;-( J'ai un peu honte mais je ne suis pas un
pro ! !
Si tu peu avoir la gentillesse de me le dire ( sauf si c'est trop long ! )
ça me servira pour une autre fois et ça evitera que j'ennuie quequ'un ! !
pour essais, mets ta procédure sur un événement obligatoire
tel sortie sur un champ et passe dessus pour voir.
Sur Sortie du champs, ça fonctionne pil poil ;-))
Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form?
Merci Raymond
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:urV$OkTLEHA.2692@tk2msftngp13.phx.gbl...
Re Raymond ,
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message
de news:e3IE3OSLEHA.4052@TK2MSFTNGP11.phx.gbl
mets comme ceci :
If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink
Set HLK = Me.Email.Hyperlink
If IsNull(HLK.Address) Or HLK.Address = "" Then
If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous
valider l 'enregistrement?", vbYesNo) = vbNo Then
Email.SetFocus
Cancel = True
End If
End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas
non plus ! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au
travers comme s'il n'y avait rien ; j'ai même retiré le" Mailto:"
que j'avais comme valeur par defaut et ça ne vas pas non plus ; je
n'y comprends rien et surtout je ne vois pas pourquoi ça ne marche
pas ; je suis ddans l'evenement du formulaire en BeforeUpdate et je
sors sans message ni rien ! ! !
Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
mets des points d'arrêt sur les lignes et regarde les valeurs des données. Je suis désolé mais je ne sais pas ce que sont des points d'arrêt ni oèu
regarder les valeurs données ;-( J'ai un peu honte mais je ne suis pas un pro ! ! Si tu peu avoir la gentillesse de me le dire ( sauf si c'est trop long ! ) ça me servira pour une autre fois et ça evitera que j'ennuie quequ'un ! !
pour essais, mets ta procédure sur un événement obligatoire tel sortie sur un champ et passe dessus pour voir.
Sur Sortie du champs, ça fonctionne pil poil ;-)) Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form?
Merci Raymond
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
"Ayrton" a écrit dans le message de news:urV$
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets comme ceci : If IsNull(HLK.Address) Or HLK.Address = "" Then
je ferais comme ceci:
Dim HLK As Hyperlink Set HLK = Me.Email.Hyperlink If IsNull(HLK.Address) Or HLK.Address = "" Then If MsgBox("Vous n'avez pas saisi d'Email ; Voulez-Vous valider l 'enregistrement?", vbYesNo) = vbNo Then Email.SetFocus Cancel = True End If End If
Eh bien aussi surprenant que cela puisse paraître, ça ne marche pas non plus ! ! je n'ai même pas la MsgBox qui s'affiche ; je passe au travers comme s'il n'y avait rien ; j'ai même retiré le" Mailto:" que j'avais comme valeur par defaut et ça ne vas pas non plus ; je n'y comprends rien et surtout je ne vois pas pourquoi ça ne marche pas ; je suis ddans l'evenement du formulaire en BeforeUpdate et je sors sans message ni rien ! ! ! Je vais ressayer pour voir mais je suis bien embêté avec ça ! !
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Raymond [mvp]
.../... si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart qui permet de connaître tous les paramètres de mail sans passer par un objet hyperlink. MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
.../...
si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart qui
permet de connaître tous les paramètres de mail sans passer par un objet
hyperlink.
MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
.../... si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart qui permet de connaître tous les paramètres de mail sans passer par un objet hyperlink. MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
Ayrton
"Raymond [mvp]" a écrit dans le message de news:
.../... si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart qui permet de connaître tous les paramètres de mail sans passer par un objet hyperlink. MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
Je suis ^sur Access 2002 ( XP) ; ça fonctionne aussi ? Et pour mon form, une idée ou je suis obligé de laisser l'evenement sur Sortie du Champs
Merci
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:uwME6yTLEHA.1392@TK2MSFTNGP09.phx.gbl
.../...
si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart
qui permet de connaître tous les paramètres de mail sans passer par
un objet hyperlink.
MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
Je suis ^sur Access 2002 ( XP) ; ça fonctionne aussi ?
Et pour mon form, une idée ou je suis obligé de laisser l'evenement sur
Sortie du Champs
Merci
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
.../... si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart qui permet de connaître tous les paramètres de mail sans passer par un objet hyperlink. MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
Je suis ^sur Access 2002 ( XP) ; ça fonctionne aussi ? Et pour mon form, une idée ou je suis obligé de laisser l'evenement sur Sortie du Champs
Merci
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
Raymond [mvp]
Sur Sortie du champs, ça fonctionne pil poil ;-)) Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form? Faut pas chercher ailleurs. Ton formulaire ne passe pas sur l'événement.
pour qu'il passe sur l'événement il faut qu'il y ait modification. s'il y a modification la propriété Dirty a la valeur True, ça peut aider aussi. S'il n'y a pas modification, faut-il contrôler ou simplement mettre un msgbox d'info ? copie la procédure sur form_Current pour voir si elle te convient . -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:ui%23$
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets des points d'arrêt sur les lignes et regarde les valeurs des données. Je suis désolé mais je ne sais pas ce que sont des points d'arrêt ni oèu
regarder les valeurs données ;-( J'ai un peu honte mais je ne suis pas un
pro ! ! Si tu peu avoir la gentillesse de me le dire ( sauf si c'est trop long ! ) ça me servira pour une autre fois et ça evitera que j'ennuie quequ'un ! !
pour essais, mets ta procédure sur un événement obligatoire tel sortie sur un champ et passe dessus pour voir.
Sur Sortie du champs, ça fonctionne pil poil ;-)) Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form?
Merci Raymond
Sur Sortie du champs, ça fonctionne pil poil ;-))
Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form?
Faut pas chercher ailleurs. Ton formulaire ne passe pas sur l'événement.
pour qu'il passe sur l'événement il faut qu'il y ait modification. s'il y a
modification la propriété Dirty a la valeur True, ça peut aider aussi.
S'il n'y a pas modification, faut-il contrôler ou simplement mettre un
msgbox d'info ?
copie la procédure sur form_Current pour voir si elle te convient .
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:ui%23$hyTLEHA.3852@TK2MSFTNGP10.phx.gbl...
Re Raymond ,
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:uQpRKoTLEHA.2692@tk2msftngp13.phx.gbl
mets des points d'arrêt sur les lignes et regarde les valeurs des
données.
Je suis désolé mais je ne sais pas ce que sont des points d'arrêt ni oèu
regarder les valeurs données ;-( J'ai un peu honte mais je ne suis pas
un
pro ! !
Si tu peu avoir la gentillesse de me le dire ( sauf si c'est trop long ! )
ça me servira pour une autre fois et ça evitera que j'ennuie quequ'un ! !
pour essais, mets ta procédure sur un événement obligatoire
tel sortie sur un champ et passe dessus pour voir.
Sur Sortie du champs, ça fonctionne pil poil ;-))
Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form?
Sur Sortie du champs, ça fonctionne pil poil ;-)) Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form? Faut pas chercher ailleurs. Ton formulaire ne passe pas sur l'événement.
pour qu'il passe sur l'événement il faut qu'il y ait modification. s'il y a modification la propriété Dirty a la valeur True, ça peut aider aussi. S'il n'y a pas modification, faut-il contrôler ou simplement mettre un msgbox d'info ? copie la procédure sur form_Current pour voir si elle te convient . -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:ui%23$
Re Raymond ,
"Raymond [mvp]" a écrit dans le message de news:
mets des points d'arrêt sur les lignes et regarde les valeurs des données. Je suis désolé mais je ne sais pas ce que sont des points d'arrêt ni oèu
regarder les valeurs données ;-( J'ai un peu honte mais je ne suis pas un
pro ! ! Si tu peu avoir la gentillesse de me le dire ( sauf si c'est trop long ! ) ça me servira pour une autre fois et ça evitera que j'ennuie quequ'un ! !
pour essais, mets ta procédure sur un événement obligatoire tel sortie sur un champ et passe dessus pour voir.
Sur Sortie du champs, ça fonctionne pil poil ;-)) Une idée du pourquoi ça ne fonctionne pas en BeforeUpdate de mon form?
Merci Raymond
Raymond [mvp]
ça fonctionne sur 2000 & + j'ai repris l'autre post pour répondre.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:
"Raymond [mvp]" a écrit dans le message de news:
.../... si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart qui permet de connaître tous les paramètres de mail sans passer par un objet hyperlink. MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
Je suis ^sur Access 2002 ( XP) ; ça fonctionne aussi ? Et pour mon form, une idée ou je suis obligé de laisser l'evenement sur Sortie du Champs
Merci
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
ça fonctionne sur 2000 & +
j'ai repris l'autre post pour répondre.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" <AS-anti_spam@wanadoo.fr> a écrit dans le message de
news:u4t291TLEHA.1052@TK2MSFTNGP12.phx.gbl...
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:uwME6yTLEHA.1392@TK2MSFTNGP09.phx.gbl
.../...
si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart
qui permet de connaître tous les paramètres de mail sans passer par
un objet hyperlink.
MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
Je suis ^sur Access 2002 ( XP) ; ça fonctionne aussi ?
Et pour mon form, une idée ou je suis obligé de laisser l'evenement sur
Sortie du Champs
Merci
--
@+
Ayrton
http://cerbermail.com/?FiLzjrFmWV
Click here to answer
ça fonctionne sur 2000 & + j'ai repris l'autre post pour répondre.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Ayrton" a écrit dans le message de news:
"Raymond [mvp]" a écrit dans le message de news:
.../... si tu es sur 2000, tu peux aussi utiliser la fonction HyperlinkPart qui permet de connaître tous les paramètres de mail sans passer par un objet hyperlink. MsgBox HyperlinkPart(Me.mail, acFullAddress) par exemple.
Je suis ^sur Access 2002 ( XP) ; ça fonctionne aussi ? Et pour mon form, une idée ou je suis obligé de laisser l'evenement sur Sortie du Champs
Merci
-- @+ Ayrton http://cerbermail.com/?FiLzjrFmWV Click here to answer
