none
Dupliquer un enregistrement qui incrémente un champ date d'un an RRS feed

  • Question

  • Bonjour,

    Dans un formulaire en mode continu, je souhaite ajouter un bouton qui effectuerait ceci :

    - copie de l'enregistrement en cours qui contient 1 champ texte et 3 champs date

    - coller l’enregistrement à la suite en incrémentant chaque champ  date d'1 an

    Quelqu'un peut il m'aider ?


    jeudi 8 novembre 2018 07:21

Toutes les réponses

  • Tu peux faire quelque chose du genre

    Private Sub cmdDupe_Click()
    On Error GoTo Err_Handler
        'Purpose:   Duplicate the main form record and related records in the subform.
        Dim strSql As String    'SQL statement.
        Dim lngID As Long       'Primary key value of the new record.
        
        'Save any edits first
        If Me.Dirty Then Me.Dirty = False
        
        'Make sure there is a record to duplicate.
        If Me.NewRecord Then
            MsgBox "Select the record to duplicate."
        Else
            'Duplicate the main record: add to form's clone.
            With Me.RecordsetClone
                .AddNew
                    !CustomerID = Me.CustomerID
                    !EmployeeID = Me.EmployeeID
                    !OrderDate = DateAdd("yyyy", 1, Me.DateField)
                    'etc for other fields.
                .Update
                
                'Save the primary key value, to use as the foreign key for the related records.
                .Bookmark = .LastModified
                lngID = !OrderID
                
                'Display the new duplicate.
                Me.Bookmark = .LastModified
            End With
        End If
    
    Exit_Handler:
        Exit Sub
    
    Err_Handler:
        MsgBox "Error " & Err.Number & " - " & Err.Description, , "cmdDupe_Click"
        Resume Exit_Handler
    End Sub

    ce qui est une version modifiee de http://allenbrowne.com/ser-57.html , bien sure il faut ajuster les nom des champs...


    Daniel Pineault, 2010-2018 Microsoft MVP
    Professional Support: http://www.cardaconsultants.com
    MS Access Tips and Code Samples: http://www.devhut.net

    samedi 10 novembre 2018 14:15