J'ai une base de données d'accès avec ~ 150 tables et j'ai besoin de trouver un moyen de répertorier toutes les tables avec au moins un champ de fixation. Aller et vérifier à la main serait probablement un cauchemar: /
Quelqu'un a-t-il utilisé / avoir un accès SQL (ou VBA Code?) Query / Procédure qui a répertorié toutes les tables avec au moins un champ de fixation?
3 Réponses :
boucle la tvefs collection.
pour chaque tvedf , boucle la collection champs .
Pour chaque champ , cochez la propriété type (= 101, comme je me souviens) ou iscompleplex = vrai.
ISComplex est également vrai pour les champs Multi-Value , mais si vous n'utilisez pas cela, ça devrait aller bien.
Merci gustav.
Voici un exemple sur VBA. Il imprime dans immédiat (éditeur Open VBA par alt code> + F11 code>, puis appuyez sur Ctrl code> + g code>) des messages sur les tables avec le champ Type de fixation. Public Sub subTest()
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field
Dim boolIsAttachmentFieldPresent As Boolean
Set db = CurrentDb()
For Each td In db.TableDefs
If Left(td.Name, 4) <> "MSys" Then
'Debug.Print "Contents of: " & td.Name
boolIsAttachmentFieldPresent = False
For Each fld In td.Fields
'Debug.Print fld.Name & " of type " & fld.Type
If fld.Type = 101 Then
boolIsAttachmentFieldPresent = True
End If
Next fld
If boolIsAttachmentFieldPresent Then
Debug.Print "Table " & td.Name & " contains attachment field"
End If
End If
Next td
End Sub
Améliorer la lisibilité avec Syntaxe sur la surbrillance du code (CODE: VBA.).
C'est ce que j'ai proposé:
ASSOC_CLOSING_INFO / Attachments ASSOC_NAME2 / Attachments Backup Closing Sharepoint / Documents Backup Closing Sharepoint / Attachments CC_Card / Field1 Closing_requests1 / Documents Closing_requests1 / Delivery_Dates Closing_requests1 / Total_Package Closing_requests1 / Attachments Mail_Requests / group1 Mail_Requests / group2 Mail_Requests / Attachments MSysResources / Data UserInfo / Attachments
Vous pouvez marquer une réponse correcte pour les futurs utilisateurs avec la même question pour trouver une solution appropriée