Discussion :

[dede_bo]

Bonjour à tous,
J'essaie désespérément de mettre jour un recordset mais sans succès.

J'utilise la librairie "Microsoft ActiveX Data Objects 6.1 Library" (dans les références)

Mon 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
20
21
22
 
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
 
        With rst
            .ActiveConnection = CurrentProject.Connection
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
            .Open "Select * from table where id =" & Cherche_id
 
            If Not rst.EOF Then
                .Edit
                    !field1 = valeur1
                    !field2 = valeur2
                .Update
            Else
                MsgBox "Nothing to save", vbInformation + vbOKOnly, "Remark"
            End If
            .Close
        End With
 
        Set rst = Nothing

Access s'arrête sur la ligne ".Edit" (en ligne 12) instruction inconnue !

Quel est l'instruction qu'il faut utiliser sous access 2010 ?

Merci de votre aide
André

[marot_r]

Bonjour.

Avec ADO il ne faut pas utiliser .edit

Ici un exemple avec les 2 librairies DAO puis ADO :

http://www.accessallinone.com/updati...n-a-recordset/

A+

[dede_bo]

Bonjour,

Je ne sais pas comment vous remercier ... C'est génial. C'est bon. Cela fonctionne bien

Encore mille fois merci pour votre aide

Bon weekend
André

[marot_r]

Je ne sais pas comment vous remercier

En aidant quelqu'un d'autre quand tu en auras l'opportunité :-).

A+