Bonjour,
ce doit être tout bête mais bon
Voila j'ai une fonction qui interroge une bdd ci-dssous code
puis ailleurs j'interroge ma fonction comme suit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Function tester_annee() Dim sql,rst,i,resultat() sql = "SELECT Annee FROM TNotesRMS WHERE CodeRMS= " & (session("code_rms")) Set rst=Application("cnx").Execute(sql) i=0 Do while rst.EOF=False Redim Preserve resultat(i) resultat(i)=rst("Annee") i=i+1 rst.MoveNext() Loop rst.Close() tester_annee=resultat End function
mon problème : comment intercepter le fait qu'il peut ne pas avoir d'enregistrement ds ma bdd?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 test_annee=tester_annee() For i=1 to Ubound(test_annee,1) compteur=i next
car qd j'ai 1 ou + d'enregistrement nickel, qd j'en ai pas
Type imcompatible : 'UBound '
merci bcp
Partager