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
Jessy SEMPERE
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la même base via un code VBA. Qn peut-il m'aider svp.
Merci
Bonjour
Regarde du côté des RecordSet...
Avec les méthodes AddNew et UpDate
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Robert" <robert.schroeder@ilres.com> a écrit dans le message news:
3f814275_2@news.vo.lu...
Bonjour
J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la
même base via un code VBA.
Qn peut-il m'aider svp.
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la même base via un code VBA. Qn peut-il m'aider svp.
Merci
Robert
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la
même base via un code VBA. Qn peut-il m'aider svp.
Merci
J'ai essayé ceci :
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Dim sql As String
sql = "Select * From IDMDG"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.AddNew
rs![IDP] = IDPs.Value
rs![ID-Pers] = Forms!start!ram
rs.Update
rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> wrote in message
news:blrgha$vih$1@muguet.sncf.fr...
Bonjour
Regarde du côté des RecordSet...
Avec les méthodes AddNew et UpDate
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Robert" <robert.schroeder@ilres.com> a écrit dans le message news:
3f814275_2@news.vo.lu...
Bonjour
J'aimerai enregistrer(ajouter) un record dans une table non ouverte de
la
même base via un code VBA.
Qn peut-il m'aider svp.
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la
même base via un code VBA. Qn peut-il m'aider svp.
Merci
Gaël Schmitt
Bonjour,
Dans tes références tu as bien mis DAO au dessus de ADO (dans les priorités) ?
Gael.
"Robert" a écrit dans le message de news:
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la
même base via un code VBA. Qn peut-il m'aider svp.
Merci
Bonjour,
Dans tes références tu as bien mis DAO au dessus de ADO (dans les priorités)
?
Gael.
"Robert" <robert.schroeder@ilres.com> a écrit dans le message de
news:3f81688f_1@news.vo.lu...
J'ai essayé ceci :
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Dim sql As String
sql = "Select * From IDMDG"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.AddNew
rs![IDP] = IDPs.Value
rs![ID-Pers] = Forms!start!ram
rs.Update
rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> wrote in message
news:blrgha$vih$1@muguet.sncf.fr...
Bonjour
Regarde du côté des RecordSet...
Avec les méthodes AddNew et UpDate
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Robert" <robert.schroeder@ilres.com> a écrit dans le message news:
3f814275_2@news.vo.lu...
Bonjour
J'aimerai enregistrer(ajouter) un record dans une table non ouverte de
la
même base via un code VBA.
Qn peut-il m'aider svp.
Dans tes références tu as bien mis DAO au dessus de ADO (dans les priorités) ?
Gael.
"Robert" a écrit dans le message de news:
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la
même base via un code VBA. Qn peut-il m'aider svp.
Merci
Jessy SEMPERE
Ben je ne sais pas trop, ton code semble correct...
A tous hazard essais plutôt :
Dim db As Database, rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("IDMDG", dbOpenDynaset) With rs .AddNew .Fields("IDP") = IDPs.Value .Fields("ID-Pers") = Forms!Start!Ram .UpDate End With rs.Close: Set rs = Nothing set db = Nothing
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la
même base via un code VBA. Qn peut-il m'aider svp.
Merci
Ben je ne sais pas trop, ton code semble correct...
A tous hazard essais plutôt :
Dim db As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("IDMDG", dbOpenDynaset)
With rs
.AddNew
.Fields("IDP") = IDPs.Value
.Fields("ID-Pers") = Forms!Start!Ram
.UpDate
End With
rs.Close: Set rs = Nothing
set db = Nothing
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Robert" <robert.schroeder@ilres.com> a écrit dans le message news:
3f81688f_1@news.vo.lu...
J'ai essayé ceci :
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Dim sql As String
sql = "Select * From IDMDG"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.AddNew
rs![IDP] = IDPs.Value
rs![ID-Pers] = Forms!start!ram
rs.Update
rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> wrote in message
news:blrgha$vih$1@muguet.sncf.fr...
Bonjour
Regarde du côté des RecordSet...
Avec les méthodes AddNew et UpDate
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Robert" <robert.schroeder@ilres.com> a écrit dans le message news:
3f814275_2@news.vo.lu...
Bonjour
J'aimerai enregistrer(ajouter) un record dans une table non ouverte de
la
même base via un code VBA.
Qn peut-il m'aider svp.
Ben je ne sais pas trop, ton code semble correct...
A tous hazard essais plutôt :
Dim db As Database, rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("IDMDG", dbOpenDynaset) With rs .AddNew .Fields("IDP") = IDPs.Value .Fields("ID-Pers") = Forms!Start!Ram .UpDate End With rs.Close: Set rs = Nothing set db = Nothing
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de la
même base via un code VBA. Qn peut-il m'aider svp.
Merci
Gaël Schmitt
En complément voilà une fiche qui t'aidera : http://support.microsoft.com/default.aspx?id1542
Gael.
"Gaël Schmitt" a écrit dans le message de news:%
Bonjour,
Dans tes références tu as bien mis DAO au dessus de ADO (dans les priorités)
?
Gael.
"Robert" a écrit dans le message de news:
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de
la
même base via un code VBA. Qn peut-il m'aider svp.
Merci
En complément voilà une fiche qui t'aidera :
http://support.microsoft.com/default.aspx?id1542
Gael.
"Gaël Schmitt" <gaels@online.microsoft.com> a écrit dans le message de
news:%23Z7KZwAjDHA.3056@tk2msftngp13.phx.gbl...
Bonjour,
Dans tes références tu as bien mis DAO au dessus de ADO (dans les
priorités)
?
Gael.
"Robert" <robert.schroeder@ilres.com> a écrit dans le message de
news:3f81688f_1@news.vo.lu...
J'ai essayé ceci :
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Dim sql As String
sql = "Select * From IDMDG"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.AddNew
rs![IDP] = IDPs.Value
rs![ID-Pers] = Forms!start!ram
rs.Update
rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert
"Jessy SEMPERE" <jessy.sempere@prg.sncf.fr> wrote in message
news:blrgha$vih$1@muguet.sncf.fr...
Bonjour
Regarde du côté des RecordSet...
Avec les méthodes AddNew et UpDate
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Robert" <robert.schroeder@ilres.com> a écrit dans le message news:
3f814275_2@news.vo.lu...
Bonjour
J'aimerai enregistrer(ajouter) un record dans une table non ouverte
de
la
même base via un code VBA.
Qn peut-il m'aider svp.
En complément voilà une fiche qui t'aidera : http://support.microsoft.com/default.aspx?id1542
Gael.
"Gaël Schmitt" a écrit dans le message de news:%
Bonjour,
Dans tes références tu as bien mis DAO au dessus de ADO (dans les priorités)
?
Gael.
"Robert" a écrit dans le message de news:
J'ai essayé ceci : Dim db As Database Dim rs As Recordset Set db = CurrentDb() Dim sql As String sql = "Select * From IDMDG" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.AddNew rs![IDP] = IDPs.Value rs![ID-Pers] = Forms!start!ram rs.Update rs.Close
mais il me mets erreur 13 (type mismatch) pour : Set rs > > db.OpenRecordset(sql, dbOpenDynaset)
Qn a une idée quant au problème, merci
Robert "Jessy SEMPERE" wrote in message news:blrgha$vih$
Bonjour
Regarde du côté des RecordSet... Avec les méthodes AddNew et UpDate
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Robert" a écrit dans le message news:
Bonjour J'aimerai enregistrer(ajouter) un record dans une table non ouverte de
la
même base via un code VBA. Qn peut-il m'aider svp.
