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!
A voir également:
- Condition en VBA
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel condition ou - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
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
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
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
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
Si le nouveau code salarié = a un code salarié déja existant
Alors mesage d'erreur
Donc comment on peut faire sa?
Merci bcp Sashimi