Discussion :

[eliooo22]

Bonjour,

Je n'arrive pas à faire fonctionner la fonction COLUMNHISTORY, je pense que c'est une question de syntaxe.

Le champ "Comment" est de type texte long, le champ "IDSAV" est clé primaire de la table "SAV" et est de type numéro auto.
Voici ma formule qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ColumnHistory("SAV";"[Comment]";" [IDSAV]=formulaire.[IDSAV]")

Merci d'avance pour votre aide,

Cordialement,

[tee_grandbois]

Bonjour,
je n'ai jamais utilisé cette méthode dans Access qui existe depuis 2007. D'après ce que j'ai lu, il faut que la propriété "Ajouter uniquement" du champ de la table soit à "Oui". Ensuite, comme cette méthode (car ce n'est pas une fonction) s'utilise comme une fonction de domaine, les paramètres doivent être passés de la même manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ColumnHistory("SAV";"[Comment]";"[IDSAV]=" & [IDSAV])

Enfin, comme c'est une méthode, je doute que l'on puisse l'utiliser ailleurs que dans VBA, pour se faire il faudra utiliser une fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function fColHist(nSav as long) as string
    Dim sHistory As String
 
    sHistory = Application.ColumnHistory("SAV", "Comment", "IDSAV=" & nSav)
    fColHist = sHistory
End Sub

[eliooo22]

Bonjour,

Merci, j'ai copié votre fonction dans mon module VBA, et sur le formulaire dans source contrôle j'ai mis la fonction et ça me fait l'erreur #Nom ?
ci dessous le screenshot. Encore merci pour votre aide.

[tee_grandbois]

Bonsoir,
il serait plus pratique de copier le code entre les balises (icône # sur ligne 2 du menu message) plutôt qu'une image.
Il faut enlever ce qui ressemble à des doubles-guillemets autour du nom du champ et mettre le nom du champ utilisé et non pas celui du paramètre de la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=fColHist([IDSAV])

[eliooo22]

Re Bonjour,

j'ai repris votre code tel quel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Function fColHist(nSav As Long) As String
    Dim sHistory As String
 
    sHistory = Application.ColumnHistory("SAV", "Comment", "IDSAV=" & nSav)
    fColHist = sHistory
End Sub

Merci

[tee_grandbois]

j'ai repris votre code tel quel :

Oui, c'est la fonction que tu as copié dans un module, très bien. Mais cette fonction s'utilise avec un variable pertinente : le champ IDSAV qu'on passe en paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=fColHist([IDSAV])

nSav est le nom du paramètre de la fonction, ensuite la fonction va s'exécuter et afficher le résultat si tout ce passe bien.

[eliooo22]

j'ai donc mis ce code =fColHist([IDSAV]) dans la source du contrôle mais dès l'ouverture du formulaire la macro bug et le débogueur s'affiche. Je devais en fait mettre end Function et non End Sub. tout marche niquel merci beaucoup !

[tee_grandbois]

Je devais en fait mettre end Function et non End Sub. tout marche niquel merci beaucoup !

ah oui, désolé pour l'erreur ... c'est bien d'avoir trouvé toi-même.
Peux-tu mettre le sujet en ?