Date de rupture sous Access ou VBA

les dates sont calculés tout le temps (en fait à chaque lancement de mon application). J'ai un code VBA qui fait tourner l'appli, qui lance les formulaires, les états, initialisation...La table avec toutes les commandes et dates peut changer toutes les heures, il faut donc une fonction qui calcule les dates de ruptures qui s'exécute à chaque lancement de l'application. Concernant la table résultat, je veux juste l'afficher avec un état mais ça je sais faire, il me faut juste la table résultat avec les bonnes dates, mises à jour si la table des commandes changent.
J'espère que je suis assez clair dans mon explication, sinon je peux te détailler davantage.

les dates sont calculés tout le temps (en fait à chaque lancement de mon application). J'ai un code VBA qui fait tourner l'appli, qui lance les formulaires, les états, initialisation...La table avec toutes les commandes et dates peut changer toutes les heures, il faut donc une fonction qui calcule les dates de ruptures qui s'exécute à chaque lancement de l'application. Concernant la table résultat, je veux juste l'afficher avec un état mais ça je sais faire, il me faut juste la table résultat avec les bonnes dates, mises à jour si la table des commandes changent.
J'espère que je suis assez clair dans mon explication, sinon je peux te détailler davantage.

Merci Blux, je vais essayer ça et je te réponds demain !

Salut, Blux, ton code ne me donne pas les bon résultats:
il y a des dates bizarre comme 30/12/1899, les sommes de quantité ne sont pas bonnes, il manque des fois des résultats.
Je voudrais aussi ne rien afficher pour la date s'il n'y a pas de rupture de stock.

Dans la table de sortie, je voudrais afficher :
- la référence
- le stock
- la somme des quantités commandés globale de cette référence(et non la somme des quantités commandés à partir duquel il y a rupture)
- la date de rupture ,sinon ne rien afficher si pas de rupture


Voici le code que j'ai légèrement modifié: en effet j'ouvre ma table (requête) "PB_CDC_DateRupture" qui contient toutes les commandes et leurs dates. Voici les champs de cette table : "Référence","Quantité","Quantitée Cumulée", "Date". (Quantité = Stock et Quantité Cumulée = Quantité de la commande.)


Function DateRupture()

Dim Rs As Recordset
Dim Rs1 As Recordset
Dim AncRef As String
Dim REF As String
Dim Qté As Long 'Integer
Dim Stock As Long 'Integer
Dim Datee As Date
Dim SumCde As Long 'Integer
Dim DateRup As Date
Dim BooFirst As Boolean
AncRef = ""
SumCde = 0
BooFirst = True
Set Rs = CurrentDb.OpenRecordset("PB_CDC_DateRupture")
'Set Rs = CurrentDb.OpenRecordset("select [Référence],Stock,Qté,Date from Commandes order by 1,4")
Set Rs1 = CurrentDb.OpenRecordset("TabRup")
While Not Rs.EOF
With Rs
REF = !Référence
Stock = !Quantité '!Stock
Qté = Nz(![Quantité Cumulée], 0) '!Qté
Datee = Nz(!Date, 0)
If BooFirst = True Then
BooFirst = False
AncRef = REF
End If
If AncRef <> REF Then
With Rs1
.AddNew
!Référence = REF
!Stock = Stock
!Qté = SumCde
!DateRup = DateRup
.Update
End With
AncRef = REF
SumCde = 0
End If
SumCde = SumCde + Qté
If SumCde > Stock Then
DateRup = Datee
Else
DateRup = 0
End If
End With
Rs.MoveNext
Wend
With Rs1
.AddNew
!Référence = REF
!Stock = Stock
!Qté = SumCde
!DateRup = Datee
.Update
End With
Rs.Close
Rs1.Close
Set Rs = Nothing
Set Rs1 = Nothing

End Function

Le truc le plus important, c'est de veiller à ce que les données en entrée soient triées par produit et date, sinon ça met le b...

Or, quand tu ouvres ton recordset rs, tu ne mets que le nom de la table, sans indiquer après un .movefirst.

