Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Message d'erreur access : l'expression sur clic entrée comme paramètre de la propriété
    Bonjour,
    en travaillant sur une base d'extraction une erreur est survenue:
    "l'expression sur Chargement entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. la déclaration de la procédure ne correspond pas à la description de l'évènement ou de la prodédure de même nom."
    voici le code sur changement:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub liste_departement_Change()
    If (IsNull(Formulaires![Formulaire_extraction]![liste_activites])) Then
    zone_extraction.SourceObject = "Query.critere_residences"
    Else
    zone_extraction.SourceObject = "critere_matricule_residences"
    End If
     
    zone_extraction.Requery
    End Sub

  2. #2
    Membre chevronné
    Bonjour,

    A première vue zone_extraction.SourceObject = "Query.critere_residences" devrait s'écrire Me.zone_extraction.SourceObject = "critere_residences".

    Par ailleurs, ne serait-il pas plus simple de faire le If suivant:
    If Me.liste_activites & "" = "" Then.

    Cordialement.

  3. #3
    Expert éminent
    bonsoir EricDgn et nejmhajer,
    Citation Envoyé par EricDgn Voir le message
    Bonjour,

    A première vue zone_extraction.SourceObject = "Query.critere_residences" devrait s'écrire Me.zone_extraction.SourceObject = "critere_residences".
    à priori je dirais plutôt que c'est le contraire, il manque Query. devant critere_matricule_residences vu qu'il s'agit d'un sous-formulaire indépendant dont la source est un objet de type requête (voir la capture d'écran):
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If IsNull(Formulaires![Formulaire_extraction]![liste_activites]) Then
        me.zone_extraction.SourceObject = "Query.critere_residences"
    Else
        me.zone_extraction.SourceObject = "Query.critere_matricule_residences"
    End If
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...

  4. #4
    Expert éminent
    par ailleurs ce devrait être Requête. et pas Query. puisque ta version Access est en français, au vu de la capture d'écran
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...