Discussion :

[captainamerica75]

hello tout le monde !

J'ai le code suivant qui me permet de mettre à jour une table en fonction
des valeurs ( ces valeurs sont des DATES) d'une zone de liste

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
19
Private Sub cmdcreer_Click()
Dim I As Long
Dim s, temp As String
 
With Me.LstDate
 
 For I = 0 To Me.LstDate.ListCount - 1
 s = Format((I), "dd/mm/yyyy", vbMonday, vbUseSystem)
 
 If .Selected(I) Then
 
DoCmd.RunSQL "INSERT INTO facturation (Jobn°, [Payment terms], Datefacturation,Amount) VALUES (Jobn°,[Payment terms],Mid(s, 2),Amount )"
 
End If
Next I
End With
 
 
End Sub

Mon problème c'est que lors de l'execution il ne reprend la date. A chaque fois, il me demande la valeur de "S".

Est ce que kelkun pourrait me corriger???? j'ai chercher et je ne trouve vraiment pas.

Merci à vous

[marot_r]

Il faut sortir le S de la chaine SQL.

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO facturation (Jobn°, [Payment terms], Datefacturation,Amount) VALUES (Jobn°,[Payment terms],Mid(" & s & "),Amount )"

A+

[captainamerica75]

merci mais maintenant j'ai une erreur d'execution 101 : "Erreur définie par l'application ou par l'objet....

@+

[marot_r]

Où ? Sur l'exécution du SQL ?

A+

[captainamerica75]

oui sur l'execution

[marot_r]

Oui, ça renseigne vachement :-).

Essaye cela

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO facturation ([Jobn°], [Payment terms], Datefacturation,Amount) VALUES ([Jobn°],[Payment terms],Mid(" & s & "),Amount )"

Pour se simplifier la vie, il est bon de ne pas mettre de caratères autres que des lettres non accentuées, chiffres et "_" dans les noms de champs.

A+