Discussion :

[xargin]

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

[fbtsra]

Bonjour,

J'ai un doute sur le résultat attendu de la requête sql : ne manquent ils pas les parenthèses pour les critères de sélection :

Code :

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

1
2
stock = "SELECT NomMP, QteEntree, Etat, DateMouvement, BesoinCde FROM StockMP WHERE NomMP='" & nom & "'"
            stock = stock & " and (QteEntree >0 or BesoinCde>0)"

Bcdt

[xargin]

non, j'ai mis les parentheses, mais j'ai toujours cette erreur.

[fbtsra]

Ca plante où ? sur les lignes 14 et/ou 26 ?

Avez vous testé la requête séparemment ?

Quelles dont les déclarations de variables ?

Avez vous essayer un msgbox sur besoin, etat2, datem ... ?

Bcdt

[xargin]

Ca plante où ? sur les lignes 14 et/ou 26 ?

ca plante à la ligne 26

Avez vous testé la requête séparemment ?

oui, ca fonctionne

Quelles dont les déclarations de variables ?

voila la declaration de mes variables:

Code :

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

1
2
3
4
5
6
7
MsgBox (nom & ", " & nb)
            Dim stock As String
            Dim rsstock As DAO.Recordset
            Dim entree
            Dim datem
            Dim Etat2
            Dim besoin

Avez vous essayer un msgbox sur besoin, etat2, datem ... ?

dans les if, j'ai un message box, les données que la fenetre m'affiche sont correctes.

J ajoute que le debogueur affiche le bon résultat quand je passe sur la ligne avec ma souris.

[fbtsra]

Avez vous Vérifié le textbox DateMouvement : format, verrouillage ... qui pourrait expliquer ce pb ?

BCdt

[xargin]

le problème, c'est que dans la fenêtre des propriétées, je n'ai pas le champs 'Format'

[fbtsra]

C'est bien un textbox ? ou c'est une étiquette ?

[xargin]

j'ai creee mon formulaire a partir d'une requete, et la ou ca plante, c'est un champ que j ai ajoute, dans l'en tete grace a une etiquette, et dans le corps du formulaire, access a creee la zone de texte correspondante.
mais sur cette zone de texte, je n ai pas de propriete de format

[fbtsra]

N'y a t il pas confusion entre les deux (étiquette - champ) ? Vérifiez les noms/propriétés de chacun.

En autre recours recréez un nouveau champ pour tester s'il récupère la valeur de votre code.

Bcdt

[xargin]

merci de ton aide, on a reflechi avec mon patron, et j'ai modifié la structure de ma table, donc, pour l'instant pas de problème, j'ai un historique sur 3 commandes. Cela fonctionne, et l'entreprise ne fait pas beaucoup de commande à l'année^^.