none
Access macro copie et changement date RRS feed

  • Question

  • Bonjour,

    Dans Access 2016 j’utilise un formulaire et un sous formulaire.

    Dans le sous formulaire, chaque enregistrement possède des champs numériques, texte et date (3 champs date).

    J'aimerai faire une macro qui en un clic me permettrait de :

    1. copier l'enregistrement en cours dans le sous formulaire
    2. ajouter 1 an à chaque champ date (au nombre de 3)
    3. coller ce nouvel enregistrement dans mon sous-formulaire

    Quelqu'un peut-il m'aider ?

    Merci d'avance et à bientôt.

    jeudi 31 août 2017 23:43

Toutes les réponses

  • Bonjour,

    Sans doute une procédure telle que celle-ci (à peaufiner) :

    Private Sub cmdDupliquer1An()
    Dim SQL                                                As String
    Dim strClef                                            As String
    
        strClef = Me.ChampID
        SQL = "INSERT INTO TableSource (ChampNum1, ChampNum2, ChampTexte1, ChampDate1, ChampDate2, ChampDate3)"
        SQL = SQL & "SELECT ChampNum1, ChampNum2, ChampTexte1, Nz(ChampDate1, 0)+ 365.25, Nz(ChampDate2, 0)+ 365.25, Nz(ChampDate3, 0)+ 365.25 FROM TableSource WHERE ChampID = strClef"
        CurrentDb.Execute SQL, dbFailOnError
        Me.Requery
        DoCmd.GoToRecord , , acLast
    End Sub

    où ChampID est la clé permettant d'identifier l'enregistrement à dupliquer...

    mais cela reste une idée, il y nen a d'autre et surtout, là, il n'y a aucune gestion d'rreur ni de gestion de doublon ; c'est donc à peaufiner.


    Argy

    mercredi 27 septembre 2017 19:23
    Modérateur