Condition en VBA
ZT
-
Christian -
Christian -
Bonjour,
Voila sur un formulaire d'ajout j'ai un "code salarié" et je voudrais faire une condtion que si le nouveau "code salarié" et égale a un code salarié qui existe déja, alors j'ai un message qui me dit de changer mon code salarié seulement je ne sais pas faire ma condition en VBA puisque je ne connais pas le VBA!
Merci d'avance!
Voila sur un formulaire d'ajout j'ai un "code salarié" et je voudrais faire une condtion que si le nouveau "code salarié" et égale a un code salarié qui existe déja, alors j'ai un message qui me dit de changer mon code salarié seulement je ne sais pas faire ma condition en VBA puisque je ne connais pas le VBA!
Merci d'avance!
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
Pour exprimer la condition en vba on utilise la fonction If
par exemple :
Sub salarié()
If CodeSalarié1 = CodeSalarié2 Then
Rep = MsgBox("Ce code est déja attribué a un salarié", vbOKONly + vbInformation,"Attention")
End If
End Sub -
-
pouver vous me copiez coller le code vba sur cette discussion afin que je puisse la modifier?
-
Ben je l'ai pas fait pour linstant mais sa serait du style comme tu la fait seulement la condition serait :
Sub salarié()
If nouveau.CodeSalarié = Existant.CodeSalarié Then
Rep = MsgBox("Ce code est déja attribué a un salarié", vbOKONly + vbInformation,"Attention")
End If
End Sub
Seulement je sais pas comment faire "If nouveau.CodeSalarié = Existant.CodeSalarié " en VBA si tu pouviat m'aider!
Merci bcp
-
-
salut
Code VB :
Nbr = DCount("[Demande]", "R31_DoublonDemande") ' controle de doublons
If Nbr > 0 Then MsgBox "Attention doublon", vbCritical, "ATTENTION"
Demande est un champ de la requete R31_xxx
R31_xx est une requete dans laquelle tu mettras en critère le code du salarié que tu es en train de saisir . Ainsi si tu as une réponse cela signifie que ce code existe déja dans la table et Nbr sera égal à 1.
Cette procédure doit se loger dans la propriété du formulaire " Aprés mise à jour "
C'est très simple mais pas évident à expliquer , je l'utilise dans mes applis
Bon courage
