ник: Василий
вроде все вписал, только объясните мне пожалуйста, про after_update и BeforeUpdate ведь на сколько я понял мне это нужно будет....
заранее всем огромное спасибо! 
If Какие_права = "Администратор" Then
Me![Компания].Edit = True
Else
Me![Компания].Edit = False
End If
End Sub
еще пишет : невозможна блокировка элемента управления пока его изменения не сохранены