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
Les codes des salariés sont rentrer sur une feuille Excel?
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
>
Brasco
28 janv. 2009 à 19:04
28 janv. 2009 à 19:04
Bonjour,
Comprend pas ce que tu veux puisque Access le fait pour toi ?
A+
Comprend pas ce que tu veux puisque Access le fait pour toi ?
A+
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
28 janv. 2009 à 15:29
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