Discussion :

[fifrelin_70]

Bonjour à tous, je suis nouveau dans le forum et je commence access...
Je souhaite travailler avec les requêtes Sélection et les jeux d'enregistrements.

Voici mon code qui ne marche pas (-> erreur 424 )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Calcul01_Click()
 
Dim cnnl As ADODB.Connection
Set cnnl = CurrentProject.Connection
Dim myRecordSet As New ADODB.Recordset
myRecordSet.ActiveConnection = cnn1
Dim mySQL As String
mySQL = "SELECT Import.* FROM Import"
myRecordSet.Open mySQL
 
End Sub

Si qqu est en mesure de m'aider... Merci

[LedZeppII]

Bonjour,

Je pense que l'erreur est à cette ligne

Code vb :

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

myRecordSet.ActiveConnection = cnn1

L'objet Connection déclaré est cnnl (CNNL) et non cnn1 (CNN1)

A+

[fifrelin_70]

j'ai remarqué après post l'erreur que tu mentionnes. je l'ai evidemment corrigé seulement l'erreur 424 subsiste donc ce n'est pas ça.

[LedZeppII]

Ahhrg, que je suis bête.

Il faut utiliser Set pour l'affectation d'une variable objet.

Code vb :

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

Set myRecordSet.ActiveConnection = cnnl

A+

[fifrelin_70]

lol... je veux pas etre chiant mais toujours pareil. merci quand meme je vais continuer de chercher alors

[LedZeppII]

sur quelle ligne de code s'arrête le debogueur ?
Parce que chez moi le code fonctionne (base Access MDB).