Discussion :

[clo5000]

Bonjour à tous,

J'ai un formulaire et un sous-formulaire, dans le sous-formulaire j'ai un champ quantite dont je voudrais vérifier la saisie: Si la quantite est supérieure au stock on annule la saisie, le focus revient sur quantite. Le stock est un champ d'une requete.
J'ai fait un code qui ne marche pas. Il ya toujours:Erreur d'exécution 3464.

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
 
Private Sub quantite_BeforeUpdate(Cancel As Integer)
Dim db As Database
Dim rst As Recordset
Dim reponse As String
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM RSoldeproduit WHERE RSoldeproduit.codeproduit=" & Me.numproduit)
St = rst.Fields("Soldeproduit").Value
qte = Me.quantite.Value
If (qte > St) Then
reponse = MsgBox("Le Stock est insuffisant pour la quantité demandée", vbOKOnly, "Avertissement")
Cancel = True
Me.quantite.SetFocus
End If
End Sub

Quelqu'un peut-il m'aider ?

[cyraile]

Bonjour,

Comme ça je vois pas trop, mais :

- Quel est le message de l'erreur 3464 ?

- Quand tu vas dans le débogueur il plante sur quelle ligne ?

Merci

[alexandrebergercyr]

Compare des pommes avec des pommes.

Alex

[clo5000]

Il plante sur set rst = db.recordset("Select ...)

Erreur d'exécution '3464'

Type de données incompatible dans l'expression du critère

[alexandrebergercyr]

Est ce que tu as écris .recordset ou .OpenRecordset?

Alex

N.B.

Code :

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

1
2
 
SELECT * FROM RSoldeproduit WHERE RSoldeproduit.codeproduit=" & Me.numproduit.Text

[alexandrebergercyr]

Ce que j,ai ajouté c'est le .Text dans ta requête.

Alex

[Invité]

Bonjour

Met .value au lieu de .text

Starec

[clo5000]

quand je mets .Text l'erreur '2185' Impossible de faire référence à une propriété ou de la définir pour un controle si ce dernier n'est pas activé.
Mais quand je mets .Value l'erreur '2464' apparait

Il n' y a pas une façon de contourner le probleme ?

[Invité]

Re

.text ne fonctionne que si le contrôle est actif, as-tu essayé .value ?

Starec

[seb92400]

Hello,

As-tu le même type de champ pour codeproduit et pour numproduit ?

Exemple, ton champ codeproduit est de type numérique et ton champ numproduit est de type texte...

Dans ce cas utilise une fonction de conversion CLng, Cstr, etc... afin de faire correspondre tes données.

[clo5000]

Les deux champs sont type texte.

[Invité]

Re

As-tu testé le .value ?

Starec

[seb92400]

Si tes champs sont de type texte, il faut dans ce cas penser aux guillemets :

Code :

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

SELECT * FROM RSoldeproduit WHERE RSoldeproduit.codeproduit= " & chr(34) & Me.numproduit & chr(34)

[clo5000]

quand je mets & chr(34) &Me.numproduit & chr(34), c'est l'erreur '3075'
Erreur de syntaxe dans la chaine dans l'expression 'RSoldeproduit.codeproduit="c001 avec c001 le numéro du produit.
Mais quand je survole sur le stock st du code avec la souris, j'ai la valeur du prix x quantite. Je ne comprend pas il doit y avoir surement quelque chose qui cloche.

[seb92400]

Tu as effectivement une erreur de syntaxe. En fait, tu dois respecter un ordre au niveau des "... Je me suis planté tout à l'heure... (argh... sans avoir l'éditeur sous les yeux, c'est une bonne école)...

Donc, cette fois-ci, si je ne me trompe pas, ça doit être :

Code :

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

db.OpenRecordset("SELECT * FROM RSoldeproduit WHERE RSoldeproduit.codeproduit = '" & Me.numproduit & "')

Voilà... Normalement... Il s'agit d'un ' suivi d'un " au début et l'inverse à la fin.

[clo5000]

Maintenant c'est l'erreur de compilation Attendu separateur de liste ou )

[cyraile]

Code :

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

1
2
 
db.OpenRecordset("SELECT * FROM RSoldeproduit WHERE RSoldeproduit.codeproduit = '" & Me.numproduit.value & "'")

Des fois il faut réfléchir un peu quand meme et ne pas faire que du copier coller

Il maquait un guillement à la fin avant la liste.

[seb92400]

Merci Cyraile... Effectivement, je n'ai pas vérifié tous les guillemets... D'un autre côté, ça me permet d'apprendre aussi !

[cyraile]

De rien

N'oubli pas le résolu.

[seb92400]

Mais... Sans vouloir être désagréable... Ce post n'est pas de moi ! Je ne peux pas mettre le tag résolu...
Je te disais juste merci de m'avoir corrigé sur mon guillemet oublié... Bonne journée à Toi !