Public Sub procAlterAllTables()
Dim db As Database
Dim td As TableDef
Dim fld As Field
Dim fn As String
Dim sSQL As String
Dim tn As String

Set db = CurrentDb
For Each td In db.TableDefs
If Left(td.Name, 2) <> "MS" And _
Left(td.Name, 1) <> "~" And _
Left(td.Name, 2) <> "qz" Then
tn = td.Name
For Each fld In td.Fields
fn = fld.Name
sSQL = "ALTER TABLE & tn & ALTER COLUMN & fn & NVARCHAR(255) NULL"
DoCmd.RunSQL sSQL
DoCmd.SetWarnings False
Next
End If
Next
Set db = Nothing
Set td = Nothing
End Sub

Проблема не в инструкции SQL, а на строке
For Each fld In td.Fields

Но почему у меня тормозит на той строчке не пойму

Спасибо Владимиру Санычу, который раз меня выручает. Ну и всем остальным конечно же тоже!

Была ошибка 13, а теперь действительно в инструкции. Может так нельзя делать?

А как все таки поменять значения полей во всех таблицах сразу?

Мне нужно во всех таблицах разрешить текстовым полям null значения, делал как указано выше, сейчас ошибка в инструкции SQl:
Public Sub procAlterAllTables()
Dim db As Database
Dim td As TableDef
Dim fld As DAO.Field
Dim fn As String
Dim sSQL As String
Dim tn As String

Set db = CurrentDb
On Error Resume Next
For Each td In db.TableDefs
If Left(td.Name, 2) <> "MS" And _
Left(td.Name, 1) <> "~" And _
Left(td.Name, 2) <> "qz" Then
tn = td.Name
For Each fld In td.Fields
If fld.Name <> "ID_NIK" Then
fn = fld.Name
sSQL = "ALTER TABLE " & tn & " ALTER COLUMN " & fn & " TEXT(255) NULL"
DoCmd.RunSQL sSQL
DoCmd.SetWarnings False
End If
Next
End If
Next
Set db = Nothing
Set td = Nothing
End Sub

Может быть можно сделать не через SQL?

А свойство required мне подойдет?