Discussion :

[Chevalier au taureau]

Bonjour.

Je suis sous Access 2000, et j'ai dans divers formulaires un bouton "Valeurs par défaut" qui doit réinitialiser des champs à leur valeur par défaut définie dans la table.
Or, il se trouve que pour un champ X, je n'ai pas de valeur par défaut dans l'espion, alors que tous les autres champs du Recordset en ont une, et qu'elle est bien présente dans la table. Access me donne donc une erreur '2431' pour ce champ. Voici comment je mets à jour mes valeurs par défaut :

Code :

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

CHAMP = Eval(Recordset("CHAMP").DefaultValue)

Dans la table, le champ a bien une valeur par défaut.
Je n'ai pas trouvé de référence à ce problème.

Par avance, merci.

Le chevalier au taureau.

[loufab]

Bonjour,

La fonction Eval n'est pas destinée à ce genre d'utilisation.

Il faut jamais utiliser des mots clefs comme nom d'objet utilisateur. Recordset en est un.

Peut-on voir un peu plus de ton code (la partie déclarative par exemple) ?

Nous ne sommes malheureusement pas encore extra-lucide.

Cordialement,

[Chevalier au taureau]

Bonjour,

Merci de chercher à me dépanner.

Alors, j'ai utilisé la fonction Eval parce que Access, parfois, me considère un réel comme une chaîne de caractères.

C'est du code derrière un bouton d'un formulaire. Le Recordset est le Recordset du formulaire, ce n'est pas moi qui ait nommé ceci, ça fait partie des membres de mon formulaire.

C'est un formulaire généré par Access, je n'ai pas changé les noms des champs, j'ai simplement ajouté un bouton "Valeurs par défaut". Le seul code que j'ai est :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
 
Private Sub btn_Default_Click()
      FREQUENCY = Eval(Recordset("FREQUENCY").DefaultValue)
      I_DROP_MIN = Eval(Recordset("I_DROP_MIN").DefaultValue)
      I_DROP_MAX = Eval(Recordset("I_DROP_MAX").DefaultValue)
      I_RAISE_MIN = Eval(Recordset("I_RAISE_MIN").DefaultValue)
      I_RAISE_MAX = Eval(Recordset("I_RAISE_MAX").DefaultValue)
      K_CONSUMPTION = Eval(Recordset("K_CONSUMPTION").DefaultValue)
End Sub

Tous ces champs sont déclarés comme réels simples dans la table. Tous passent bien, sauf K_CONSUMPTION. Certes, si je n'utilise pas Eval, Access génère une erreur de type. K_CONSUMPTION ne passe pas. Dans l'espion, Recordset("K_CONSUMPTION").DefaultValue est vide ("").

Je ne sais pas quelles informations vous voudriez. S'il faut aussi la définition de la table et du formulaire, je ne sais pas comment les récupérer.

Merci d'avance,

[loufab]

Bonjour,

N'utilise pas Eval, utilise plutot un traitement pour la détection des types de données ou force simplement le réel.

Regarde du coté de Cdbl() ou Csng() pour forcer un string en réel.

cordialement,