Type objetAccess
strNomObjet As String
dateCr=E9ation As Date
dateModification As Date
End Type
Sub =C9num=E9rer_Requ=EAtes_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=E9e courante
Set db =3D CurrentDb
'CONSTITUER LE TEXTE POUR CHAQUE REQU=CATE
iQuery =3D 1
For Each Qry In db.QueryDefs
'red=E9finir la taille du tableau =E0 chaque nouvelle entr=E9e
ReDim Preserve listeRequete(0 To iQuery)
'si la requete n'est pas ???
If Left(Qry.Name, 2) =3D "Q_" Or Left(Qry.Name, 3) =3D "JP_" Then
listeRequete(iQuery).strNomObjet =3D Qry.Name
listeRequete(iQuery).dateCr=E9ation =3D Qry.DateCreated
listeRequete(iQuery).dateModification =3D Qry.LastUpdated
iQuery =3D iQuery + 1
End If
Next Qry
'relire le tableau de Qry
For iObjet =3D 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=E9 a la ligne : listeRequete(iQuery).strNomObjet =3D Qry.Name
j'ai le message : erreur 424 objet requis
mais je ne sais pas corrig=E9.
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
Eric
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
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)
jean-paul.bataille@sfr.com 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
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