Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fdf As DAO.Field
 
 
 
Set db = CurrentDb
 
DoCmd.SetWarnings False
For Each tdf In db.TableDefs
 
    If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*") Then
    
        For Each fdf In tdf.Fields
        
            If fdf.Name = "Tablodaki Alan Adını Yazınız" Then DoCmd.RunSQL "update " + tdf.Name + " set Tablodaki Alan Adını Yazınız= 1 "
        Next
    End If
Next
Set tdf = Nothing
Set db = Nothing
DoCmd.SetWarnings True