Annonce
#1 Wed 20 June 2001 22:20
- Thierry Fournier
- Invité
presence - absence de table
Bonjour,
j'expose mon pb : je desire savoir si une table est presente ou non.
car si elle est presente action1 sinon action 2
comment est ce possible?
est il possible de dire si tu ne trouves pas ce nom de table alors...?
merci
Th.FOURNIER
DDAF Finistere
2 rue de Kerivoal
29236 QUIMPER cedex
ps :
----------------------------------------------------------------
j'etais passe par :
nbtabouverte=numtables()
for i=1 to nbtabouverte 'boucle qui permet d'enumerer les tables
ouvertes
tabouverte = tableinfo(i,TAB_INFO_NAME)
next
puis par if tabouverte = nom_ma_table then
action 1
sinon action 2
mais cela ne fonctionne pas car il prends comme tabouverte la derniere
table ouverte.
#2 Wed 20 June 2001 22:22
- Frédéric Renversez
- Invité
Re: presence - absence de table
Normal que vous recuperiez la derniere table, votre boucle affecte
successivement le nom de toutes les tables a la variable tabouverte.
C'est le dernier nom qui reste.
Une solution serait de faire :
Dim trouve As Logical
Trouve = FALSE
For i = 1 to nbtabouverte
If TableInfo(i, TAB_INFO_NAME) Then
Trouve = TRUE
Exit For
End If
Next
If Trouve Then
action1
Else
action2
End IF
Pour les puristes, la boucle For peut etre remplacee par :
While Not Trouve And i
