erreur 424

Le
jean-paul.bataille
Bonsoir contributeurs Access


voici mon code :

Type objetAccess
strNomObjet As String
dateCréation As Date
dateModification As Date
End Type


Sub Énumérer_Requêtes_array()

On Error GoTo Erreur

Dim db As DAO.Database
Dim Qry As DAO.QueryDef
Dim unObjet() As objetAccess
Dim listeRequete() As Variant

'instancie la base de donnée courante
Set db = CurrentDb

'CONSTITUER LE TEXTE POUR CHAQUE REQUÊTE
iQuery = 1
For Each Qry In db.QueryDefs
'redéfinir la taille du tableau à chaque nouvelle entrée
ReDim Preserve listeRequete(0 To iQuery)

'si la requete n'est pas ???
If Left(Qry.Name, 2) = "Q_" Or Left(Qry.Name, 3) = "JP_" Then
listeRequete(iQuery).strNomObjet = Qry.Name
listeRequete(iQuery).dateCréation = Qry.DateCreated
listeRequete(iQuery).dateModification = Qry.LastUpdated
iQuery = iQuery + 1

End If
Next Qry

'relire le tableau de Qry
For iObjet = 0 To UBound(listeObjet)
MsgBox listeRequete(iObjet).strNomObjet & " : " & listeRequete
(iObjet).dateModification
Next iObjet

Exit Sub

Erreur:
MsgBox " Une erreur " & Err.Number & " est survenue !" & vbCrLf &
Err.Description

End Sub

arrivé a la ligne : listeRequete(iQuery).strNomObjet = Qry.Name
j'ai le message : erreur 424 objet requis
mais je ne sais pas corrigé.

Merci de votre collaboration
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #19130471
Bonjour,

Quelques modifications :

Dim unObjet() As objetAccess n'est pas utile, à mettre en commentaire ou
à supprimer

Dim listeRequete() As objetAccess
au lieu de Dim listeRequete() As Variant

iQuery = 1 n'est pas utile, à mettre en commentaire ou à supprimer

For iObjet = 0 To UBound(listeRequete)-1 au lieu de For iObjet = 0 To
UBound(listeObjet)



a écrit :
Bonsoir contributeurs Access


voici mon code :

Type objetAccess
strNomObjet As String
dateCréation As Date
dateModification As Date
End Type


Sub Énumérer_Requêtes_array()

On Error GoTo Erreur

Dim db As DAO.Database
Dim Qry As DAO.QueryDef
Dim unObjet() As objetAccess
Dim listeRequete() As Variant

'instancie la base de donnée courante
Set db = CurrentDb

'CONSTITUER LE TEXTE POUR CHAQUE REQUÊTE
iQuery = 1
For Each Qry In db.QueryDefs
'redéfinir la taille du tableau à chaque nouvelle entrée
ReDim Preserve listeRequete(0 To iQuery)

'si la requete n'est pas ???
If Left(Qry.Name, 2) = "Q_" Or Left(Qry.Name, 3) = "JP_" Then
listeRequete(iQuery).strNomObjet = Qry.Name
listeRequete(iQuery).dateCréation = Qry.DateCreated
listeRequete(iQuery).dateModification = Qry.LastUpdated
iQuery = iQuery + 1

End If
Next Qry

'relire le tableau de Qry
For iObjet = 0 To UBound(listeObjet)
MsgBox listeRequete(iObjet).strNomObjet & " : " & listeRequete
(iObjet).dateModification
Next iObjet

Exit Sub

Erreur:
MsgBox " Une erreur " & Err.Number & " est survenue !" & vbCrLf &
Err.Description

End Sub

arrivé a la ligne : listeRequete(iQuery).strNomObjet = Qry.Name
j'ai le message : erreur 424 objet requis
mais je ne sais pas corrigé.

Merci de votre collaboration



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Publicité
Poster une réponse
Anonyme