Bonjour,

Voici mon code:

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
 stock = "SELECT NomMP, QteEntree, Etat, DateMouvement, BesoinCde FROM StockMP WHERE NomMP='" & nom & "'"
            stock = stock & " and QteEntree >0 or BesoinCde>0"
            Set rsstock = CurrentDb.OpenRecordset(stock)
            rsstock.MoveFirst
            Do Until rsstock.EOF
            'MsgBox ("salut")
                If IsNull(rsstock.Fields("QteEntree").Value) Then
 
                    besoin = rsstock.Fields("BesoinCde").Value
                    Etat2 = rsstock.Fields("Etat").Value
                    datem = rsstock.Fields("DateMouvement").Value
                    MsgBox (Etat2 & ", " & datem & ", " & besoin)
 
                    Me.BesoinCde = besoin
                    Me.Etat = Etat2
                    Me.DateMouvement = datem
 
 
                ElseIf IsNull(rsstock.Fields("BesoinCde").Value) Then
 
                    entree = rsstock.Fields("QteEntree").Value
                    Etat2 = rsstock.Fields("Etat").Value
                    datem = rsstock.Fields("DateMouvement").Value
                    MsgBox (Etat2 & ", " & datem & ", " & entree)
 
                    Me.DateMouvement = datem
                    Me.Etat = Etat2
                    Me.QteEntree = entree
 
                End If
                rsstock.MoveNext
            Loop
il passe bien dans les message box, mais arrivé à l'affectation, access me retourne l'erreur "impossible d'attribuer une valeur à cet objet".
Je ne comprend pas pourquoi.
Merci de votre aide