Discussion :

[33ctdebut]

Bonjour,

J'ai un formulaire basé sur une table alpha.
Dans ce formulaire un contrôle Y (numérique) dont la source est W.
Sur l'évenement "aprés mise à jour", je veux vérifier que ce qu'on vient de saisir existe bien dans la table.
Donc, j'ai tapé le code suivant :

Code :

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

1
2
3
4
 
dim rst as recorset
set rst=currentdb.openrecordset (alpha,dbopendynaset)
rst.findfirst (W=me.Y)

et là erreur 3070 "le moteur de la Bd MS Jet ne reconnaît pas "Vrai" en tant que nom de champ ou expression correcte"

Je n'arrive pas à trouver d'où vient l'erreur.
Si vous pouvez m'aider...
Merci d'avance

[jean-paul lepetit]

Salut,

Peut être ainsi

Code :

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

rst.findfirst "W=" & me.Y

[loufab]

Bonjour,

En connaissant le mode de fonctionnement interne d'ACCESS on s'aperçoit que ce test est totalement inutile.

Pour tester si une valeur existe dans la table source du formulaire actif utilise cette procédure :

Code :

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

1
2
3
4
5
 
dim rst as dao.recordset
set rst = me.recordsetclone
rst.findfirst "W=" & me.Y
if rst.nomatch then ' on trouve pas

A la condition que cette valeur soit unique dans la table sinon elle ne correspondra pas forcément à l'enregistrement saisie.

Enfin... ça reste totalement inutile. (W=me.Y) renvoi vrai la valeur existe dans le 1er enregistrement du recordset.

Cordialement,

[33ctdebut]

J'ai testé ce que vous m'avez indiqué.

A chaque fois, il me renvoie une erreur 3070 me disant qu'il ne reconnait pas W en tant que nom de champ ou expression correcte ????

Je ne comprends pas grand'chose, mais alors là ???

[loufab]

W est-il un nom du champ de la table source du formulaire ?

[33ctdebut]

Je vais recommencer toutes mes explications plus clairement, car je crains de m'y perdre moi-même !

J'ai deux tables EJ et ETAB qui sont liées par une relation de 1 à plusieurs (1 EJ plusieurs ETAB possibles) sur le champ "EJ_Finess" de la table EJ et sur le champ "Finess EJ" côté ETAB.

Un formulaire nommé "frm_ETAB", basé sur la table ETAB et qui contient un contrôle de type zone de texte nommé "FinessEJ". En modification, si l'on saisit une valeur non exsitante, il n'y a aucun message, mais l'ancienne valeur est conservée (exemple: valeur du champ avant modif : 88132, je saisis 64 (qui n'existe pas encore) et je passe à un autre enregistrement. Quand je reviens sur mon enregistrement, la valeur du contrôle est 88132 et non 64 ! mais sans aucun avertissement !)
D'où mon test de recherche d'existence !
J'espère que j'ai enfin été plus clair !

Merci pour votre patience !

[loufab]

Bonjour,

As-tu vérifier que le controle est bien rattaché au champ correspondant dans la table ? C'est le comportement typique d'un controle non rattaché. La valeur est saisie mais n'est pas inscrite dans le champ de la table.

Une fois rattaché la recherche devient inutile.

Cordialement,

[33ctdebut]

Si par rattaché, tu entends que la source du contrôle est défini, c'est bien le cas
La source du contrôle "FinessEJ" est "Finess EJ" de la table ETAB.

Merci.