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

[fifrelin_70]

A vrai dire la fonction pas à pas détaillé ne marche pas et donc F8 non plus.. si je génère une erreur rien non plus. je comprends pas tout

[LedZeppII]

A vrai dire la fonction pas à pas détaillé ne marche pas et donc F8 non plus..

Pas surprenant pour une procédure événementielles.
Copie ton code et colles le dans un module de code pour l'exécuter pas à pas.

Il se peut que l'erreur soit ailleurs dans le code (ensemble du projet).
Exemple de situation où l'erreur 404 se produit.

Sans "Option Explicit" en début de module de code

Code :

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

1
2
3
4
5
6
Option Compare Database
 
Sub test404()
' Ici j'ai tapé Debuf au lieu de Debug
Debuf.Print "abcdef"
End Sub

Avec "Option Explicit" en début de module de code

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Option Explicit
 
Sub test404()
Dim db, rs
' Ici j'ai oubli la ligne : Set db = CurrentDb
Set rs = db.OpenRecordset("tblCli1")
rs.Close
End Sub

En résumé, l'erreur se produit sur une expression du style qqchose.Membre où qqchose n'est pas de type objet.

Si ce n'est pas déjà fait, mets l'option "Option Explicit" au début de chaque module de code.
Ca évite les noms de variables mal orthographiées, sources d'erreurs.

A+