Profil supprimé | J'ai trouve ca comme code vba sur internet, je vais voir si ca marche
Code :
- Sub Insertion(oRst1 As DAO.Recordset, orst2 As DAO.Recordset)
- On Error GoTo err
- Dim Fld As DAO.Field
- orst2.AddNew
- For Each Fld In oRst1.Fields
- If (Fld.Attributes And dbAutoIncrField) = 0 Then
- orst2.Fields(Fld.Name).Value = Fld.Value
- End If
- Next Fld
- orst2.Update
- err:
- End Sub
- Sub copier()
- Dim NomTable1 As String, NomTable2 As String
- Dim oRst1 As DAO.Recordset, orst2 As DAO.Recordset
- Dim odb As DAO.Database
- Dim Message As String
- Set odb = currentdb
- NomTable1 = "TblClient"
- NomTable2 = "TblClientSansDoublons"
- Set oRst1 = odb.OpenRecordset(NomTable1)
- Set orst2 = odb.OpenRecordset(NomTable2)
- While Not oRst1.EOF
- Insertion oRst1, orst2
- oRst1.MoveNext
- Wend
- If Not orst2.EOF Then orst2.MoveLast
- Message = "Opération terminée" & vbCrLf & vbCrLf & _
- "La table source comportait : " & oRst1.RecordCount & " enregistrement(s)," & vbCrLf & _
- "la table de destination en comporte " & orst2.RecordCount
- MsgBox Message, vbInformation, "MAJ terminée"
- End Sub
|
|