[vba] Mon findfirst ne trouve aucune donnée.

Bonjour, je programmes en Access 2003. Comme mon titre l'indique, lorsque je fais mon findfirst, il ne trouve aucune donnée et reste à la première. Voici un exemple du code qui ne fonctionne pas.

Code:

---

1 2 3 4 5 6 7

Dim vARechercher As String vARechercher = rstOld!NOSPEC rstDesc.FindFirst ("[NOSPEC] = " & vARechercher) If Trim(rstDesc!NOSPEC) = vARechercher Then rstGfCommande!PRONAM = rstDesc!PRNAME End If

---

J'ai regarder dans le debugger, les valeurs qui sont rechercher sont bien dans la base de données. Le type de données de NOSPEC est Décimal de longueur 7. J'ai essayer de mettre

Code:

---

rstDesc.FindFirst ( "[NOSPEC] = " & CDec(vARechercher))

---

mais ca n'a pas fonctionnez non plus. Int n'a pas la capacité pour pouvoir avoir 7 caractère. CLng et CDbl ne fonctionnent pas non plus. Je pensais que le problème pouvait être un de compatibilite entre les String et Decimal, mais je ne sais pas j'aimerais avoir votre avis la-dessus. Ca ne me fais aucun message d'erreur. Il ne trouve simplement pas, même si les champs sont identique.

Merci d'avance pour votre aide.

Après un findFirst, la bonne commande à utiliser est NoMatch pas l'égalité.

Code:

---

1 2 3 4 5 6 7

Dim vARechercher As String vARechercher = rstOld!NOSPEC rstDesc.FindFirst ("[NOSPEC] = " & vARechercher) If not rstDesc.noMatch Then rstGfCommande!PRONAM = rstDesc!PRNAME End If

---

Vois ce que cela donne avec ce code.

A+

Merci, pour le conseil du NoMatch, Je l'avais fais dans d'autres parties, mais pour cette partie je l'avais oublier.

Mais ca ne rentre pas plus dans le If, si je regarde les données de ma variable vARechercher et les compares avec mes données dans la BD c'est que des valeurs équivalente.

Citation:

---

Le type de données de NOSPEC est Décimal de longueur 7

---

alors il faut une syntaxe appropriée :

Code:

---

rstDesc.FindFirst ( "[NOSPEC] = '" & vARechercher & "'" )

---

Hope this may be some help :lol:

Citation:

---

Envoyé par micniv

alors il faut une syntaxe appropriée :

Code :
rstDesc.FindFirst ( "[NOSPEC] = '" & vARechercher & "'" )

---

Je crois que les ' sont seulement pour les String, j'ai essayé de l'intégrer à mon code et j'obtient l'erreur. "Type de données incompatible dans l'expression du critère."

Clairement c'est un nombre donc il ne faut pas de ' autours.

Essaye de faire une requète select, pas en code mais dans l'éidteur de requète, et vois si tu peux avoir l'enr que tu désir.

un truc du genre

Code:

---

1 2	select [NOSPEC] from maTable where [NOSPEC]=maValeur

---

Fait aussi afficher rstDesc.recordCount(), si il est à 0 c'est que tu as un pb à l'ouverture de rstDesc.

A+

le probleme est en fait la déclaration d'un décimal (aussi je ne les utilise jamais)

Pour le pb ci-dessus, ceci fonctionne :

Code:

---

1 2 3 4 5 6

Dim vARechercher As Variant .... vARechercher = 3.444 (exemple) RecordsetClone.FindFirst ("[NOTTT] = " & Replace(vARechercher, ",", ".")) ...

---

cordialemnt

Jai essayer avec une requête tout fonctionne il affiche le numero désiré et le recordcount n'est pas à 0.

Citation:

---

Envoyé par micniv

le probleme est en fait la déclaration d'un décimal (aussi je ne les utilise jamais)

Pour le pb ci-dessus, ceci fonctionne :

---

Je ne sais pas pourquoi mais ton bout de code ne retrouvais pas les NOSPEC.
C'est peut-être puisque lorsqu'il y a un entier, ca transforme le Variant en Int.

Je vais utiliser ton optique de ne jamais utiliser les décimal, alors j'ai changer le type dans ma BD et tout fonctionne bien.

-Merci pour votre aide