[VB6]If avec un .Text et access

**xdiethank** · 14/05/2006, 21h55

Bonjours,
Je souhaiterai que si la quantite entré dans laquantite.Text est égale ou inferieur à une valeur d'une base de donnée acces, il fasse une action spécial.

J'ai donc mis :

Code :

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

1
2
3
4
5
 
Set req_ens = db.OpenRecordset("SELECT Solde FROM TAB_DEVIS WHERE Categorie LIKE ('" _
          & BCategorie.List(BCategorie.ListIndex)  AND ... ")
 
If (laquantite.Text <> req_ens) Then

Mais il me dit "type incompatible"! Des idées?

Merci

**SfJ5Rpw8** · 14/05/2006, 22h05

et tu est sur que req_ens , te renvoi une quantitée ? ne serai-ce pas plutôt un recordSet... fait un tour dans la FAQ... tu devrai y trouver ce que tu cherche...

PS : Pourrai-tu modifier ton titre en y rajoutant le tage Approprié.. [VBA-A], [VB6] ....

**AlbertFR** · 14/05/2006, 22h39

Salut, a vous

Moi aussi j'ai ce probleme!
Mais moi c'était avec une combo! Je n'ai jamais trouvé ou était le probleme! Vous avez plus d'indication?

A bientot, et bravo pour votre taff !!

**xdiethank** · 14/05/2006, 22h45

Bonjours, ca me rassure de ne pas etre le seul

Oui moi aussi je cherche depuis 30 min et je ne trouve toujours pas car dans la FAQ ils disent bien : "L'objet Recordset, comme son nom l'indique, permet de récupérer un ensemble d'enregistrements. La seule requête SQL permettant de récupérer un jeu d'enregistrements est le SELECT"

Donc je comprend pas ou je me plante :S

Merci a ceux qui peuvent nous apporter quelques précisions!

**SfJ5Rpw8** · 14/05/2006, 22h52

Envoyé par AlbertFR

Salut, a vous

Moi aussi j'ai ce probleme!
Mais moi c'était avec une combo! Je n'ai jamais trouvé ou était le probleme! Vous avez plus d'indication?

A bientot, et bravo pour votre taff !!

si c'est vraiment le même probléme .. il faut commencer par parcourir les enregistrements du recordSet... voir

http://drq.developpez.com/vb/tutoriels/ADO/Chapitre3/

**xdiethank** · 16/05/2006, 22h03

Bonjours,

Bon la syntaxe exacte est donc

Code :

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

If (laquantite.Text <> req_ens!Solde) Then

Mais je suis confronté a une erreur 440 "erreur automation"!
D'apres mes recherche, il s'agit d'une incompatibilité avec certains objets.
Pourtant je n'utilise pas de nouvel objet d'apres ce que vous m'avez proposé.

Avez vous des idées?

PS :AlbertFR, il faut que tu choisisse le nom de la colone apres le "!".

Merci a tous

**sovo** · 16/05/2006, 22h17

Envoyé par xdiethank

Code :

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

If (laquantite.Text <> req_ens!Solde) Then

et si tu fesais ceci :

Code :

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

1
2
3
4
 
If (val(laquantite.Text) <> req_ens!Solde) Then
ou
If (laquantite.Text <> str(req_ens!Solde)) Then

je croit que ton probleme et celui de xdiethank ce situe au niveau du type des donnees essayes voir et vous nous en direz.

**riesseg** · 16/05/2006, 22h21

je plussoie Sovo.

C'est, de base, peux conseiller de comparer des String et des Nombres

Faut faire la conversion, comme le montre notre cher compere.
Et la, si ca plante, y'a vraiment un pb ^^

**méphistopheles** · 16/05/2006, 22h57

encore que des fois, ça marche.(malheureusement

)

j'ai ainsi charche pendant une semains un bête bug dû au fait qu'il comapais en string et non en double (il y avais une donné en un et une donné en l'autre). resultat, 2>19

je comprenais pas trop...