je ne parviens pas à mettre à jour une valeur dans une table à partir d'un
contrôle indépendant par VBA.
Un contrôle indépendant est dans un formulaire. Aprés mise à jour du
contrôle, je souhaite inscrire la valeur dans le champ d'une table. J'ai
essayé les deux méthodes suivantes mais cela bloque. Voici mon code :
Private Sub Chemin_Exit(Cancel As Integer)
Dim MyDB As Database, MyTable As TableDef
Dim MyQuery As QueryDef, MyRecordset As Recordset
Set MyDB = CurrentDb()
Change = Me!Chemin (j'ai essayé de récupérer a valeur dans une variable
mais le résultat est le même).
Solution 1 :
Set MyQuery = MyDB.CreateQueryDef("", "UPDATE Variables SET
Variables.[Txt] =" & Me!Chemin & " WHERE
(((Variables.Variable)='CheminIJ'));")
MyQuery.Execute
Solution 2 :
DoCmd.RunSQL "UPDATE Variables SET Variables.Txt =" & Me.[Chemin] &
" where Variables.Variable ='CheminIJ' & ";"
ou DoCmd.RunSQL "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & "
WHERE (((Variables.Variable)='CheminIJ'));"
End Sub
Aucune des solutions ne fonctionne. Il y a probablement une erreur de
syntaxe mais je ne sais pas laquelle.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilbert
Bonjour,
Si ton champ est de type texte, essaie avec DoCmd.RunSQL "UPDATE Variables SET Variables.Txt =""" & Me.[Chemin] & """ where Variables.Variable ='CheminIJ';"
-- Cordialement,
Gilbert
"Georges" a écrit dans le message de news:
Bonjour,
je ne parviens pas à mettre à jour une valeur dans une table à partir d'un contrôle indépendant par VBA.
Un contrôle indépendant est dans un formulaire. Aprés mise à jour du contrôle, je souhaite inscrire la valeur dans le champ d'une table. J'ai essayé les deux méthodes suivantes mais cela bloque. Voici mon code :
Private Sub Chemin_Exit(Cancel As Integer) Dim MyDB As Database, MyTable As TableDef Dim MyQuery As QueryDef, MyRecordset As Recordset Set MyDB = CurrentDb() Change = Me!Chemin (j'ai essayé de récupérer a valeur dans une variable
mais le résultat est le même).
Solution 1 : Set MyQuery = MyDB.CreateQueryDef("", "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & " WHERE (((Variables.Variable)='CheminIJ'));") MyQuery.Execute
ou DoCmd.RunSQL "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & "
WHERE (((Variables.Variable)='CheminIJ'));"
End Sub
Aucune des solutions ne fonctionne. Il y a probablement une erreur de syntaxe mais je ne sais pas laquelle.
Merci de votre aide.
Bonjour,
Si ton champ est de type texte, essaie avec
DoCmd.RunSQL "UPDATE Variables SET Variables.Txt =""" & Me.[Chemin] & """
where Variables.Variable ='CheminIJ';"
--
Cordialement,
Gilbert
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news:2531C6CC-9787-485E-AADA-C2B57E8C1575@microsoft.com...
Bonjour,
je ne parviens pas à mettre à jour une valeur dans une table à partir d'un
contrôle indépendant par VBA.
Un contrôle indépendant est dans un formulaire. Aprés mise à jour du
contrôle, je souhaite inscrire la valeur dans le champ d'une table. J'ai
essayé les deux méthodes suivantes mais cela bloque. Voici mon code :
Private Sub Chemin_Exit(Cancel As Integer)
Dim MyDB As Database, MyTable As TableDef
Dim MyQuery As QueryDef, MyRecordset As Recordset
Set MyDB = CurrentDb()
Change = Me!Chemin (j'ai essayé de récupérer a valeur dans une
variable
mais le résultat est le même).
Solution 1 :
Set MyQuery = MyDB.CreateQueryDef("", "UPDATE Variables SET
Variables.[Txt] =" & Me!Chemin & " WHERE
(((Variables.Variable)='CheminIJ'));")
MyQuery.Execute
Si ton champ est de type texte, essaie avec DoCmd.RunSQL "UPDATE Variables SET Variables.Txt =""" & Me.[Chemin] & """ where Variables.Variable ='CheminIJ';"
-- Cordialement,
Gilbert
"Georges" a écrit dans le message de news:
Bonjour,
je ne parviens pas à mettre à jour une valeur dans une table à partir d'un contrôle indépendant par VBA.
Un contrôle indépendant est dans un formulaire. Aprés mise à jour du contrôle, je souhaite inscrire la valeur dans le champ d'une table. J'ai essayé les deux méthodes suivantes mais cela bloque. Voici mon code :
Private Sub Chemin_Exit(Cancel As Integer) Dim MyDB As Database, MyTable As TableDef Dim MyQuery As QueryDef, MyRecordset As Recordset Set MyDB = CurrentDb() Change = Me!Chemin (j'ai essayé de récupérer a valeur dans une variable
mais le résultat est le même).
Solution 1 : Set MyQuery = MyDB.CreateQueryDef("", "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & " WHERE (((Variables.Variable)='CheminIJ'));") MyQuery.Execute
ou DoCmd.RunSQL "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & "
WHERE (((Variables.Variable)='CheminIJ'));"
End Sub
Aucune des solutions ne fonctionne. Il y a probablement une erreur de syntaxe mais je ne sais pas laquelle.
Merci de votre aide.
Georges
Bonjour,
dans le mille !!!
Merci :-)
Bonjour,
Si ton champ est de type texte, essaie avec DoCmd.RunSQL "UPDATE Variables SET Variables.Txt =""" & Me.[Chemin] & """ where Variables.Variable ='CheminIJ';"
-- Cordialement,
Gilbert
"Georges" a écrit dans le message de news:
Bonjour,
je ne parviens pas à mettre à jour une valeur dans une table à partir d'un contrôle indépendant par VBA.
Un contrôle indépendant est dans un formulaire. Aprés mise à jour du contrôle, je souhaite inscrire la valeur dans le champ d'une table. J'ai essayé les deux méthodes suivantes mais cela bloque. Voici mon code :
Private Sub Chemin_Exit(Cancel As Integer) Dim MyDB As Database, MyTable As TableDef Dim MyQuery As QueryDef, MyRecordset As Recordset Set MyDB = CurrentDb() Change = Me!Chemin (j'ai essayé de récupérer a valeur dans une variable
mais le résultat est le même).
Solution 1 : Set MyQuery = MyDB.CreateQueryDef("", "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & " WHERE (((Variables.Variable)='CheminIJ'));") MyQuery.Execute
ou DoCmd.RunSQL "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & "
WHERE (((Variables.Variable)='CheminIJ'));"
End Sub
Aucune des solutions ne fonctionne. Il y a probablement une erreur de syntaxe mais je ne sais pas laquelle.
Merci de votre aide.
Bonjour,
dans le mille !!!
Merci :-)
Bonjour,
Si ton champ est de type texte, essaie avec
DoCmd.RunSQL "UPDATE Variables SET Variables.Txt =""" & Me.[Chemin] & """
where Variables.Variable ='CheminIJ';"
--
Cordialement,
Gilbert
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news:2531C6CC-9787-485E-AADA-C2B57E8C1575@microsoft.com...
Bonjour,
je ne parviens pas à mettre à jour une valeur dans une table à partir d'un
contrôle indépendant par VBA.
Un contrôle indépendant est dans un formulaire. Aprés mise à jour du
contrôle, je souhaite inscrire la valeur dans le champ d'une table. J'ai
essayé les deux méthodes suivantes mais cela bloque. Voici mon code :
Private Sub Chemin_Exit(Cancel As Integer)
Dim MyDB As Database, MyTable As TableDef
Dim MyQuery As QueryDef, MyRecordset As Recordset
Set MyDB = CurrentDb()
Change = Me!Chemin (j'ai essayé de récupérer a valeur dans une
variable
mais le résultat est le même).
Solution 1 :
Set MyQuery = MyDB.CreateQueryDef("", "UPDATE Variables SET
Variables.[Txt] =" & Me!Chemin & " WHERE
(((Variables.Variable)='CheminIJ'));")
MyQuery.Execute
Si ton champ est de type texte, essaie avec DoCmd.RunSQL "UPDATE Variables SET Variables.Txt =""" & Me.[Chemin] & """ where Variables.Variable ='CheminIJ';"
-- Cordialement,
Gilbert
"Georges" a écrit dans le message de news:
Bonjour,
je ne parviens pas à mettre à jour une valeur dans une table à partir d'un contrôle indépendant par VBA.
Un contrôle indépendant est dans un formulaire. Aprés mise à jour du contrôle, je souhaite inscrire la valeur dans le champ d'une table. J'ai essayé les deux méthodes suivantes mais cela bloque. Voici mon code :
Private Sub Chemin_Exit(Cancel As Integer) Dim MyDB As Database, MyTable As TableDef Dim MyQuery As QueryDef, MyRecordset As Recordset Set MyDB = CurrentDb() Change = Me!Chemin (j'ai essayé de récupérer a valeur dans une variable
mais le résultat est le même).
Solution 1 : Set MyQuery = MyDB.CreateQueryDef("", "UPDATE Variables SET Variables.[Txt] =" & Me!Chemin & " WHERE (((Variables.Variable)='CheminIJ'));") MyQuery.Execute