Je n'arrive pas a avoir de r=E9ponse pour mon soucis .
Est-ce qu'il est possible de controler lors de la saisie=20
d'un utilisateur (via formulaire):
- si ex : quand l'utilisateur rentre le nom du contact=20
dans le champs Nom controler si ce Nom est d=E9j=E0 existant=20
et si oui afficher un message d'avertissements.
- et aussi dans un champs email : quand l'utilisateur=20
rentre un adresse email, pouvoir cliquer dessus pour=20
envoyer un message a cette adresse=20
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
Raymond
Bonjour.
tout est possible.
- si ex : quand l'utilisateur rentre le nom du contact dans le champs Nom controler si ce Nom est déjà existant et si oui afficher un message d'avertissements
utiliser la fonction DCount pour aller chercher le nombre d'homonymes DCount("*", "Latable", "[lechamp] = '" & me.monchamp & "'")
- et aussi dans un champs email : quand l'utilisateur rentre un adresse email, pouvoir cliquer dessus pour envoyer un message a cette adresse
si ton champ est déclaré lien hypertexte, l'opérateur entre dans le lien: "mailto:" suivi de l'adresse si ton champ est un champ texte il faut passer par un bouton:
Private Sub Commande0_Click() Dim HLK As Hyperlink Set HLK = Commande0.Hyperlink HLK.Address = "mailto:" & Me.monchamptexte Set HLK = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Franck" a écrit dans le message de news:01e601c39f82$bc865170$ Bonjour,
Je n'arrive pas a avoir de réponse pour mon soucis .
Est-ce qu'il est possible de controler lors de la saisie d'un utilisateur (via formulaire): - si ex : quand l'utilisateur rentre le nom du contact dans le champs Nom controler si ce Nom est déjà existant et si oui afficher un message d'avertissements.
- et aussi dans un champs email : quand l'utilisateur rentre un adresse email, pouvoir cliquer dessus pour envoyer un message a cette adresse
Merci pour vos réponses Salutations
Bonjour.
tout est possible.
- si ex : quand l'utilisateur rentre le nom du contact
dans le champs Nom controler si ce Nom est déjà existant
et si oui afficher un message d'avertissements
utiliser la fonction DCount pour aller chercher le nombre d'homonymes
DCount("*", "Latable", "[lechamp] = '" & me.monchamp & "'")
- et aussi dans un champs email : quand l'utilisateur
rentre un adresse email, pouvoir cliquer dessus pour
envoyer un message a cette adresse
si ton champ est déclaré lien hypertexte, l'opérateur entre dans le lien:
"mailto:" suivi de l'adresse
si ton champ est un champ texte il faut passer par un bouton:
Private Sub Commande0_Click()
Dim HLK As Hyperlink
Set HLK = Commande0.Hyperlink
HLK.Address = "mailto:" & Me.monchamptexte
Set HLK = Nothing
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Franck" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:01e601c39f82$bc865170$a001280a@phx.gbl...
Bonjour,
Je n'arrive pas a avoir de réponse pour mon soucis .
Est-ce qu'il est possible de controler lors de la saisie
d'un utilisateur (via formulaire):
- si ex : quand l'utilisateur rentre le nom du contact
dans le champs Nom controler si ce Nom est déjà existant
et si oui afficher un message d'avertissements.
- et aussi dans un champs email : quand l'utilisateur
rentre un adresse email, pouvoir cliquer dessus pour
envoyer un message a cette adresse
- si ex : quand l'utilisateur rentre le nom du contact dans le champs Nom controler si ce Nom est déjà existant et si oui afficher un message d'avertissements
utiliser la fonction DCount pour aller chercher le nombre d'homonymes DCount("*", "Latable", "[lechamp] = '" & me.monchamp & "'")
- et aussi dans un champs email : quand l'utilisateur rentre un adresse email, pouvoir cliquer dessus pour envoyer un message a cette adresse
si ton champ est déclaré lien hypertexte, l'opérateur entre dans le lien: "mailto:" suivi de l'adresse si ton champ est un champ texte il faut passer par un bouton:
Private Sub Commande0_Click() Dim HLK As Hyperlink Set HLK = Commande0.Hyperlink HLK.Address = "mailto:" & Me.monchamptexte Set HLK = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Franck" a écrit dans le message de news:01e601c39f82$bc865170$ Bonjour,
Je n'arrive pas a avoir de réponse pour mon soucis .
Est-ce qu'il est possible de controler lors de la saisie d'un utilisateur (via formulaire): - si ex : quand l'utilisateur rentre le nom du contact dans le champs Nom controler si ce Nom est déjà existant et si oui afficher un message d'avertissements.
- et aussi dans un champs email : quand l'utilisateur rentre un adresse email, pouvoir cliquer dessus pour envoyer un message a cette adresse
Merci pour vos réponses Salutations
Guy DETIENNE
Salut ;O)
Pour compléter Raymond :
Pour savoir si un nom entré existe déjà, mettre ce code dans le champ concerné dans l'événement BeforeUpdate:
Dim lngCount as Long
'Pour Raymond: au lieu de '*' je mettrai 'lechamp', ce qui optimise je crois la recherche. lngCount= DCount("lechamp", "Latable", "[lechamp] = '" & me.monchamp & "'")
'Si la variable lngCount est différente de 0 alors on annule la mise à jour du champ en attribuant True à Cancel. If lngCount Then MsgBox "Ce nom existe déjà!" Cancel = True Me![monchamp].Undo End If
Pour envoyer un mail sans avoir typé le champ comme étant Hypertexte:
'A mettre dans l'en-tête du formulaire ou dans un module Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Sur l'événement click de ton champ ou sur un bouton 'le champ doit contenir une adresse mail correcte: ShellExecute Me.hwnd, vbNullString, "mailto:" & Me.LeNomDeTonChamp.Value, vbNullString, "", 1
Tchao Guy -- __________________________________ Tchao.net: L'informatique à votre dimension www.tchao.net Pour toute réponse, retirer le .nospam de l'adresse mail ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Franck" a écrit dans le message de news:01e601c39f82$bc865170$ Bonjour,
Je n'arrive pas a avoir de réponse pour mon soucis .
Est-ce qu'il est possible de controler lors de la saisie d'un utilisateur (via formulaire): - si ex : quand l'utilisateur rentre le nom du contact dans le champs Nom controler si ce Nom est déjà existant et si oui afficher un message d'avertissements.
- et aussi dans un champs email : quand l'utilisateur rentre un adresse email, pouvoir cliquer dessus pour envoyer un message a cette adresse
Merci pour vos réponses Salutations
Salut ;O)
Pour compléter Raymond :
Pour savoir si un nom entré existe déjà, mettre ce code dans le champ
concerné dans l'événement BeforeUpdate:
Dim lngCount as Long
'Pour Raymond: au lieu de '*' je mettrai 'lechamp', ce qui optimise je crois
la recherche.
lngCount= DCount("lechamp", "Latable", "[lechamp] = '" & me.monchamp & "'")
'Si la variable lngCount est différente de 0 alors on annule la mise à jour
du champ en attribuant True à Cancel.
If lngCount Then
MsgBox "Ce nom existe déjà!"
Cancel = True
Me![monchamp].Undo
End If
Pour envoyer un mail sans avoir typé le champ comme étant Hypertexte:
'A mettre dans l'en-tête du formulaire ou dans un module
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String,
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As
Long) As Long
'Sur l'événement click de ton champ ou sur un bouton
'le champ doit contenir une adresse mail correcte: toto@toto.com
ShellExecute Me.hwnd, vbNullString, "mailto:" & Me.LeNomDeTonChamp.Value,
vbNullString, "", 1
Tchao
Guy
--
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Franck" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:01e601c39f82$bc865170$a001280a@phx.gbl...
Bonjour,
Je n'arrive pas a avoir de réponse pour mon soucis .
Est-ce qu'il est possible de controler lors de la saisie
d'un utilisateur (via formulaire):
- si ex : quand l'utilisateur rentre le nom du contact
dans le champs Nom controler si ce Nom est déjà existant
et si oui afficher un message d'avertissements.
- et aussi dans un champs email : quand l'utilisateur
rentre un adresse email, pouvoir cliquer dessus pour
envoyer un message a cette adresse
Pour savoir si un nom entré existe déjà, mettre ce code dans le champ concerné dans l'événement BeforeUpdate:
Dim lngCount as Long
'Pour Raymond: au lieu de '*' je mettrai 'lechamp', ce qui optimise je crois la recherche. lngCount= DCount("lechamp", "Latable", "[lechamp] = '" & me.monchamp & "'")
'Si la variable lngCount est différente de 0 alors on annule la mise à jour du champ en attribuant True à Cancel. If lngCount Then MsgBox "Ce nom existe déjà!" Cancel = True Me![monchamp].Undo End If
Pour envoyer un mail sans avoir typé le champ comme étant Hypertexte:
'A mettre dans l'en-tête du formulaire ou dans un module Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Sur l'événement click de ton champ ou sur un bouton 'le champ doit contenir une adresse mail correcte: ShellExecute Me.hwnd, vbNullString, "mailto:" & Me.LeNomDeTonChamp.Value, vbNullString, "", 1
Tchao Guy -- __________________________________ Tchao.net: L'informatique à votre dimension www.tchao.net Pour toute réponse, retirer le .nospam de l'adresse mail ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Franck" a écrit dans le message de news:01e601c39f82$bc865170$ Bonjour,
Je n'arrive pas a avoir de réponse pour mon soucis .
Est-ce qu'il est possible de controler lors de la saisie d'un utilisateur (via formulaire): - si ex : quand l'utilisateur rentre le nom du contact dans le champs Nom controler si ce Nom est déjà existant et si oui afficher un message d'avertissements.
- et aussi dans un champs email : quand l'utilisateur rentre un adresse email, pouvoir cliquer dessus pour envoyer un message a cette adresse
