Discussion :

[Pitou5464]

Salut à tous,

Je voudrai insérer dans deux champs d'une de mes tables deux valeurs a et b

Code :

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

1
2
3
Dim str As String
str = "INSERT INTO T_Historique2 (TYPE, DATE) VALUES ('a', 'b')"
DoCmd.RunSQL str

j'ai une erreur de syntax mais je vois pas laquelle. Merci pour votre aide.

[issam16]

salut,
est ce que Date c'est de type date?
si oui je crois qu'il faut faire entre # plutôt que ' .

[Pitou5464]

Le date de ma requête SQL c'est un champ

[issam16]

Le date de ma requête SQL c'est un champ

je crois qu'on s'est mal compris je te parle de DATE le champ de ta table ou tu veux inserer?

[zesamoth]

Bonjour,

Pour ma part, mais je ne veux pas t'induire en erreur, il me semble que les cotes dont tu entoures tes valeurs a et b s'utilisent pour des valeurs de type string. Donc dans ton cas tu devras faire :

Code :

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

1
2
 
str = "INSERT INTO T_Historique2 (TYPE, DATE) VALUES ('a', b);"

Et ne pas oublier le point virgule (mais je crois que ça fonctionne que tu le mettes ou pas). Voila j'éspère que ça va marcher

Bon courage

[Pitou5464]

ça ne marche pas, il me met toujours qu'il y a une erreur de syntaxe.

[zesamoth]

essayez voir de faire

Code :

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

str = "INSERT INTO T_Historique2 (TYPE, DATE) VALUES ('a', #b#);"

Comme te le dis Issam

@+

[issam16]

ça ne marche pas, il me met toujours qu'il y a une erreur de syntaxe.

t'as essayé le code de sezamoth?

[Pitou5464]

c'est bon, j'ai corriger le tir lol, en fait il voulai juste des crochets autour des champs. Des fois ça tiens a rien sans rire
Merci pour votre aide.

Code :

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

1
2
3
4
5
Dim str As String
Dim a As String
a = Me.TYPE.Value
str = "INSERT INTO T_Historique2 ([TYPE], [DATE]) VALUES ('" & a & "', date())"
DoCmd.RunSQL str

[cain.patres]

bonjour.

Je pense que tu veux mettre à jour certains champs de la table concernant un article existant.

Dans ce cas, un Edit serait plus approprié:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim view_matable as DAO.RecordSet
 
cde_SQL = "SELECT [matable].* " & _
            "FROM [matable] " & _
            "WHERE (([matable].[date] = #" & date & "#) " & _
            "AND ([matable].[type] = '" & type & "'))"
 
Set view_matable = CurrentDb.OpenRecordset(cde_SQL)
 
'on modifie les valeurs
If view_matable.RecordCount > 0 Then
    view_matable.MoveFirst
    view_matable.Edit
        view_matable.Fields("type") = type
        view_matable.Fields("date") = date
      view_matable_membre.Update
End If

Dis m'en des nouvelles!!

[Pitou5464]

ouais, en effet c'est une autre façon d'aborder les choses. mais bon moi je suis partisan du code en moins de ligne possible. meme si le tien est plus propre c sur. Merci pour ton aide