Discussion :

[tAKAmAkA]

Bonjour à tous,

J'ai un problème avec DLookup qui est peut-être du à la syntaxe mais j'ai essayé plusieurs syntaxes sans succès.
Voici commenté dans le code les erreurs:

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
Private Sub Form_Current()
Dim TP As String
TP = Me.txtTraveeID
Debug.Print "TP  "; TP
 
'Opération annulée:
'Me.txtNbreTablette.Value = DLookup("[CompteDeTabletteID]", "qryNbreTablette", "[TraveeParent] = TP")
 
'Erreur de syntaxe (Opérateur absent)  dans l'expression [TraveeParent] = '11AA'
Me.txtNbreTablette.Value = DLookup("[CompteDeTabletteID]", "qryNbreTablette", "[TraveeParent] = " & Me.txtTraveeID)
 
'Sans Critere, ça fonctionne:
'Me.txtNbreTablette.Value = DLookup("CompteDeTabletteID", "qryNbreTablette")
 
End Sub

La requete est ok

Code :

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

1
2
3
SELECT tblTablette.TraveeParent, Count(tblTablette.TabletteID) AS CompteDeTabletteID
FROM tblTablette
GROUP BY tblTablette.TraveeParent;

J'ai un DLookup similaire qui fonctionne

Code :

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

1
2
3
Private Sub Form_Current()
Me.txtOccupation.Value = DLookup("SommeDeEncombrement", "qryOccupationTablette", [TabletteID] = Me.txtTabletteID)
End Sub

Avec une requète analogue (Somme au lieu de Compte)

Code :

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

1
2
3
SELECT tblTablette.TabletteID, Sum(tblListeConditionnement.Encombrement) AS SommeDeEncombrement
FROM tblTablette INNER JOIN (tblListeConditionnement INNER JOIN tblItem ON tblListeConditionnement.ConditionnementID = tblItem.Conditionnement) ON tblTablette.TabletteID = tblItem.AdTopo
GROUP BY tblTablette.TabletteID;

Merci de votre attention

[Toftof]

Bonjour,

A priori, il s agit d une erreur de syntaxe :
penser à "marquer" les STRING en SQL avec des cotes simples par exemple:

Code :

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

1
2
 
DLookup("[CompteDeTabletteID]", "qryNbreTablette", "[TraveeParent] = '" & Me.txtTraveeID & "'"

Ensuite, plutôt que de faire une query sur laquelle tu fais un DLOOKUP, tu peux compter directement:

Code :

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

1
2
 
DLookup("Count([ID])", "TabledesTablette", "[TraveeParent] = '" & Me.txtTraveeID & "'"

[tAKAmAkA]

Merci Toftof,

J'étais passé par les quotes simple, mais peut-être avec une erreur ailleurs.
Je vais faire avec un calcul direct dans le DLookup, c'est effectivement beaucoup plus léger.
Merci encore
A +
JC