Discussion :

[Mmmuzik]

Bonjour,

afin d'achever ma base de données, j'aurais encore une petite question. Je voudrais dans un sous formulaire "détails du bordereau", avec un bouton de commande, appliquer a tous mes enregistrements la formule suivante :

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
 
Dim strLink As String
    strLink = SauvegarderActualiser
        If NbRestant <= 0 Then
            ACommander = Quantité
            AValidation = 0
            Stockbel = "Indisponible"
        Else
            AValidation = NbRestant - Quantité
                If AValidation > 0 Then
                    ACommander.Value = 0
                    Stockbel.Value = "Disponible"
                Else
                    ACommander = Quantité - NbRestant
                    AValidation = 0
                    Stockbel.Value = "Indisponible"
                End If
        End If

En fait, cette formule marche nickel, mais que pour un enregistrement à la fois. Je pense qu'il manque pas grand chose !!! Et est-il possible d'utiliser un bouton de commande avec un sous formulaire en feuille de données ??? Je pense pas, mais serait il possible d'appeler mon bouton via le formulaire "principal" ??? Car pour le moment, mon sous formulaire est un formulaire tous simple et pour une raison de faciliter et uniformité avec mes autres formulaires, je le revoudrais en feuille de données.

Merci d'avance.

[Jean-Philippe André]

bonjour,

tu utilises beaucoup de variables dant on code, peux-tu nous indiquer comment tu les alimentes stp ? Une requête update par le vba est possible, mais encore nous faudrait-il les champs de la table à mettre à jour ^^
Merci

[Mmmuzik]

En fait, tous ces variables viennent de mes tables :
Stockbel, NbRestant => tbl Matériel
AValidation, ACommander, Quantité => Détails du bordereau
J'ai voulu essayer avec une requete, mais je ne connais pas assez le SQL pour çà.

[Jean-Philippe André]

alors tu auras plusieurs requêtes de mise à jour des données possibles: un exemple, à adapter selon le nom exact des champs et tables :

Code :

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

UPDATE Table_Materiel SET Stockbel='INDISPONIBLE' WHERE NBRestant<0

tu vois l'idée ?

[Mmmuzik]

je vois l'idée , bien vu, je vais essayer d'appliquer cela a mon cas, merci bcp à toi jpcheck

[Mmmuzik]

Afin de ne pas créer 50milles requetes, est-il possible d'utiliser un case avec un UPDATE et par la meme occasion utilisé mon WHERE pour filtrer mon formulaire ???

Code :

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

UPDATE Matériel SET Stockbel=(CASE WHEN NbRestant>0 THEN "Disponible" ELSE "Indisponible" END);

[Mmmuzik]

Code :

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

UPDATE Matériel SET Stockbel=(CASE WHEN NbRestant>0 THEN "Disponible" ELSE "Indisponible" END);

Pourquoi "Opérateur absent" ???
C'est bizarre, même en SELECT, je n'arrive pas à utilisé le CASE WHEN.