Discussion :

[aymane19]

Bonsoir;
Comment faire pour rendre un commandbutton invisible à partir d'un autre appartenant à un autre form:

sur form1, j'ai cmd11, cmd12
et sur form2, j'ai cmd21, cmd22

pour rendre invisible cmd22 en cliquant sur cmd11, j'ai mis sur form1le code:

Code :

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

form2.cdm22.visible=False

mais ca ne marche pas?

form=formulaire
cmd=commandbutton

[ucfoutu]

Bonjour,

Ton code est bon et ne peut donc que fonctionner !

Reste à savoir dansq quel évènement tu l'as écrit (et ce que tu aurais éventuellement écrit d'autre) !!!

Edit : Il sera bon que tu nous fasse un copier-coller exact du code (toute la procédure de l'évènement click, du début à la fin...
Car quand je lis ce que tu nous montres, à savoir :

Code :

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

form2.cdm22.visible=False

je me dis que :

Soit ce n'est pas ce qui figure dans ton appli (du moins je l'espère) car :
- VB aurait mis une majuscule à Visible
- cdm22 n'est pas le nom de ton bouton cmd22 et VB aurait dénoncé, sauf si, en plus, ton entête de sub (du click) a été écrite de la "même façon" ...

soit c'est vraiment ce que tu as écrit

[aymane19]

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub cmdNavigation_Click(Index As Integer)
 
Dim N As Integer
 
 
With Adodc1.Recordset
    Select Case Index
      Case 0      'Premier enregistrement
        .MoveFirst
      Case 1      'Dernier enregistrement
        .MoveLast
      Case 2
        .MovePrevious     'Enregistrement précédent
        If .BOF Then
          MsgBox "Début du jeu d'enregistrement"
          .MoveFirst
        End If
      Case 3
          .MoveNext     'Enregistrement suivant
        If .EOF Then
          MsgBox "Fin du jeu d'enregistrement"
          .MoveFirst
        End If
      Case 4
        Unload Me
      Case 5
 
If MsgBox("êtes vous sûr de supprimer ce compte?", vbQuestion + vbYesNo + 
vbDefaultButton2, "Confirm") = vbNo Then
 
Exit Sub
 
End If
 
 'delete the current record
 
Adodc1.Recordset.Delete
 
'move to a valid record
 
MsgBox ("Suppression avec succés")
 
.MoveFirst
 
Case 6
frmPlanComptable.Show
frmPlanComptable.cmdAjouter.Visible = False
frmPlanComptable.cmdModifier.Visible = True
 
 
 
 
Case 7
frmPlanComptable.Show
 
frmPlanComptable.TxtCodeCompte.Text = Adodc1.Recordset.Fields(0)
frmPlanComptable.txtIntitule.Text = Adodc1.Recordset.Fields(1)
 
 
 
End Select
  End With
End Sub

c'est au niveau de case 6

[ucfoutu]

Aucune raison pour que cela ne fonctionne pas !

Encore faut-il :
- que tu sois dans le case 6 (que tu cliques donc sur cmdNavigation(6) !!!
- qu'existe bien une Form nommée frmPlanComptable
- que cette Form contienne bien un contrôle nommé cmdAjouter

tines ! écris donc, déjà :

Code :

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

1
2
3
4
5
Case 6
  msgbox "coucou" & " " & frmPlanComptable.cmdAjouter.Caption
  frmPlanComptable.Show
  frmPlanComptable.cmdAjouter.Visible = False
  frmPlanComptable.cmdModifier.Visible = True

et dis-nous ce qui s'affiche !!!

[aymane19]

Rebonjour;
Il affiche le message:
Erreur de compilation
méthode ou membre de données introuvable

[aymane19]

Rebonjour;
votre remarque est correcte. En fait, les boutons sont

Code :

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

1
2
frmPlanComptable.cmdAjouter(0).Visible = False
frmPlanComptable.cmdModifier(1).Visible = True

Merci pour votre soutien