Bonjour,
J'ai un formulaire de saisie dont la clef est le numéro d'inscription, avec
Nom_Prénom, date de naissance, adresse etc.....le Nom_Prénom n'a aucun
verrou, ce que je souhaiterais c'est que si dans le cours des saisies à
venir l'utilisateur de la base saisi un candidat dont le Nom_Prénom existe
déjà, obtenir une alerte après mise à jour du champs du genre "Attention ce
candidat existe déjà" que la date de naissance du candidat et son adresse
s'affiche dans le message d'alerte" avec la question voulez-vous continuer
oui/non, oui il continue car la date de naissance et l'adresses sont
différentes, non il stop car c'est les mêmes coordonnées ???? est-ce
possible, si oui comment puis faire pour obtenir ce résultat ?
Par avance merci au(x) génie(s) qui m'apportera la solution .....
cordialement
Bonsoir, J'ai essayé le code mais ca beug sur : Dim rst As DAO.Recordset Dim fld As DAO.Field
et sur : intFld (il me dis que la variable n'est pas définie) pour les DAO il faut que j'aille chercher dans les références ? pour le premier j'ai pris : microsoft DAO 3.6 object library pour l'autre je ne sais pas ? Merci
Re,
Voilà donc une solution qui devrait convenir : http://access.fr.free.fr/articles.php?lng=fr&pg2
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
Oui Fabien, celui ou celle qui saisi à l'info, mais je ne suis pas arrivée à l'heure actuelle à obtenir dans mon msgbox l'info qui me donne les coordonnées de l'homonyme déjà saisies afin de comparer justement avant de continuer.... Merci
Bonsoir,
J'ai essayé le code mais ca beug sur :
Dim rst As DAO.Recordset
Dim fld As DAO.Field
et sur : intFld (il me dis que la variable n'est pas définie)
pour les DAO il faut que j'aille chercher dans les références ? pour le
premier j'ai pris : microsoft DAO 3.6 object library pour l'autre je ne sais
pas ?
Merci
Re,
Voilà donc une solution qui devrait convenir :
http://access.fr.free.fr/articles.php?lng=fr&pg2
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------
Oui Fabien,
celui ou celle qui saisi à l'info, mais je ne suis pas arrivée à l'heure
actuelle à obtenir dans mon msgbox l'info qui me donne les coordonnées de
l'homonyme déjà saisies afin de comparer justement avant de continuer....
Merci
Bonsoir, J'ai essayé le code mais ca beug sur : Dim rst As DAO.Recordset Dim fld As DAO.Field
et sur : intFld (il me dis que la variable n'est pas définie) pour les DAO il faut que j'aille chercher dans les références ? pour le premier j'ai pris : microsoft DAO 3.6 object library pour l'autre je ne sais pas ? Merci
Re,
Voilà donc une solution qui devrait convenir : http://access.fr.free.fr/articles.php?lng=fr&pg2
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l''''efficacité de tous : http://www.mpfa.info/ ------------------------------------
Oui Fabien, celui ou celle qui saisi à l'info, mais je ne suis pas arrivée à l'heure actuelle à obtenir dans mon msgbox l'info qui me donne les coordonnées de l'homonyme déjà saisies afin de comparer justement avant de continuer.... Merci
Eric
Bonjour Uriane,
Pour les objets Recordset et Field, c'est bien la Référence Microsoft Dao 3.6 (Access 2000 et +, sinon 3.5 pour Access97) Pour la déclaration de intFld, mets en début de fonction, sous les autres déclarations : Dim intFld as Integer
Bonsoir, J'ai essayé le code mais ca beug sur : Dim rst As DAO.Recordset Dim fld As DAO.Field
et sur : intFld (il me dis que la variable n'est pas définie) pour les DAO il faut que j'aille chercher dans les références ? pour le premier j'ai pris : microsoft DAO 3.6 object library pour l'autre je ne sais pas ? Merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Uriane,
Pour les objets Recordset et Field, c'est bien la Référence Microsoft
Dao 3.6 (Access 2000 et +, sinon 3.5 pour Access97)
Pour la déclaration de intFld, mets en début de fonction, sous les
autres déclarations :
Dim intFld as Integer
Bonsoir,
J'ai essayé le code mais ca beug sur :
Dim rst As DAO.Recordset
Dim fld As DAO.Field
et sur : intFld (il me dis que la variable n'est pas définie)
pour les DAO il faut que j'aille chercher dans les références ? pour le
premier j'ai pris : microsoft DAO 3.6 object library pour l'autre je ne sais
pas ?
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Pour les objets Recordset et Field, c'est bien la Référence Microsoft Dao 3.6 (Access 2000 et +, sinon 3.5 pour Access97) Pour la déclaration de intFld, mets en début de fonction, sous les autres déclarations : Dim intFld as Integer
Bonsoir, J'ai essayé le code mais ca beug sur : Dim rst As DAO.Recordset Dim fld As DAO.Field
et sur : intFld (il me dis que la variable n'est pas définie) pour les DAO il faut que j'aille chercher dans les références ? pour le premier j'ai pris : microsoft DAO 3.6 object library pour l'autre je ne sais pas ? Merci
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
re,
Rajoutes aussi les déclarations suivantes : Dim strMsg as String, strRecord as String
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Rajoutes aussi les déclarations suivantes :
Dim strMsg as String, strRecord as String
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Rajoutes aussi les déclarations suivantes : Dim strMsg as String, strRecord as String
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Jessy Sempere
Bonjour Eric
Comme d'hab, tu es là pour corriger mes erreurs... Bon j'ai fait la modification du code, comme ce sont des variables que j'avais déclaré ailleurs, je n'avais pas vu qu'elles manquaient...
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------ "Eric" a écrit dans le message de news:
re,
Rajoutes aussi les déclarations suivantes : Dim strMsg as String, strRecord as String
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Eric
Comme d'hab, tu es là pour corriger mes erreurs...
Bon j'ai fait la modification du code, comme ce sont des variables que
j'avais déclaré ailleurs, je n'avais pas vu qu'elles manquaient...
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
ulsfrmzYHHA.1296@TK2MSFTNGP02.phx.gbl...
re,
Rajoutes aussi les déclarations suivantes :
Dim strMsg as String, strRecord as String
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Comme d'hab, tu es là pour corriger mes erreurs... Bon j'ai fait la modification du code, comme ce sont des variables que j'avais déclaré ailleurs, je n'avais pas vu qu'elles manquaient...
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------ "Eric" a écrit dans le message de news:
re,
Rajoutes aussi les déclarations suivantes : Dim strMsg as String, strRecord as String
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
Bonjour Jessy,
... Comme d'hab, tu es là pour corriger mes erreurs...
Euh !!! j'me permettrai pas. C'était juste pour débloquer la situation. ;-)
Bon j'ai fait la modification du code, comme ce sont des variables que j'avais déclaré ailleurs, je n'avais pas vu qu'elles manquaient...
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Jessy,
...
Comme d'hab, tu es là pour corriger mes erreurs...
Euh !!! j'me permettrai pas.
C'était juste pour débloquer la situation. ;-)
Bon j'ai fait la modification du code, comme ce sont des variables que
j'avais déclaré ailleurs, je n'avais pas vu qu'elles manquaient...
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
... Comme d'hab, tu es là pour corriger mes erreurs...
Euh !!! j'me permettrai pas. C'était juste pour débloquer la situation. ;-)
Bon j'ai fait la modification du code, comme ce sont des variables que j'avais déclaré ailleurs, je n'avais pas vu qu'elles manquaient...
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Jessy Sempere
Re,
Euh !!! j'me permettrai pas. C'était juste pour débloquer la situation. ;-)
Et tu as bien fait... ;-)
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
Re,
Euh !!! j'me permettrai pas.
C'était juste pour débloquer la situation. ;-)
Et tu as bien fait... ;-)
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
Euh !!! j'me permettrai pas. C'était juste pour débloquer la situation. ;-)
Et tu as bien fait... ;-)
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
URIANE
Bonjour Jessy, C'est fait ton code est appliqué et il fonctionne bien je dirais même très bien, en fait il affiche tous les éléments qui se trouvent dans la table désignée à moi de voir ce que je désire voir apparaître dans le message. Petite question, je souhaiterais rajouter la question "voulez-vous continuer ? vbyesNo" ou puis-je l'insérer, car si la personne existe avec les mêmes coordonnées donc c'est la même personne que je traite, je réponds "no" alors mon champs sera blanc, et j'ouvrirais mon formulaire sur l'individu concerné, avec toutes les coordonnées qui ont déjà été saisies, si la personne est un homonyme alors à la question je réponds "yes" et je continue ma saisie dans ce même formulaire. Ensuite dans le cas de ton code, si je saisi une personne qui n'existe pas j'ai le mssg qui s'affiche qui me dis "Aucun élément similiaire détecté", ça je voudrais ne pas l'avoir comment puis-je le désactiver ? Merci car tu m'as ôté une belle épine du pied. Cordialement
Bonjour Jessy,
C'est fait ton code est appliqué et il fonctionne bien je dirais même très
bien, en fait il affiche tous les éléments qui se trouvent dans la table
désignée à moi de voir ce que je désire voir apparaître dans le message.
Petite question, je souhaiterais rajouter la question "voulez-vous continuer
? vbyesNo" ou puis-je l'insérer, car si la personne existe avec les mêmes
coordonnées donc c'est la même personne que je traite, je réponds "no" alors
mon champs sera blanc, et j'ouvrirais mon formulaire sur l'individu
concerné, avec toutes les coordonnées qui ont déjà été saisies, si la
personne est un homonyme alors à la question je réponds "yes" et je continue
ma saisie dans ce même formulaire.
Ensuite dans le cas de ton code, si je saisi une personne qui n'existe pas
j'ai le mssg qui s'affiche qui me dis "Aucun élément similiaire détecté", ça
je voudrais ne pas l'avoir comment puis-je le désactiver ?
Merci car tu m'as ôté une belle épine du pied.
Cordialement
Bonjour Jessy, C'est fait ton code est appliqué et il fonctionne bien je dirais même très bien, en fait il affiche tous les éléments qui se trouvent dans la table désignée à moi de voir ce que je désire voir apparaître dans le message. Petite question, je souhaiterais rajouter la question "voulez-vous continuer ? vbyesNo" ou puis-je l'insérer, car si la personne existe avec les mêmes coordonnées donc c'est la même personne que je traite, je réponds "no" alors mon champs sera blanc, et j'ouvrirais mon formulaire sur l'individu concerné, avec toutes les coordonnées qui ont déjà été saisies, si la personne est un homonyme alors à la question je réponds "yes" et je continue ma saisie dans ce même formulaire. Ensuite dans le cas de ton code, si je saisi une personne qui n'existe pas j'ai le mssg qui s'affiche qui me dis "Aucun élément similiaire détecté", ça je voudrais ne pas l'avoir comment puis-je le désactiver ? Merci car tu m'as ôté une belle épine du pied. Cordialement
Jessy Sempere
Bonjour
C'est fait ton code est appliqué et il fonctionne bien je dirais même très bien, en fait il affiche tous les éléments qui se trouvent dans la table désignée à moi de voir ce que je désire voir apparaître dans le message.
Pour ça, il te suffit de modifier une partie du code, remplaces la ligne : strRst = "Select * From " & strTable par : strRst = "Select Champ1, Champ2, Champ3 From " & strTable
Petite question, je souhaiterais rajouter la question "voulez-vous continuer ? vbyesNo" ou puis-je l'insérer, car si la personne existe avec les mêmes coordonnées donc c'est la même personne que je traite, je réponds "no" alors mon champs sera blanc, et j'ouvrirais mon formulaire sur l'individu concerné, avec toutes les coordonnées qui ont déjà été saisies, si la personne est un homonyme alors à la question je réponds "yes" et je continue ma saisie dans ce même formulaire.
En fait, la fonction te retourne une chaîne de texte, il faut donc gérer le message à part, par exemple sur un bouton de validation comme dans mon exemple ou sur un événement genre "après mise à jour" du formulaire... Si tu veux poser une question, tu pourrais faire :
dim strResult as string strResult = fverifmultivalue ("tblPersonne","NomPers",Me.NomPers,"PrenomPers",Me.PrenomPers)
if strResult <> "" then if msgbox (strResult, vbYesNo)=vbno then docmd.openform ... end if end if
Ensuite dans le cas de ton code, si je saisi une personne qui n'existe pas j'ai le mssg qui s'affiche qui me dis "Aucun élément similiaire détecté", ça je voudrais ne pas l'avoir comment puis-je le désactiver ?
Pour ça, il te suffit de remplacer dans la fonction : strMsg = "Aucun élément similaire..." par : strMsg = ""
Merci car tu m'as ôté une belle épine du pied. Cordialement
N'hésites pas si tu rencontres encore des difficultés
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
Bonjour
C'est fait ton code est appliqué et il fonctionne bien je dirais même très
bien, en fait il affiche tous les éléments qui se trouvent dans la table
désignée à moi de voir ce que je désire voir apparaître dans le message.
Pour ça, il te suffit de modifier une partie du code, remplaces la ligne :
strRst = "Select * From " & strTable
par :
strRst = "Select Champ1, Champ2, Champ3 From " & strTable
Petite question, je souhaiterais rajouter la question "voulez-vous
continuer ? vbyesNo" ou puis-je l'insérer, car si la personne existe avec
les mêmes coordonnées donc c'est la même personne que je traite, je
réponds "no" alors mon champs sera blanc, et j'ouvrirais mon formulaire
sur l'individu concerné, avec toutes les coordonnées qui ont déjà été
saisies, si la personne est un homonyme alors à la question je réponds
"yes" et je continue ma saisie dans ce même formulaire.
En fait, la fonction te retourne une chaîne de texte, il faut donc gérer le
message à part, par exemple sur un bouton de validation comme dans mon
exemple ou sur un événement genre "après mise à jour" du formulaire...
Si tu veux poser une question, tu pourrais faire :
dim strResult as string
strResult = fverifmultivalue
("tblPersonne","NomPers",Me.NomPers,"PrenomPers",Me.PrenomPers)
if strResult <> "" then
if msgbox (strResult, vbYesNo)=vbno then
docmd.openform ...
end if
end if
Ensuite dans le cas de ton code, si je saisi une personne qui n'existe pas
j'ai le mssg qui s'affiche qui me dis "Aucun élément similiaire détecté",
ça je voudrais ne pas l'avoir comment puis-je le désactiver ?
Pour ça, il te suffit de remplacer dans la fonction :
strMsg = "Aucun élément similaire..."
par :
strMsg = ""
Merci car tu m'as ôté une belle épine du pied.
Cordialement
N'hésites pas si tu rencontres encore des difficultés
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
C'est fait ton code est appliqué et il fonctionne bien je dirais même très bien, en fait il affiche tous les éléments qui se trouvent dans la table désignée à moi de voir ce que je désire voir apparaître dans le message.
Pour ça, il te suffit de modifier une partie du code, remplaces la ligne : strRst = "Select * From " & strTable par : strRst = "Select Champ1, Champ2, Champ3 From " & strTable
Petite question, je souhaiterais rajouter la question "voulez-vous continuer ? vbyesNo" ou puis-je l'insérer, car si la personne existe avec les mêmes coordonnées donc c'est la même personne que je traite, je réponds "no" alors mon champs sera blanc, et j'ouvrirais mon formulaire sur l'individu concerné, avec toutes les coordonnées qui ont déjà été saisies, si la personne est un homonyme alors à la question je réponds "yes" et je continue ma saisie dans ce même formulaire.
En fait, la fonction te retourne une chaîne de texte, il faut donc gérer le message à part, par exemple sur un bouton de validation comme dans mon exemple ou sur un événement genre "après mise à jour" du formulaire... Si tu veux poser une question, tu pourrais faire :
dim strResult as string strResult = fverifmultivalue ("tblPersonne","NomPers",Me.NomPers,"PrenomPers",Me.PrenomPers)
if strResult <> "" then if msgbox (strResult, vbYesNo)=vbno then docmd.openform ... end if end if
Ensuite dans le cas de ton code, si je saisi une personne qui n'existe pas j'ai le mssg qui s'affiche qui me dis "Aucun élément similiaire détecté", ça je voudrais ne pas l'avoir comment puis-je le désactiver ?
Pour ça, il te suffit de remplacer dans la fonction : strMsg = "Aucun élément similaire..." par : strMsg = ""
Merci car tu m'as ôté une belle épine du pied. Cordialement
N'hésites pas si tu rencontres encore des difficultés
@+ Jessy Sempere ------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
URIANE
Bonjour Jessy, dans ton code lorsque le candidat n'est pas créé j'ai tout de même un message qui s'affiche " Else strMsg = "Aucun élément similaire détecté..." je souhaite ne pas avoir ce message, car il y a beaucoups de candidats à saisir et à la longue ca risque d'être pénible de voir ce message s'afficher à chaque saisie et de devoir cliquer sur "ok" pour fermer la boîte de dialogue. Merci pour ton aide cordialement
Bonjour Jessy,
dans ton code lorsque le candidat n'est pas créé j'ai tout de même un
message qui s'affiche " Else
strMsg = "Aucun élément similaire détecté..."
je souhaite ne pas avoir ce message, car il y a beaucoups de candidats à
saisir et à la longue ca risque d'être pénible de voir ce message s'afficher
à chaque saisie et de devoir cliquer sur "ok" pour fermer la boîte de
dialogue.
Merci pour ton aide
cordialement
Bonjour Jessy, dans ton code lorsque le candidat n'est pas créé j'ai tout de même un message qui s'affiche " Else strMsg = "Aucun élément similaire détecté..." je souhaite ne pas avoir ce message, car il y a beaucoups de candidats à saisir et à la longue ca risque d'être pénible de voir ce message s'afficher à chaque saisie et de devoir cliquer sur "ok" pour fermer la boîte de dialogue. Merci pour ton aide cordialement
ze Titi
Hello URIANE !
Pour éviter ce message, au lieu d'avoir (je reprends l'exemple de Jessy, tu sauras adapter:
Dim strMessage as String strMessage=fVerifMultiValue("tblPersonne", "NomPers", Me.NomPers, "PrenomPer", Me.PrenomPer) if strMessage<>"Aucune élément similaire détecté..." then msgbox strMessage
En ce jour mémorable du mardi 13/03/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour Jessy, dans ton code lorsque le candidat n'est pas créé j'ai tout de même un message qui s'affiche " Else strMsg = "Aucun élément similaire détecté..." je souhaite ne pas avoir ce message, car il y a beaucoups de candidats à saisir et à la longue ca risque d'être pénible de voir ce message s'afficher à chaque saisie et de devoir cliquer sur "ok" pour fermer la boîte de dialogue. Merci pour ton aide cordialement
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
Hello URIANE !
Pour éviter ce message, au lieu d'avoir (je reprends l'exemple de
Jessy, tu sauras adapter:
Dim strMessage as String
strMessage=fVerifMultiValue("tblPersonne", "NomPers", Me.NomPers,
"PrenomPer", Me.PrenomPer)
if strMessage<>"Aucune élément similaire détecté..." then msgbox
strMessage
En ce jour mémorable du mardi 13/03/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
Bonjour Jessy,
dans ton code lorsque le candidat n'est pas créé j'ai tout de même un message
qui s'affiche " Else
strMsg = "Aucun élément similaire détecté..."
je souhaite ne pas avoir ce message, car il y a beaucoups de candidats à
saisir et à la longue ca risque d'être pénible de voir ce message s'afficher
à chaque saisie et de devoir cliquer sur "ok" pour fermer la boîte de
dialogue.
Merci pour ton aide
cordialement
--
Cordialement,
Ze Titi
Tout pour réussir avec Access :
http://www.mpfa.info
Dim strMessage as String strMessage=fVerifMultiValue("tblPersonne", "NomPers", Me.NomPers, "PrenomPer", Me.PrenomPer) if strMessage<>"Aucune élément similaire détecté..." then msgbox strMessage
En ce jour mémorable du mardi 13/03/2007, tu as entrepris la lourde tâche de taper sur ton clavier :
Bonjour Jessy, dans ton code lorsque le candidat n'est pas créé j'ai tout de même un message qui s'affiche " Else strMsg = "Aucun élément similaire détecté..." je souhaite ne pas avoir ce message, car il y a beaucoups de candidats à saisir et à la longue ca risque d'être pénible de voir ce message s'afficher à chaque saisie et de devoir cliquer sur "ok" pour fermer la boîte de dialogue. Merci pour ton aide cordialement
-- Cordialement, Ze Titi
Tout pour réussir avec Access : http://www.mpfa.info
