Bonjour,
j'utilise un formulaire qui avant ouverture me demande le nom et le prénom
de l'agent concerné, le hic c'est que tous mes agents sont identifiés par
matricule et qu'un agent peut être créé sous deux matricules, car 50 % dans
un service et 50 % dans un autre service, je donne la possibilité d'ouvrir
le formulaire par matricule mais si on ne sait pas le nummat, j'ai donc
imaginé de faire une autre ouverture par les nom et prénom, mais comme j'ai
environ 17 agents en doublon comment faire pour que lorsque l'utilisateur
sélectionne l'ouverture du formulaire par nom, que sur ouverture de mon
formulaire un message alerte que l'agent existe sous deux numéros de
matricule différent, donc une liste qui me ferais voir les nom/prénom,
matricule et à ce moment la je clic sur le nom de celui que je désire voir
apparaître dans mon formulaire ?????
Est-ce possible ? si oui comment ?
Merci
Bonjour Fabien, j'ai du mal à m'en sortir, voici ce que j'ai mis : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les doublons, je clic sur le matricule qui me concerne pour ouvrir un autre masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais un ou plusieurs noms identiques, alors que si la condition ne comporte pas de doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir normalement ??? Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu me corriger : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName End If j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé sur mon if ?? j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....) Si c'est >1 alors fait apparaitre la liste avec les differentes possibilités
sinon tu ne fait rien
Ben faut pas >0 ;-) puisque forcément ton gus y est une fois dans ton
fichier. Essaie avec >1 ;-)
Bonjour Fabien,
j'ai du mal à m'en sortir, voici ce que j'ai mis :
Dim stDocName As String
If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez
sélectioner votre choix !!"
stDocName = "ouvrir_fermer.ouvresimilaire"
DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les
doublons, je clic sur le matricule qui me concerne pour ouvrir un autre
masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de
doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais
un ou plusieurs noms identiques, alors que si la condition ne comporte pas de
doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir
normalement ???
Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu me
corriger :
Dim stDocName As String
If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez
sélectioner votre choix !!"
stDocName = "ouvrir_fermer.ouvresimilaire"
DoCmd.RunMacro stDocName
End If
j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé
sur mon if ??
j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....)
Si c'est >1 alors fait apparaitre la liste avec les differentes possibilités
sinon tu ne fait rien
Ben faut pas >0 ;-) puisque forcément ton gus y est une fois dans ton
Bonjour Fabien, j'ai du mal à m'en sortir, voici ce que j'ai mis : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les doublons, je clic sur le matricule qui me concerne pour ouvrir un autre masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais un ou plusieurs noms identiques, alors que si la condition ne comporte pas de doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir normalement ??? Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu me corriger : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName End If j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé sur mon if ?? j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....) Si c'est >1 alors fait apparaitre la liste avec les differentes possibilités
sinon tu ne fait rien
Ben faut pas >0 ;-) puisque forcément ton gus y est une fois dans ton
fichier. Essaie avec >1 ;-)
Fabien
Bonjour Uriane.
Au risque de me faire débouter par Fabien, j'interviens juste pour signaler que le compte doit être supérieur à 1, pas à 0. Salut Thierry
débouter, débouter est ce que j'ai une tête à débouter ;-)
En ce jour mémorable du mercredi 21/11/2007, tu as émis l'idée suivante:
Bonjour Fabien, j'ai du mal à m'en sortir, voici ce que j'ai mis : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les doublons, je clic sur le matricule qui me concerne pour ouvrir un autre masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais un ou plusieurs noms identiques, alors que si la condition ne comporte pas de doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir normalement ??? Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu me corriger : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName End If j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé sur mon if ?? j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....) Si c'est >1 alors fait apparaitre la liste avec les differentes
possibilités sinon tu ne fait rien
Bonjour Uriane.
Au risque de me faire débouter par Fabien, j'interviens juste pour
signaler que le compte doit être supérieur à 1, pas à 0.
Salut Thierry
débouter, débouter est ce que j'ai une tête à débouter ;-)
En ce jour mémorable du mercredi 21/11/2007, tu as émis l'idée suivante:
Bonjour Fabien,
j'ai du mal à m'en sortir, voici ce que j'ai mis :
Dim stDocName As String
If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0
Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez
sélectioner votre choix !!"
stDocName = "ouvrir_fermer.ouvresimilaire"
DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec
les doublons, je clic sur le matricule qui me concerne pour ouvrir un
autre masque donc ça fonctionne, ce qui ne va pas c'est que même si je
n'ai pas de doublon j'ai mon messg et la suite se déroule de la même
façon que si j'avais un ou plusieurs noms identiques, alors que si la
condition ne comporte pas de doublon , l'agent concerné est unique,mon
formulaire devrait pouvoir s'ouvrir normalement ??? Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille"
peux tu me corriger : Dim stDocName As String
If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez
sélectioner votre choix !!"
stDocName = "ouvrir_fermer.ouvresimilaire"
DoCmd.RunMacro stDocName
End If
j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste
coincé sur mon if ??
j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....)
Si c'est >1 alors fait apparaitre la liste avec les differentes
Au risque de me faire débouter par Fabien, j'interviens juste pour signaler que le compte doit être supérieur à 1, pas à 0. Salut Thierry
débouter, débouter est ce que j'ai une tête à débouter ;-)
En ce jour mémorable du mercredi 21/11/2007, tu as émis l'idée suivante:
Bonjour Fabien, j'ai du mal à m'en sortir, voici ce que j'ai mis : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les doublons, je clic sur le matricule qui me concerne pour ouvrir un autre masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais un ou plusieurs noms identiques, alors que si la condition ne comporte pas de doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir normalement ??? Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu me corriger : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName End If j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé sur mon if ?? j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....) Si c'est >1 alors fait apparaitre la liste avec les differentes
possibilités sinon tu ne fait rien
URIANE
Yesssssssssssssssssssssssssss, je vous adore tous les deux Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
Bonjour Uriane.
Au risque de me faire débouter par Fabien, j'interviens juste pour signaler que le compte doit être supérieur à 1, pas à 0.
En ce jour mémorable du mercredi 21/11/2007, tu as émis l'idée suivante:
Bonjour Fabien, j'ai du mal à m'en sortir, voici ce que j'ai mis : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les doublons, je clic sur le matricule qui me concerne pour ouvrir un autre masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais un ou plusieurs noms identiques, alors que si la condition ne comporte pas de doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir normalement ??? Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu me corriger : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName End If j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé sur mon if ?? j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....) Si c'est >1 alors fait apparaitre la liste avec les differentes
possibilités sinon tu ne fait rien
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Yesssssssssssssssssssssssssss, je vous adore tous les deux
Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
Bonjour Uriane.
Au risque de me faire débouter par Fabien, j'interviens juste pour
signaler que le compte doit être supérieur à 1, pas à 0.
En ce jour mémorable du mercredi 21/11/2007, tu as émis l'idée
suivante:
Bonjour Fabien,
j'ai du mal à m'en sortir, voici ce que j'ai mis :
Dim stDocName As String
If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez
sélectioner votre choix !!"
stDocName = "ouvrir_fermer.ouvresimilaire"
DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les
doublons, je clic sur le matricule qui me concerne pour ouvrir un autre
masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de
doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais
un ou plusieurs noms identiques, alors que si la condition ne comporte pas de
doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir
normalement ???
Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu
me corriger :
Dim stDocName As String
If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez
sélectioner votre choix !!"
stDocName = "ouvrir_fermer.ouvresimilaire"
DoCmd.RunMacro stDocName
End If
j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé
sur mon if ??
j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....)
Si c'est >1 alors fait apparaitre la liste avec les differentes
possibilités sinon tu ne fait rien
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
Yesssssssssssssssssssssssssss, je vous adore tous les deux Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
Bonjour Uriane.
Au risque de me faire débouter par Fabien, j'interviens juste pour signaler que le compte doit être supérieur à 1, pas à 0.
En ce jour mémorable du mercredi 21/11/2007, tu as émis l'idée suivante:
Bonjour Fabien, j'ai du mal à m'en sortir, voici ce que j'ai mis : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel='" & Me.Nom_usuel & "'") > 0 Then
MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName
End If
donc si doublon, alors mssg, puis mon for intermédiaire s'ouvre, avec les doublons, je clic sur le matricule qui me concerne pour ouvrir un autre masque donc ça fonctionne, ce qui ne va pas c'est que même si je n'ai pas de doublon j'ai mon messg et la suite se déroule de la même façon que si j'avais un ou plusieurs noms identiques, alors que si la condition ne comporte pas de doublon , l'agent concerné est unique,mon formulaire devrait pouvoir s'ouvrir normalement ??? Merci
Bon j'ai essayé de me débrouiller toute seule mais je "merdouille" peux tu me corriger : Dim stDocName As String If DCount("*", "tb_listeAgts", "Nom_usuel" & "'") > 0 Then MsgBox "Cet agent existe sous un autre numéro de matricule veuillez sélectioner votre choix !!" stDocName = "ouvrir_fermer.ouvresimilaire" DoCmd.RunMacro stDocName End If j'ai mis ça sur ouverture de mon formulaire, mais l'évennement reste coincé sur mon if ?? j'ai "erreur de syntaxe dans la chaine dans l'expression "Nom_usuel"
(Dcount("*","Table","[Nom]='"& .....) Si c'est >1 alors fait apparaitre la liste avec les differentes
possibilités sinon tu ne fait rien
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
