Discussion :

[Yohann_x]

Bonjour,

j'ai insérer dans un form un groupe d'options pour gérer le status des arcticles d'une boutique,

1 = article activé
2 = article désactivé

avec 2 cases à cocher Activer/Désactiver, en revanche, comment faire la même chose avec 1 seul bouton, Enfoncé = 1 sinon = 2 je passe par une bdd sql..

merci pour vos réponses

[marot_r]

Utilise un bouton bascule indépendant, ça devrait faire la job.

A+

[Yohann_x]

Utilise un bouton bascule indépendant, ça devrait faire la job.

A+

Salut,

pour ce type de bouton je pense devoir utiliser un peut de VB, par exemple je sais gérer une action sur click,

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
 
Private Sub facture_Click()
On Error GoTo Err_facture_Click
 
    Dim stDocName As String
 
    stDocName = "facture"
    ModifierMarges "facture", 1, 0, 1, 1
    DoCmd.OpenReport stDocName, acNormal
 
Exit_facture_Click:
    Exit Sub
 
Err_facture_Click:
    MsgBox Err.description
    Resume Exit_facture_Click
 
End Sub

mais il s'agit d'un simple bouton qui lance un Etat, il ne modifie pas la valeur d'un champ SQL et ne reste pas enfoncé

je sais aussi créer une condition à partir d'une requête,

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
 
Private Sub Form_Load()
 
Dim db As Database, a As DAO.Recordset
Set db = CurrentDb
 
Set a = db.OpenRecordset("SELECT count(id_orders) AS cmd FROM orders WHERE xxx = 2 AND xxxx = 1")
If a!cmd > 0 Then
Me!nb_cmd = a!cmd
Me.cmd_prep.Value = "Liste"
Else
Me!nb_cmd = 0
Me.cmd_prep.Value = "Aucune"
End If
 
a.Close
 
db.Close
 
End Sub

puis j'ai trouvé celà,

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Bascule141_Click()
    If Me.Bascule141 Then
        Me!Bascule141.Caption = "1"
        Else
        Me!Bascule141.Caption = "0"
    End If
End Sub

en fait, je souhaite appliquer le même principe qu'un groupe d'options mais avec un seul bouton ou une seule case à cocher, si quelqu'un pouvait m'aider...

merci

[Faw]

Les boutons sont de type booléen

Code :

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

1
2
3
4
5
If me.Btn.Value = -1 then 
msgbox "Btn est enfoncé"
else    ' Btn.Value = 0
msgbox "Btn est relâché" 
end if

[Yohann_x]

Les boutons sont de type booléen

Code :

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

1
2
3
4
5
If me.Btn.Value = -1 then 
msgbox "Btn est enfoncé"
else    ' Btn.Value = 0
msgbox "Btn est relâché" 
end if

Slt,

j'ai fais celà,

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
Private Sub Test_Click()
 
Dim db As Database, a As DAO.Recordset
Set db = CurrentDb
 
Set a = db.OpenRecordset("SELECT products_in_stock AS stock FROM products")
If a!stock = 0 Then
Test.Enabled = False
Me.Test.Value = "0"
Else
Test.Enabled = True
Me.Test.Value = "1"
End If
 
a.Close
 
db.Close
 
End Sub

j'ai bien mon bouton "Test" qui est enfoncé quand = à 1 ou sorti si = à 0 le problème étant que j'ai un msg "Impossible de mettre à jour le Recordset." quand je click dessus