Discussion :

[captainamerica75]

Hello tout le monde !!!!

Est-il possible de mettre a jour une table pour chaque valeur contenue dans une zone de liste? si oui, pourriez vous me mettre sur une piste svp?

merci pour votre aide. Bonne journée

[Faw]

Salut,
si tu veux bien expliquer plus clairement ce que tu veux faire...

[captainamerica75]

Je souhaiterais que pour chaque valeur contenue dans ma zone de liste, il y ait une mise a jour d'une table.

Merci.

[stéphane_ais2]

Bonjour,

C'est possible mais tu dois être plus précis dans ta demande...où sont les données qui vont mettre à jour la table...dans un frm, dans une autre table, etc...

SE

[captainamerica75]

hello!

ma zone de liste contient des dates qui st calculées grace à la fonction ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
Function ListerDates(DateMin As Date, DateMax As Date) As String
    Dim i As Long
    Dim s As String
    For i = DateMin To DateMax
        s = s & ";" & Format(i, "dd/mm/yyyy")
    Next
    ListerDates = Mid(s, 2)
End Function

a partir de là, j'ai une commande avec laquelle je voudrais mettre à jour une table avec chacune de ces valeurs.

est ce plus clair?

merci bcp.

[stéphane_ais2]

Oui pardon mais c'est moi qui avait lu liste déroulante au lieu de zone de liste...
Tu veux faire une mise à jour en sélectionnant une valeur dans la liste ou que cela soit fait pour toute la liste ?

SE

[captainamerica75]

Re,

ben je voudrais que ce soit fait pour toute la liste.

Merci

[stéphane_ais2]

Bonjour,

Je pense qu'il faut passer par l'ouverture d'un Recordset et pour chaque élément de la liste écrire sa valeur dans le Recordset (table)...
Tu peux regarder ce post qui donne de bonnes pistes...

SE

[captainamerica75]

Hello !
quel post??? stp.. merci pour ton aide.

@+ et bon week end

[stéphane_ais2]

Oups...
Voilà qui est corrigé :
http://www.developpez.net/forums/sho...=listbox+table

...

SE

[Tofalu]

Pas compris.

Mettre à jour ça signifie : Modifier certains enregistrements (selon quels critères), ajouter des nouveaux, supprimer ? Quelle est la structure de la table ?

Bref avec une question aussi imprécise, autant dire que personne ne va prendre le temps de chercher à répondre

[captainamerica75]

Bonjour Tofalu,

En fait je veux AJOUTER de nouveaux enregistrements pour chaque elements
q'une zone de liste contient.Les valeurs de la zone de liste sont des dates. En fait mon problème actuellement c'est que les dates ne s'ajoutent pas dans ma table.

ci-dessous le code :

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 & "),Amount )"
 
End If
Next I
End With
 
 
End Sub

@+