Discussion :

[benjisan]

Bonjour à tous,

Voici mon problème

J'ai une table test, dans cette table test, j'ai 3 champs.

Exemple :

Champ1 champ2 champ3
101 103 test1
106 107 test2
108 108 test3
111 121 test4

Je voudrais que lorsque je reçoit par exemple le code 102, elle me retourne test1.
Si j'indique 113, elle me retourne test4

D'avance merci

[benjisan]

J'ai essayé avec un dlookup et un and au niveau du critère, mais cela ne fonctionne pas, je n'ai pas le bon résultat

[DMboup]

Montres comment tu as fait.

[benjisan]

Voici en gros

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dlookup("champ3","test","champ1>=var and champ2<=var")

[Invité]

Bonjour

Essayes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dlookup("champ3","test","champ1>=" & var & " and champ2<=" & var)

Starec

[benjisan]

Bonjour Starec,

Merci pour ta réponse, je viens d'essayer mais malheureusement, j'ai un message d'erreur.

Erreur d'exécution : '94'
Utilisation incorrecte de Null

Encore merci

[Invité]

Bonjour

A quel niveau ?

Cela peut signifier que ton DLookup renvoie une valeur nulle, cela signifie qu'il n'y a pas de correspondance.

A ce moment, avant de récupérer le retour du DLookup, il faut tester la nullité, avec IsNull

Starec

[benjisan]

J'ai pourtant contrôlé dans la table, normalement il doit me retourner une valeur

[Invité]

Re

De quel type sont tes champs 1 et 2 ?

Starec

[benjisan]

Numérique

[Invité]

Re

Mets le code complet, de la déclaration de la variable à l'affichage du résultat.

Starec

[LE VIEUX]

bonjour,
une autre possibilité, testée, fonctionne
une fonction à appeler d'un formulaire ou requête.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function RechTest(Code)
Dim cnc As New ADODB.Connection
Dim rstTest As New ADODB.Recordset
 
 
Set cnc = CurrentProject.Connection
rstTest.Open "Test", cnc, adOpenDynamic, adLockBatchOptimistic
 
While Not rstTest.EOF
 
If Code >= rstTest("Champ1") And Code <= rstTest("Champ2") Then
RechTest = rstTest("Champ3")
 
Exit Function
End If
rstTest.MoveNext
Wend
rstTest.Close
 
End Function

ne pas oublier la référence
Microsoft ActiveX Data Objects 2.8 library

[benjisan]

Un grand merci à tous, c'est OK

A bientôt