[VB6]If avec un .Text et access

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:

---

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

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] ....

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 !! :mouarf:

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!

Citation:

---

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 !! :mouarf:

---

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/

Bonjours,

Bon la syntaxe exacte est donc

Code:

---

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

Citation:

---

Envoyé par xdiethank

Code:

---

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

---

---

et si tu fesais ceci :

Code:

---

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.

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 ^^

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...:oops:

Citation:

---

Envoyé par méphistopheles

encore que des fois, ça marche.(malheureusement:( )

---

beh dire que ca marche, alors je me pose des question. Dans quelle base tu es car je croit que "2>19" ne sera jamais vrai. Donc ca marche pas.

si, en ascii, c'est vrai ! il se contente de comparer le code ascii jusqu'a ce qu'il soit différent. 2>1 donc 2>19 >18999999999999999999....

Bon alors apparement j'ai reussie!
Donc pour ce qui ont eu les même problèmes que moi,

Code:

---

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

---

Fonctionne tres bien!

En fait c'est

Code:

---

if (nom_de_la_text_box.Text <> str(nom_du_recordset!nom_de_la_colone)) Then

---

Dite moi si j'ai tors.

Merci beaucoup à tous! Cela m'a vraiment aidé.

Renaud

alors n'oublie pas le tag [RESOLU].

@mephisto je vais rejer un coup d'oeil la dessus.