Je deviens fou...

Le
Brian
Bonsoir,

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

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

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

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

POURQUOI?

Merci pour votre aide,
Brian
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
machin
Le #5369571
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
Publicité
Poster une réponse
Anonyme