Le système te renvoiera donc les données selon l'index primaire de ladite table, pas forcément en commençant au premier enregistrement, et pour toi sûrement des erreurs imprévues car les enregistrements ne sont pas en séquence...

Ouvre ton recordset rs avec un select (avec order by) basé sur ta table PB_CDC_DateRupture, et redis-m'en des nouvelles...

Les cases vides sont une contrainte qu'on me donne, sinon pour faire les calculs sur les cases vides je les transforme en 0 avec la fonction Nz(champ,valeur si vide).
Par exemple :
!Qté = Nz(Quantité,0)

Je voudrais te poser une question aussi, concernant les dates. J'affiche juste les dates qd il y a rupture (avec le code
SumCde > SumCde +Qté
DateRup = Datee )

Comment faire si je ne veux pas afficher de date lorsqu'il n'y a pas rupture :
DateRup = 0 ou "" ou NULL .....

Si tu travailles sur le code, tu pourrais me l'envoyer une fois "complet", merci. N'hésite pas à me demander d'autre précision si t'en as besoin. En fait ce n'est qu'un petit bout de mon application access/vba et je peux pas avancer si je n'arrive pas à récupérer ces dates de rupture.

Blux, pour simplifier la tache, je n'ai pas besoin de récupérer la somme des quantités commandées. On affiche donc juste:
la référence, le stock, et la date éventuelle de rupture. Je ne sais pas si ça va diminuer le problème...

Ayais !

Dim Rs As Recordset
Dim Rs1 As Recordset
Dim Ref As String
Dim AncRef As String
Dim Qté As Integer
Dim Stock As Integer
Dim AncStock As Integer
Dim Datee As Date
Dim SumCde As Integer
Dim DateRup As Date
Dim BooFirst As Boolean
Dim BooDate As Boolean
AncRef = ""
SumCde = 0
AncStock = 0
BooFirst = True
BooDate = False
DateRup = #1/1/1900#
Set Rs = CurrentDb.OpenRecordset("select [Référence],Stock,Qté,Date from Commandes order by 1,4")
Set Rs1 = CurrentDb.OpenRecordset("Tab-sortie", dbOpenTable, dbAppendOnly)
While Not Rs.EOF
    With Rs
        Ref = !référence
        Stock = Val(Nz(!Stock, 0))
        Qté = Val(Nz(!Qté, 0))
        Datee = Nz(!Date, #1/1/1900#)
        If BooFirst = True Then
            BooFirst = False
            AncRef = Ref
        End If
        If AncRef <> Ref Then
            With Rs1
                .AddNew
                !référence = AncRef
                !Stock = AncStock
                If SumCde = 0 Then
                    !Qté = ""
                Else
                    !Qté = SumCde
                End If
                If DateRup = "01/01/1900" Then
                    !DateRup = Null
                Else
                    !DateRup = DateRup
                End If
                .Update
                BooDate = False
                DateRup = #1/1/1900#
                SumCde = 0
            End With
            AncRef = Ref
            SumCde = 0
        End If
        SumCde = SumCde + Qté
        AncStock = Stock
        If SumCde > Stock And BooDate = False Then
            DateRup = Datee
            BooDate = True
        End If
    End With
Rs.MoveNext
Wend
With Rs1
    .AddNew
    !référence = AncRef
    !Stock = AncStock
    If Qté = 0 Then
        !Qté = ""
    Else
        !Qté = SumCde
    End If
    If DateRup = "01/01/1900" Then
        !DateRup = Null
    Else
        !DateRup = DateRup
    End If
    .Update
End With
Rs.Close
Rs1.Close
Set Rs = Nothing
Set Rs1 = Nothing

Les contraintes :

Les champs 'stock, qté' de la table 'commandes' sont de type texte avec 'chaine vide autorisée' à 'oui'

Les champs 'stock, qté, daterup' de la table 'tab-sortie' sont de type texte avec 'chaine vide autorisée' à 'oui'

Et ça marche bien, c'était rigolo à faire... mais j'ai pas optimisé...