OVH Cloud OVH Cloud

Recordset - Pas de réaction

1 réponse
Avatar
Verone05
Bonjour,
Quelqu'un peut me dire pourquoi Access ne r=E9agit pas aux codes
suivants :

Dim DB As Database
Dim RST As Recordset

Set DB =3D CurrentDb
Set RST =3D DB.OpenRecordset("tRendesVous", dbOpenDynaset)

RST.AddNew

RST("test1").Value =3D Nom.Value
RST("test2").Value =3D Prenom.Value

RST.Update
RST.Close

MsgBox ("OK")

J'ai essay=E9 avec diff=E9rents types d'action : AfterUpdate, Click,
Rel=E2che souris... Il ne fait rien.
Merci d'avance!

1 réponse

Avatar
Raymond [mvp]
Bonjour.

as-tu compilé ? tu devrais avoir des erreurs de compilation, normalement.
essaie de faire:
Dim DB As DAO.Database
Dim RST As DAO.Recordset

Set DB = CurrentDb
Set RST = DB.OpenRecordset("tRendesVous")

RST.AddNew

RST("test1") = [Nom]
RST("test2") = Prenom

RST.Update
RST.Close
Set RST = Nothing
Set DB = Nothing
MsgBox ("OK")


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum
Formez-vous en ligne grâce aux Webcasts Microsoft Technet :
http://www.microsoft.com/france/technet/seminaires/webcasts.mspx


"Verone05" a écrit dans le message de news:

Bonjour,
Quelqu'un peut me dire pourquoi Access ne réagit pas aux codes
suivants :

Dim DB As Database
Dim RST As Recordset

Set DB = CurrentDb
Set RST = DB.OpenRecordset("tRendesVous", dbOpenDynaset)

RST.AddNew

RST("test1").Value = Nom.Value
RST("test2").Value = Prenom.Value

RST.Update
RST.Close

MsgBox ("OK")

J'ai essayé avec différents types d'action : AfterUpdate, Click,
Relâche souris... Il ne fait rien.
Merci d'avance!