Discussion :

[liloo31]

Bonjour,

J'ai en petit soucis d'execution de ma requete sql que j'ai trouvé ds la FAQ ca beug dés le début et je ne vois pas pourkoi :

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
20
21
22
23
24
25
26
27
28
29
Private Sub Commande102_Click()
 
'Création des 2 recordsets
    Dim myRS1 As New ADODB.Recordset
    Dim myRS2 As New ADODB.Recordset

    myRS1.Open "Sorti Matériel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    myRS2.Open "Table", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    'Parcours du RS pour ajouter à table1 tout en supprimant de table2
    Do Until myRS2.EOF
        With myRS1
            .AddNew Array("N° garage", "Carte grise", "Site"), _
                          Array(myRS2("N° garage"), myRS2("Carte grise"), myRS2("Site"))
            .Update
        End With

       myRS2.Delete
       myRS2.MoveNext
    Loop

    'Fermeture des recordsets
    myRS1.Close
    myRS2.Close

    Set myRS1 = Nothing
    Set myRS2 = Nothing

End Sub

Pourtant j'ai tout suivi

il me dit qu'il attend une procedure de type insert delet select ... suis perdu...

Pouvez vous m'aider

merchi

liloo

[soltani1]

Bonjour,

pourquoi ne pas utiliser la collection Fields

Code :

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

1
2
3
4
5
 With myRS1
            .AddNew 
            .fields('carte grise').value = mavaleur
            .Update
        End With

A+

[liloo31]

merci Soltani1

Bonjour,

pourquoi ne pas utiliser la collection Fields

tout simplement car je ne connaissai pas ça ! j'ai regardé dans la FAQ pour trouver le code .. sinon ca marche comment ???

merci pour ton aide