Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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)
J'ai essayé avec différents types d'action : AfterUpdate, Click, Relâche souris... Il ne fait rien. Merci d'avance!
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" <chang_wc@hotmail.com> a écrit dans le message de news:
1132862709.803573.292500@f14g2000cwb.googlegroups.com...
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)
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)