Afficher une pop up après vérification dans une table [Résolu]

[Budy123]

Bonjour,

j'ai un petit soucis pour afficher une pop conditionnelle, je m'explique, j'ai un formulaire qui contient 2 champs (Carrier et ID_N) qui vont alimenter ma table1.
Je saisie une seule fois et le Carrier et ensuite Je saisie tous les ID_N présent sur une liste (Environ 50).
Lors de chaque saisie d'un ID_N, je souhaite vérifié que le Carrier que j'ai saisie dans mon formulaire corresponde au Carrier présent dans ma table2.
Si c'est le cas, l'ID_N saisie alimentera ma table1, si ce n'est pas le cas, je souhaite afficher une Pop Up d'information pour l'utilisateur.
Je souhaites en faite faire pour chaque saisie de l'ID_N effectuer une sorte de RechercheV comme dans excel avec POp up si le résultat est faux.
Je ne sais pas trop comment construire ma macro.

J'espere ne pas avoir été trop brouillon dans mes explications.
Merci de votre aide.

[marot_r]

Je ne suis pas certain d'avoir bien compris ton besoin mais l'équivalent de VLookUp() est DFirst().

Je ferai une procédure de ce type :

Code :

1
2
3
4
5
6
7
8
9
10
11
public sub VerifierCarrier(prmIdCarrier as variant)
 
   if not isnull(prmIdCarrier) then
 
     if isNull(DFirst("IdCarrier", "Table2", "[IdCarrier]=" & prmIdCarrier)) then
        msgbox "Le Carrier n'existe pas.",vbInformation
     end if
 
   end if
 
end sub

DFirst() retourne null si la donnée cherchée n'existe pas.

Tu pourrais déclencher VerifierCarrier() sur l'événement ApresMAJ ou AvantMAJ cela dépend un peu de comment tu veux gérer l'abscence.

A+

A+

[Budy123]

J'ai testé plusieurs solution sans success.
En faite avant d'enregistrer mon "ID_N" et mon "Carrier", je souhaite vérifier que mon Me.Carrier et celui qui se trouve dans ma Table2 pour la ligne correspondant à l'ID_N soit bien les memes

Un petit schema vaut mieux qu'une grande explication.

Form :
-Me.ID_N = 123
-Me.Carrier = UKF

Dans ma Table2 :
Si pour l'enregistrement correspondant à "Me.ID_N" 123 le Carrier(Table2) = UKF c'est OK
En revanche si pour l'enregistrement correspondant à "Me.ID_N" 123 le Carrier(Table2) = RFG alors j'affiche un MsgBox.

[Budy123]

J'ai trouvé une partie de la solution, le code fonctionne, mais je souhaites que le MsgBox s'affiche que si le ServiceLevel ne correspond pas. Or dans avec ma ligne de code il s'affiche si le carrier correspond.

Code :

1
2
3
4
5
 
If Nz(DLookup("[Ex_CaseID]", "tblExceed", "[Ex_CaseID]='" & Me.CaseID & "' AND [Ex_ServiceLevel]='" & Me.ServiceLevel & "'")) = True Then
MsgBox "Le Drop ID ne correspond pas au Carrier sélectioné", vbCritical, "Duplicate!!"
Cancel = True
End If

[Budy123]

J'ai solutionné le problème, j'ai modifié l'opérateur de comparaison pour le ServiceLevel, j'ai modifié le "=" par "<>" (différent de....).

Merci marot_r pour m'avoir mis sur la voie...