Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Je deviens fou...

Je deviens fou...

1 réponse
Avatar
Brian
Bonsoir,

Ceci est donne une erreur =E0 la compil
Dim vstSQL01 As String
Dim rstLots As Recordset

Set rstLots =3D New ADODB.Recordset
rstLots.ActiveConnection =3D CurrentProject.Connection

Ceci ne donne pas d'erreur =E0 la compil
Dim vstSQL01 As String
Dim rstLots, rstLots01 As Recordset

Set rstLots =3D New ADODB.Recordset
rstLots.ActiveConnection =3D CurrentProject.Connection

POURQUOI?

Merci pour votre aide,
Brian
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
machin
Bonjour,

Brian wrote:

| Ceci ne donne pas d'erreur à la compil
| Dim rstLots, rstLots01 As Recordset
| Set rstLots = New ADODB.Recordset
|
| POURQUOI?

parce que ta première ligne veut dire :

Dim rstLots as variant
Dim rstLots01 As Recordset

et que un SET machin sur un variant; ce ne fonctionne pas.
Il faudrait que ce soit un object ...

donc modifier en
Dim rstLots as Recordset, rstLots01 As Recordset

ou
Dim rstLots as recordset
Dim rstLots01 As Recordset

voilà

au revoir