Discussion :

[myrddin99]

Bonjour,

Mon code me ramène un erreur d'opérateur lorsque j'essaie d'effectuer l'action suivante:

Dans un formulaire, j'ai une table, si je modifie la valeur d'un champ dans cette table, j'aimerais que cette valeur se répercute sur l'enregistrement d'une autre table.

Donc, sous l'évênement après modification du champ de mon formulaire j'ai le code suivant:

Code :

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

DoCmd.RunSQL "update table1 set champ1='" & champ1 & "', champ2='" & champ2 & "' where champ1= " & champ1.OldValue & ""

J'ai l'erreur opérateur absent entre le set et le where. Je ne saisis pas, parce qu'au survol, les valeurs attribué dans la fonction sql sont les bonnes, mis a part le oldvalue qui ajoutent '...' a la fin de la valeur.

Est-ce quelqu'un voit d'ou l'ereur peut provenir?

Merci de votre aide

[myrddin99]

Bonour,

J'ai trouvé comment effectuer le changement, j'étais sur le after update au lieu du before update.

Code :

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

1
2
3
4
5
6
Dim originalvalue As String
Dim vtâches As String
Dim StrTableName As String
originalvalue = Me!Tâches.OldValue
vtâches = Me![Tâches]
DoCmd.RunSQL "update tâches set id= '" & ID & "', tâches ='" & vtâches & "' where tâches='" & originalvalue & "' and id='" & ID & "'"

Ça fonctionne très bien a part un cas particulier ou si ma valeur de champ est null, donc vide, la je tombe en erreur pour la fonction, y-a-t'il moyen d'éviter cela?

Merci

[myrddin99]

Bonjour,

Suffisait d'intégrer la fonction NZ...

Problème résolu

Merci

[Taylorised]

Bonjour,

Sinon tu pouvais mettre en place la gestion des erreurs avec un truc dans ce style :

Code :

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

1
2
3
4
5
 
If IsNull(champ1) Then
MsgBox("Veuillez remplir le champ1")
champ1.SetFocus
End If

[myrddin99]

Effectivement Taylorised,

Dans mon cas particulier, je ne pouvais me permettre un arrêt sur chaque champ si le champ était null, j'ai donc passé par NZ pour la variable originalvalue avec un if.

Par contre, merci pour le setfocus, tu m'as fait pensé à rajouter cette fonction en début de formulaire

Merci