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 INFO
L'exemple qui suit fonctionne avec la Référence DAO 3.x A toi de l'adapter si tu utlises la réf ActiveX Data Object 2.
Sub test() 'table de + de 100 lignes ' ref DAO 3.x chargée Dim bd As Database Dim t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs '4 1ers caractères du nom de table commenncant ' par MSys correspondent à des tables system If t.RecordCount > 25 _ And Left(t.Name, 4) <> "MSys" Then Debug.Print t.Name ' à toi d'ajuster le traitement End If Next t End Sub
A+
-----Message d'origine----- comment selectionner les tables d'un projet access qui ont plus de 100
lignes.
merci
.
Bonjour INFO
L'exemple qui suit fonctionne avec la Référence DAO 3.x
A toi de l'adapter si tu utlises la réf ActiveX Data
Object 2.
Sub test()
'table de + de 100 lignes
' ref DAO 3.x chargée
Dim bd As Database
Dim t As TableDef
Set bd = CurrentDb
For Each t In bd.TableDefs
'4 1ers caractères du nom de table commenncant
' par MSys correspondent à des tables system
If t.RecordCount > 25 _
And Left(t.Name, 4) <> "MSys" Then
Debug.Print t.Name ' à toi d'ajuster le
traitement
End If
Next t
End Sub
A+
-----Message d'origine-----
comment selectionner les tables d'un projet access qui
ont plus de 100
L'exemple qui suit fonctionne avec la Référence DAO 3.x A toi de l'adapter si tu utlises la réf ActiveX Data Object 2.
Sub test() 'table de + de 100 lignes ' ref DAO 3.x chargée Dim bd As Database Dim t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs '4 1ers caractères du nom de table commenncant ' par MSys correspondent à des tables system If t.RecordCount > 25 _ And Left(t.Name, 4) <> "MSys" Then Debug.Print t.Name ' à toi d'ajuster le traitement End If Next t End Sub
A+
-----Message d'origine----- comment selectionner les tables d'un projet access qui ont plus de 100
lignes.
merci
.
Eric
re, Oupps Faut lire If t.RecordCount >100 dans la boucle et non 25 a+
-----Message d'origine----- Bonjour INFO
L'exemple qui suit fonctionne avec la Référence DAO 3.x A toi de l'adapter si tu utlises la réf ActiveX Data Object 2.
Sub test() 'table de + de 100 lignes ' ref DAO 3.x chargée Dim bd As Database Dim t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs '4 1ers caractères du nom de table commenncant ' par MSys correspondent à des tables system If t.RecordCount > 25 _ And Left(t.Name, 4) <> "MSys" Then Debug.Print t.Name ' à toi d'ajuster le traitement End If Next t End Sub
A+
-----Message d'origine----- comment selectionner les tables d'un projet access qui ont plus de 100
lignes.
merci
.
.
re,
Oupps
Faut lire
If t.RecordCount >100 dans la boucle et non 25
a+
-----Message d'origine-----
Bonjour INFO
L'exemple qui suit fonctionne avec la Référence DAO 3.x
A toi de l'adapter si tu utlises la réf ActiveX Data
Object 2.
Sub test()
'table de + de 100 lignes
' ref DAO 3.x chargée
Dim bd As Database
Dim t As TableDef
Set bd = CurrentDb
For Each t In bd.TableDefs
'4 1ers caractères du nom de table commenncant
' par MSys correspondent à des tables system
If t.RecordCount > 25 _
And Left(t.Name, 4) <> "MSys" Then
Debug.Print t.Name ' à toi d'ajuster le
traitement
End If
Next t
End Sub
A+
-----Message d'origine-----
comment selectionner les tables d'un projet access qui
ont plus de 100
re, Oupps Faut lire If t.RecordCount >100 dans la boucle et non 25 a+
-----Message d'origine----- Bonjour INFO
L'exemple qui suit fonctionne avec la Référence DAO 3.x A toi de l'adapter si tu utlises la réf ActiveX Data Object 2.
Sub test() 'table de + de 100 lignes ' ref DAO 3.x chargée Dim bd As Database Dim t As TableDef Set bd = CurrentDb For Each t In bd.TableDefs '4 1ers caractères du nom de table commenncant ' par MSys correspondent à des tables system If t.RecordCount > 25 _ And Left(t.Name, 4) <> "MSys" Then Debug.Print t.Name ' à toi d'ajuster le traitement End If Next t End Sub
A+
-----Message d'origine----- comment selectionner les tables d'un projet access qui ont plus de 100
