Discussion :

[beegees]

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 :

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
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
%>

Dans cette partie du code,

Code :

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

1
2
3
4
5
 
If rst("cloturerok") <> "" then
boutonmvd = rst("cloturerok")
boutonmvd.visible = false
End if

je dis :

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 :

Erreur d'exécution Microsoft VBScript erreur '800a01a8'

Objet requis: ''

/delibes/123456.asp, ligne 39

La ligne 39 correspond à ça :

Code :

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

form.boutonmvd.visible = false

Quand je met :

Code :

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

form("cloture").boutonmvd.visible = false

il me dit que le type est incompatible.

J'aurais bien utiliser un select case mais ça ne fonctionne pas non plus.

Merci d'avance pour votre aide.

bgs

[beegees]

Peut être devrais-je mélanger du html et de l'asp en ajoutant quelque chose comme cela ?

Code :

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

<input type="submit" name="action" value="Lancer">

C'est la dernière étape de mon travail, j'espère que vous pourrez m'aider.

Merci d'avance

[Immobilis]

Code :

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

1
2
3
4
If rst("cloturerok") = "" then 
%>
<input type='submit' name='<%=rst("cloturerok")%>' value='Submit'>
<%End if

Non?
PS les grands esprits se rencontrent

[pc75]

Re,

Au lieu de cacher ce bouton, tu ne peux pas faire le contraire ? C'est à dire que si rst("clotureok") est égal à "", alors, tu affiches ton bouton ?

Du genre :

Code :

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

1
2
3
4
5
6
 
If rst("cloturerok") <> "" then
%>
<input type="submit" name="action" value="Lancer">
<%
End if

[beegees]

Salut PC75, salut Immobilis,

Vous pouvez pas savoir à quel point je suis heureux de vous entendre.

Merci pour vos réponse.

Le cacher ou le faire apparaître c'est malheureusement pas le même car si le bouton a été cliqué (un seul visiteur avec un login et mdp est censé cliquer sur ce bouton), il ne devrait plus apparaitre car il accepte ses cotes une fois pour tout.

Si il y'a plusieurs formulaires sur la même page, il faut référencer le nom du formulaire ? exemple cloture ?

Autrement si c'est impossible de le cacher, on peut le grise (enable = false) ou changer l'URL...

PC75, si tu crois qu'afficher est plus simple que cacher, je pourrais alors créer une table par bouton avec une seule valeur, si le champ unique de la table est vide, le bouton apparaît.

Merci à vous deux pour votre aide.

J'espère que vous pourez encore m'aider pour en terminer avec cette page.

Merci encore.

[pc75]

Re,

Et en utilisant une variable de session ?

La première fois que le bouton est cliqué, tu initialises une variable

Code :

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

1
2
3
4
 
If rst("cloturerok") <> "" then 
   Session("clotureok") = False
End if

Ensuite, en fonction da la valeur de cette variable, tu affiches ou pas le bouton

Code :

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

1
2
3
4
5
6
 
If Session("clotureok") = True then 
%> 
<input type="submit" name="action" value="Lancer"> 
<% 
End if

[Immobilis]

L'affichage de ton bouton dépend de la valeur d'un champ dans ta base de données. Si ce champ peut prendre plusieurs valeurs, je te suggère le

Code :

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

1
2
3
4
5
6
7
8
9
10
SELECT CASE rst("cloturerok")
   case ""
       AFFICHAGE => response.write("<input type='submit' name='" & rst("cloturerok") & "' value='Submit'>")
   case "toto"
       PAS AFFICHAGE
   case "tata"
       PAS AFFICHAGE
   case else
       AFFICHAGE D'UN MESSAGE
END SELECT

Ceci dit, pour le

Code :

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

case ""

rst("cloturerok") est vide... Il faut le remplacer par une valeur par défaut.
L'utilisation de ceci

Code :

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

boutonmvd.visible = false

en ASP VBS ne me dit rien. Je me trompe peut-être...
A+

[beegees]

eh bien un super grand merci à vous deux !

Je n'oublierai pas ce que vous avez fait pour moi.

D'une façon ou de l'autre, le bouton s'affice ou se cache, c'est ce que je voulais.

A nouveau, un super grand merci !

Bgs

[mademoizel]

Bonjour,


Je doit caché un bouton si l'utilisateur ne s'est pas conneceter. Or se que j'ai fait ça ne marche pas. J'aurai besoin de votre aide si possible merci d'avance.

Voici mon code:

<%If (session("estConnecte"))= True then%>
CacheBouton.Emprunt.visible= true
<%else%>
CacheBouton.Emprunt.visibleEmprunt.visible= false
<%end if%>

ce code se trouve entre les <head>

CacheBouton est le nom de mon formulaire.
Emprunt est le nom du bouton que je souhaite caché.

merci d'avance!!!

[mademoizel]

Pourquoi, il y a écrit résolu alor que personne ne m'a répondu

[ryan]

Guten Tag Mademoizel,

Ce doit être parce que Beegees, qui a initialisé ce fil, a reçu la réponse qu'il attendait.

Pour ce qui est de ton pb, pourquoi passes-tu par Javascript?
Ne serait-ce pas plus facile de faire un test sur ta variable session et, selon le résultat, soit d'afficher directement le bouton en HTML, soit de faire un response.write en ASP?


Ryan
Hou hou hou hou, staying alive, staying alive ...