[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

[ab.random]

Спасибо, конечно, но где это прописывать?
Я Access открыл второй или третий раз в жизни и рассчитывал на подсказку, как это сделать с помощью конструкторов и мастеров из стандартной панели инструментов, если это возможно

[ferget]

попробуйте ALT+F11

[Iska]

ab.random, у меня нет Microsoft Access 2010. В 2003-ем это может выглядеть так:

* открыть базу данных;
* перейти на вкладку «Модули»;
* нажать кнопку «Создать»;
* выделить (если есть) текст нового модуля и заменить его на код из #2;
* сменить, по потребности, имя модуля нужное и сохранить.

Вывод через «Debug.Print» заменить потребным выводом. Вызов процедуры также назначить, через что нужно.

[ferget]

вкладка «Создание»

[ab.random]

Всё, разобрался Всем откликнувшимся огромное спасибо!)