Discussion :

[toniox]

Hello ,
hier j'ai reussi a acceder à ma base de donnée via un recordset mais je recupere une parti des données et à un moment il y a un bug :

" Aucun Enregistrement en Cours "

Voici mon code

Do While Range("A" + Trim(Str(nLigne))).Value <> ""

Num_Fir = Range("A" + Trim(Str(nLigne))).Value

NumFIR = "select champ35 from CRM21_Fir_histo "
NumFIR = NumFIR + " where Numero_Action = '" & Num_Fir & "'"

Set Rdst1 = Db.OpenRecordset(NumFIR, dbOpenSnapshot)
If Rdst1.Fields(0).Value <> "" Then
Range("W" + Trim(Str(nLigne))).Select
Range("W" + Trim(Str(nLigne))).Value = Rdst1.Fields(0).Value
End If
nLigne = nLigne + 1
Rdst1.Close
Loop

PS : ça plante toujours à la même ligne

j'ai verifier dans la base le numero existe et pas de souci apparent.

Merci.Antoine

[toniox]

C'est bon désolé j'ai juste des valeurs qui n'existe pas dans ma table .

Pour ceux que ça aiderait je crois que pour verifier qu'un recordeset ne renvoit rien on utiliste

If Rdst1.EOF <> True .....

Si c'est vrai alors c'est vide sinon il y une Value.

[AlainTech]

Il vaut mieux écrire:

Code :

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

If Not Rdst1.EOF .....

[toniox]

Merci de vos réponse ça fonctionne.