[AC-2010] impossible d'ecrire une nouveau enregistrement

[majdjinov]

* Bonjour *

J'ai un probleme.
Je suis dans l'impossibliter d'ecrire un nouveau enregistrement, car le curseur remonte automatiquement au premier enregistrement.
Je suis sous access 2010. Voici le code en question:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim db As Database
Dim résultat As Recordset
Dim strrech1 As String
 
strrech1 = "SELECT DISTINCTROW [N°ch].*, * FROM [N°ch];"
 
Set db = CurrentDb()
Set résultat = db.OpenRecordset(strrech1)
Me![N°ch] = résultat![N°ch]
résultat.MoveFirst
End Sub

Merci d'avance

[dumas.blr]

Bonjour majdjinov,

Que cherches-tu à faire exactement ?

En effet, je ne vois pas dans ton code l'instuction d'écrire un nouvel enregistrement?

[majdjinov]

En faite lorsque j'ouvre mon formulaire, et que j'essaye d'ecrire un nouveau enregistrement le curseur remonte en haut automatiquement.
Alors j'ai essayer d'ecrire avant que le curseur monte et sa me donne une erreur sur le code ci dessus "erreur d'execution 3020 Update ou CancelUpdate sans AddNew ou Edit"
Voila en gros.

[dumas.blr]

En effet, c'est normal que tu tombes en erreur.

Ton instruction n'a fait qu'ouvrir le recordset en lecture et positionné sur le premier enregistrement. Pour mettre ton recordset en écriture, il faut que tu ecrive l'instruction recordset.addnew (pour ajouter un nouvel enregistrement) ou recordset.edit (pour le modifier)

A cet effet, je t'invite à consulter le tuto suivant qui est très bien fait :

http://warin.developpez.com/access/dao/

[majdjinov]

Bien merci, je test d'ajouter résultat.AddNew et résultat.edit mais je ne sais pas vraiment ou les placés pour que sa marche car sur dao ce n'est pas expliquer. ( pour info meme si je veut juste aller sur le 2e enregistrement cela me ramene au 1er )

[majdjinov]

j'ai changer mon code mais sa ne marche toujours pas .

Private Sub Form_BeforeInsert(Cancel As Integer)

Dim db As Database
Dim Recordset As Recordset
Dim strrech1 As String

strrech1 = "SELECT DISTINCTROW [N°ch].*, * FROM [N°ch];"

Set db = CurrentDb()
Set rec = db.OpenRecordset(strrech1)
Recordset.Edit
Me![N°ch] = rec![N°ch]
Recordset.Update

End Sub

[dumas.blr]

Bonjour ,

As-tu consulté les FAQ ? Je te donne le lien sur la partie accès des données :
http://access.developpez.com/faq/?page=SQL

L'aide Acces est aussi très bien faite. N'hésites pas à la consulter.*

Pour résumer :
Si tu veux faire une mise à jour, tu dois d'abords localiser l'enregistrement
et donc utiliser l'enchainement suivant

Code :

1
2
3
4
5
6
1) recordset.findfirst ou .findnext ou bien .finlast (table non indexée ou requête)
ou 
recordset.seek (table indexée)
2) recordset.edit
3) ... <opérations de mise à jour> ...
4) recordset.update

Pour un ajout

Code :

1
2
3
1) Recordset.addnew
2) ... <opération d'ajout> ...
3) recordset.update