For Each tabla2 In op.TableDefs
If tabla2.Name = "usuario" Then
esta = True
Exit For
End If
Next
If esta = True Then
esta = False
For Each campo In tabla2.Fields
If campo.Name = "AUP" Then esta = True
Next
If esta = False Then
tabla2.Fields.Append tabla2.CreateField("AUP", dbBoolean)
tabla2.Fields.Refresh
For Each campo In tabla2.Fields
If campo.Name = "AUP" Then
campo.DefaultValue = True
campo.Required = True
End If
Next
Me!Estado2 = Me!Estado2 & "[X] - Creado campo 'AUP' en usuario" & Chr(13) & Chr(10)
End If
End If
DoEvents