Discussion :

[LordTal]

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 VB :

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

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 VB :

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

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.

[marot_r]

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

Code :

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

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+

[LordTal]

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.

[micniv]

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

alors il faut une syntaxe appropriée :

Code :

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

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

Hope this may be some help

[LordTal]

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

[marot_r]

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 :

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

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+

[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 :

Code :

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

1
2
3
4
5
6
Dim vARechercher As Variant

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

cordialemnt