Discussion :

[Dixies]

Bonsoir,

J'ai un formulaire avec un menu déroulant et un sous-formulaire qui ont pour but de représenter graphiquement (voir ci joint MonFormulaire) une série de valeurs (MaTable Source) en fonction d'une sélection de champs préalablement choisis (MaTableLibellés).

Et pour orchestrer tout ça, un code :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub MdTaureau_Click()
 
    SF_Index!TxtNom = MdTaureau
 
    Dim VarNombre As Long
    Dim i As Long
    Dim VarChamp As String
    Dim VarValeur As Double
 
    VarNombre = DCount("Libellé", "Libellés")
 
    For i = 1 To VarNombre
 
    Dim oDb As DAO.Database
    Dim oQR As DAO.QueryDef
    Set oDb = CurrentDb
    Set oQR = oDb.QueryDefs("Requête1")
 
    VarChamp = oQR.Fields(i).SourceField
 
    If IsNull(DLookup(VarChamp, "Requête1")) Then
        DoCmd.RunSQL ("UPDATE Libellés set ValIndex = Null where Libellé='" & VarChamp & "'")
        GoTo Suite
 
    End If
 
    VarValeur = DLookup(VarChamp, "Requête1")
    DoCmd.RunSQL ("UPDATE Libellés set ValIndex='" & VarValeur & "' where Libellé='" & VarChamp & "'")
 
Suite:
 
    Next
 
    SF_Index.Requery
 
End Sub

de plus, ma table source pouvant avoir plusieurs enregistrements pour un même taureau, deux requêtes me permettent de retenir le dernier en date.

Mon problème : à chaque nouvelle sélection sur ma liste déroulante, une erreur se produit exclusivement sur mon champ IS avec ce message :

Erreur de syntaxe (opérateur absent) dans l'expression "IS"

et en surligant ceci :

Code :

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

If IsNull(DLookup(VarChamp, "Requête1")) Then

Ce qui est trés curieux, seul le champ nommé [IS] génère une erreur, pour les 24 autres champs tout ce passe bien.

Question : est ce que IS est un mot clé Access qu'il ne faut pas utiliser (comme par ex : Date...) ?

Merci pour votre aide.

[f-leb]

bonsoir,

Question : est ce que IS est un mot clé Access qu'il ne faut pas utiliser (comme par ex : Date...) ?

apparemment oui.

[Dixies]

Bonsoir f-leb,

Merci pour le lien proposé.
J'en conclu qu'il me faut trouver une autre solution. Mais laquelle ?

As tu une piste à me proposer ?

[f-leb]

Bonjour,

idéalement, donner un nouveau nom à ce champ.

Sinon, mettre le nom du champ entre crochets [ ],

Code :

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

If IsNull(DLookup("[" & VarChamp & "]" , "Requête1")) Then

[Dixies]

Bonsoir,

Merci pour ta solution : ça marche.

idéalement, donner un nouveau nom à ce champ

oui c'est vrai, mais peut-être t'en doutes-tu, je ne peux absolument pas modifier le nom de ce champ.

Donc , mon problème est résolu ! Mais puis-je te poser une dernière question?

Comme cité plus haut, mon form trouve sa source dans la table Libellés. Ainsi s'affiche dans TxtBoxIndex les index retenus (MO,MA,CC, .....) et dans TxtBoxValeur les valeurs numériques correspondantes.

A chaque MaJ de mon menu déroulante ceci :

Code :

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

1
2
3
4
....
VarValeur = DLookup(VarChamp, "Requête1")
DoCmd.RunSQL ("UPDATE Libellés set ValIndex='" & VarValeur & "' where Libellé='" & VarChamp & "'")
....

met à jour ma table Libellés.

Ce petit bout de code ralentit considérablement la procédure.
Question : peut-on afficher en VBA les valeurs numériques de chaque index directement dans mon formulaire ? Si oui, cela me permettrait de supprimer le "UPDATE" dans mon code.

Merci, bonne soirée.