Je voudrai ajouter un nouvel enregistrement =E0 ma=20
table "T_Dossier" avec une instruction SQL.
Sub Ajouter()
Dim Critere As String
With Forms![F_UpdateDossier]
Critere =3D "INSERT INTO [T_Dossier] ([NumeroDossier],=20
[TypeDossier], [DateOuvertureDossier]) VALUES ('"=20
& .NumeroDossier & "', '" & .TypeDossier & "', '"=20
& .FileOpenDate & "');"
CurrentDb.Execute Critere
End With
End Sub
Mais rien ne se passe. Qu'est-ce que j'ai mal fait?
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
3stone
Salut,
"José" Je voudrai ajouter un nouvel enregistrement à ma table "T_Dossier" avec une instruction SQL.
Sub Ajouter() Dim Critere As String With Forms![F_UpdateDossier] Critere = "INSERT INTO [T_Dossier] ([NumeroDossier], [TypeDossier], [DateOuvertureDossier]) VALUES ('" & .NumeroDossier & "', '" & .TypeDossier & "', '" & .FileOpenDate & "');" CurrentDb.Execute Critere End With End Sub
Mais rien ne se passe. Qu'est-ce que j'ai mal fait?
Ben... déjà que tu considère ici que les champs sont de type texte...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"José"
Je voudrai ajouter un nouvel enregistrement à ma
table "T_Dossier" avec une instruction SQL.
Sub Ajouter()
Dim Critere As String
With Forms![F_UpdateDossier]
Critere = "INSERT INTO [T_Dossier] ([NumeroDossier],
[TypeDossier], [DateOuvertureDossier]) VALUES ('"
& .NumeroDossier & "', '" & .TypeDossier & "', '"
& .FileOpenDate & "');"
CurrentDb.Execute Critere
End With
End Sub
Mais rien ne se passe. Qu'est-ce que j'ai mal fait?
Ben... déjà que tu considère ici que les champs sont de type texte...
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"José" Je voudrai ajouter un nouvel enregistrement à ma table "T_Dossier" avec une instruction SQL.
Sub Ajouter() Dim Critere As String With Forms![F_UpdateDossier] Critere = "INSERT INTO [T_Dossier] ([NumeroDossier], [TypeDossier], [DateOuvertureDossier]) VALUES ('" & .NumeroDossier & "', '" & .TypeDossier & "', '" & .FileOpenDate & "');" CurrentDb.Execute Critere End With End Sub
Mais rien ne se passe. Qu'est-ce que j'ai mal fait?
Ben... déjà que tu considère ici que les champs sont de type texte...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
José
C'est à dire? Où est mon erreur de syntaxe?
Merci.
-----Message d'origine----- Salut,
"José" Je voudrai ajouter un nouvel enregistrement à ma table "T_Dossier" avec une instruction SQL.
Sub Ajouter() Dim Critere As String With Forms![F_UpdateDossier] Critere = "INSERT INTO [T_Dossier] ([NumeroDossier], [TypeDossier], [DateOuvertureDossier]) VALUES ('" & .NumeroDossier & "', '" & .TypeDossier & "', '" & .FileOpenDate & "');" CurrentDb.Execute Critere End With End Sub
Mais rien ne se passe. Qu'est-ce que j'ai mal fait?
Ben... déjà que tu considère ici que les champs sont de type texte...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
C'est à dire? Où est mon erreur de syntaxe?
Merci.
-----Message d'origine-----
Salut,
"José"
Je voudrai ajouter un nouvel enregistrement à ma
table "T_Dossier" avec une instruction SQL.
Sub Ajouter()
Dim Critere As String
With Forms![F_UpdateDossier]
Critere = "INSERT INTO [T_Dossier] ([NumeroDossier],
[TypeDossier], [DateOuvertureDossier]) VALUES ('"
& .NumeroDossier & "', '" & .TypeDossier & "', '"
& .FileOpenDate & "');"
CurrentDb.Execute Critere
End With
End Sub
Mais rien ne se passe. Qu'est-ce que j'ai mal fait?
Ben... déjà que tu considère ici que les champs sont
de type texte...
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"José" Je voudrai ajouter un nouvel enregistrement à ma table "T_Dossier" avec une instruction SQL.
Sub Ajouter() Dim Critere As String With Forms![F_UpdateDossier] Critere = "INSERT INTO [T_Dossier] ([NumeroDossier], [TypeDossier], [DateOuvertureDossier]) VALUES ('" & .NumeroDossier & "', '" & .TypeDossier & "', '" & .FileOpenDate & "');" CurrentDb.Execute Critere End With End Sub
Mais rien ne se passe. Qu'est-ce que j'ai mal fait?
Ben... déjà que tu considère ici que les champs sont de type texte...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
3stone
Salut,
"José" C'est à dire? Où est mon erreur de syntaxe?
Les chaînes de caractères (string) sont à entourer par des " ' " comme tu l'as fait.
Les numériques ne demande rien et les dates, au format US demande des "#"
A voir dans l'aide en ligne.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"José"
C'est à dire? Où est mon erreur de syntaxe?
Les chaînes de caractères (string) sont à entourer
par des " ' " comme tu l'as fait.
Les numériques ne demande rien et les dates,
au format US demande des "#"
A voir dans l'aide en ligne.
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
