Discussion :

[jl11200]

Bonjour
J'ai téléchargé et utilisé le formulaire de recherche créé par loufab.
Aucun problème avec des fichiers utilisés avec Access 97.
J'ai ensuite acheté la version office 2019.
Je travaille sur une nouvelle base que je dois utiliser pour des recherches de questions dans un fichier et j'ai importé le formulaire en question et les tables associées dans le nouveau document. Tout marche bien .......
sauf à la fin de la recherche j'ai un erreur dite de syntaxe (opérateur absent) dans l'expression <<Count(TexteQuestion)>> TexteQuestion est le champ dans lequel se fait la recherche
Le débogage me dirige alors sur cette ligne de code

Code :

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

Me.lbl_nbRecord.Caption = IIf(Me.lst_resultat.ListCount <= 1, 0, Me.lst_resultat.ListCount - 1) & "/" & DCount(Me.cbo_champ, Me.cbo_table)

Je ne suis pas un expert donc
1) je ne sais pas d'où vient l'erreur
2) Je souhaiterai avoir si possible des explications
3) je vous remercierai de me donner des conseils pour m'initier au code VBA

Je comprends que ma présentation n'est évidemment ni claire ni suffisante et je la compléterai au fur et à mesure de la discussion si elle avance et si vous la trouvez intéressante.
Cordialement
Jean-Louis Darlay

[Jean-Philippe André]

SAlut,

la valeur de tes comboboxes se lit avec la propriété .Value

Code :

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

Me.lbl_nbRecord.Caption = IIf(Me.lst_resultat.ListCount <= 1, 0, Me.lst_resultat.ListCount - 1) & "/" & DCount(Me.cbo_champ.Value, Me.cbo_table.Value)

[tee_grandbois]

Bonjour Jean-Philippe André,

la valeur de tes comboboxes se lit avec la propriété .Value

Il me semble que .Value est la propriété par défaut pour les contrôles quand rien n'est spécifié, cela me semble improbable que ce ne soit plus le cas en Access 2019.
Je pencherai plutôt pour un nom de champ ou de table non conforme ou quelque chose de ce genre, les règles et conventions de nommage étant de moins en moins respectées de nos jours.

@ jl11200: bonjour,
peux-tu ajouter les instructions suivantes:

Code :

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

1
2
3
Debug.? Me.cbo_champ
Debug.? Me.cbo_table
Debug.? Me.lst_resultat.ListCount -1

juste avant l'instruction qui plante et poster le résultat (ou indiquer, éventuellement, laquelle des 3 lignes ajoutées plante) ?