Bonjour tout le monde,
J'aimerais juste cacher un bouton si dans une table access, le champ est différent de rien.
Voici ce que j'ai fais :
Dans cette partie du code,Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 <% dim cnn dim rst Set cnn = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") cnn.Open "DSN=delibes" strSQL = "select * from [cloturer]" 'response.write(strSQL) rst.open strSQL, cnn rst.movefirst Do while not rst.eof If rst("cloturerok") <> "" then boutonmvd = rst("cloturerok") form.boutonmvd.visible = false End if Rst.movenext loop %>
je dis :Code:
1
2
3
4
5 If rst("cloturerok") <> "" then boutonmvd = rst("cloturerok") boutonmvd.visible = false End if
Si le champ cloturerok est différent de rien, on prend sa valeur et on la met dans la variable boutonmvd (valeur identique au nom d'un des boutons sur la page).
Ensuite je dis :
Cacher le bouton du formulaire qui porte le nom de la valeur de boutonmvd (c'est à dire ba1PHARJ202 ).
mais il me donne ce message d'erreur :
La ligne 39 correspond à ça :Citation:
Erreur d'exécution Microsoft VBScript erreur '800a01a8'
Objet requis: ''
/delibes/123456.asp, ligne 39
Quand je met :Code:form.boutonmvd.visible = false
il me dit que le type est incompatible.Code:form("cloture").boutonmvd.visible = false
J'aurais bien utiliser un select case mais ça ne fonctionne pas non plus.
Merci d'avance pour votre aide.
bgs