[Iska]

ab.random, примерно так:

Код:

Option Compare Database
Option Explicit

Sub ExecFromAllTables()
    Dim objTableDef As TableDef
    
    With CurrentDb
        For Each objTableDef In .TableDefs()
            If objTableDef.Properties.Item("Attributes") And dbSystemObject = dbSystemObject Then
            Else
                If FieldExist(objTableDef, "ОУ") And FieldExist(objTableDef, "стаж") Then
                    .Execute _
                        "UPDATE [" & objTableDef.Name & "] " & _
                        "SET [стаж] = [стаж] + 1 " & _
                        "WHERE [ОУ] LIKE '*21*'"
                    
                    Debug.Print objTableDef.Name, vbTab, "обновлено: " & .RecordsAffected & " записей"
                End If
            End If
        Next
    End With
End Sub

Function FieldExist(objTableDef As TableDef, strFieldName As String)
    Dim objField As Field
    
    FieldExist = False
    
    For Each objField In objTableDef.Fields
        If objField.Name = strFieldName Then
            FieldExist = True
            
            Exit For
        End If
    Next
End Function