insert sinon update

Bonsoir

je n'utilise pas update mais annul/insert

exemple
Public Sub InsererDansAccess()
ParamEnvir ' met en place NomTable, ChemBd , NomBaseMdB
Dim bdIns As DAO.Database
Dim RstIns As DAO.Recordset
Set bdIns = OpenDatabase(ThisWorkbook.FullName, False, False, "excel 8.0")
'[LaBaseFull]
bdIns.Execute "INSERT INTO " & NomTable & " IN '" & ChemBd & "" &
NomBaseMdB & "' SELECT * FROM [InsertNew]"
bdIns.Close
Set bdIns = Nothing
ImporterDesDonnéesDeAccess
End Sub
'--------------------------------------------
Public Sub DeleterDansAccess()
ParamEnvir
Dim bd As DAO.Database
Dim Rst As DAO.Recordset

Set bd = OpenDatabase(ChemBd & "" & NomBaseMdB, False, False)
bd.Execute "DELETE " & NomTable & ".* FROM " & NomTable & " WHERE Numéro" &
"=" & [NuméroInsert] & ""
bd.Close
Set bd = Nothing
ImporterDesDonnéesDeAccess
End Sub
Public Sub AnnulInsert()
ParamEnvir
Dim bd As DAO.Database
Dim Rst As DAO.Recordset
Dim bdIns As DAO.Database
Dim RstIns As DAO.Recordset
Set bdIns = OpenDatabase(ThisWorkbook.FullName, False, False, "excel 8.0")
Set bd = OpenDatabase(ChemBd & "" & NomBaseMdB, False, False)
bd.Execute "DELETE " & NomTable & ".* FROM " & NomTable & " WHERE Numéro" &
"=" & [NuméroInsert] & ""
bd.Close
Set bd = Nothing
Set bdIns = OpenDatabase(ThisWorkbook.FullName, False, False, "excel 8.0")
bdIns.Execute "INSERT INTO " & NomTable & " IN '" & ChemBd & "" &
NomBaseMdB & "' SELECT * FROM [Plage]"
bdIns.Close
Set bdIns = Nothing
ImporterDesDonnéesDeAccess
End Sub

'modéle d'après ??
Salutations
RaMa
"Laurent M" <LaurentM@discussions.microsoft.com> a écrit dans le message de
news: 0940866D-CFE8-44C9-8143-674887B15D4B@microsoft.com...

Bonjour,

j'utilise une BDD Access pour mon application Excel et j'utilise les
fonctions ADO pour importer et exporter des données.
Lors de l'export j'aimerais savoir comment insérer une ligne si la clé
primaire n'existe pas et updater si la clé existe déjà

merci !