Tester Existence Valeur dans Table Access
Philippe
-
Philippe -
Philippe -
Bonjour,
J'ai une table access T_MaTable avec 2 champs distincts Chp1 et Chp2 ; Chp1 et Chp2 prennent des valeurs de type Entier (0,1,2,3,etc).
Je veux vérifier l'existence d'un couple de valeur dans Chp1 et Chp2.... pas très clair hein ?
Par exemple, sur un enregistrement, je veux tester si Chp1 =1 et Chp2 =1 ; avec un algorithme, ça donne quelquechose comme :
Test = vrai
Si (Chp1 = 1 et Chp2 = 1) alors
Test = faux
sinon
Test = vrai
FinSi
J'ai essayé de combiner des While, Until et autres avec des FindFirst ... sans résultat.
Merci d'avance.
J'ai une table access T_MaTable avec 2 champs distincts Chp1 et Chp2 ; Chp1 et Chp2 prennent des valeurs de type Entier (0,1,2,3,etc).
Je veux vérifier l'existence d'un couple de valeur dans Chp1 et Chp2.... pas très clair hein ?
Par exemple, sur un enregistrement, je veux tester si Chp1 =1 et Chp2 =1 ; avec un algorithme, ça donne quelquechose comme :
Test = vrai
Si (Chp1 = 1 et Chp2 = 1) alors
Test = faux
sinon
Test = vrai
FinSi
J'ai essayé de combiner des While, Until et autres avec des FindFirst ... sans résultat.
Merci d'avance.
2 réponses
-
Salut,
Tu as deux solutions:
1) soit tu utilises une query
2) soit tu utilises un code du genre:
Dim mDb As database
Dim mRs as recordset
Set mDb = CurrentDb
Set mRs = mDb.Openrecordset("SELECT * From T_MaTable WHERE Chp1 = 1 AND Chp2 = 2")
Tu testes ensuite si mRs est vide ou non.
P.
Rien n'est plus dangereux qu'une idée quand on a
qu'une idée :-) -
