Beim Schreiben aller Tabellen bzw. Abfragen in eine Tabelle mit VBA sollen auch die Beschreibungen (Eigenschaften) mit geschrieben werden. Falls eine Eigenschaft aber leer ist, erzeugt VBA einen Fehler und bricht ab. Um diesen Fehler zu übergehen sollte man im Code zuerst den Befehl On Error Resume Next schreiben, dann die Zeile, die den Fehler auslöst.
'Kommentar: QueryDefs-Auflistung aktualisieren
........................................................................
db.QueryDefs.Refresh
For Each qry In db.QueryDefs
If UCase$(Left$(qry.Name, 4)) <> "~sq_" Then
rs.AddNew
rs.Fields("AbfrageName") = qry.Name
On Error Resume Next
rs.Fields("Beschreibung") = qry.Properties![Description]
rs.Update
End If
Next
rs.Close
...........................................................................