Свойство AllowEdits

Отнася се за

Можете да използвате свойството AllowEdits, за да зададете дали даден потребител може да редактира записани записи при използване на формуляр. Boolean за четене/запис.

израз.AllowEdits

израз Задължително. Израз, който връща един от обектите в списъка "Отнася се за".

Настройка

Свойството AllowBypassKey използва следните настройки:

Можете да зададете свойството AllowEdits, като използвате списък със свойства на формуляра, макрос или код на Visual Basic for Applications (VBA).

Забележки

Можете да използвате свойството AllowEdits, за да предотвратите промени в съществуващите данни, показани във формуляр. Ако искате да предотвратите промени в данните в определена контрола, използвайте свойството Enabled или Locked.

Ако искате да предотвратите промени в съществуващите записи (да направите формуляра само за четене), задайте свойствата AllowAdditions, AllowDeletions и AllowEdits на "Не". Можете също да направите записите само за четене, като зададете свойството RecordsetType на Снимка.

Промяната на стойност на поле по програмен път прави текущия запис годен за редактиране, независимо от настройката на свойството AllowEdits. Ако желаете да попречите на потребител да прави промени в запис (AllowEdits е Не), които искате да редактирате програмно, запишете записа след програмните промени; настройката на свойството AllowEdits ще бъде зачетена отново след записване на всички незаписани промени в текущия запис.

• AllowEdits – Да

• AllowDeletions – Да

• AllowAdditions – Да

• DataEntry – Не

За да предотвратите заместването на някои от тези съществуващи настройки на свойства от действието OpenForm, пропуснете настройката на аргумента за режим на данните, така че Access да използва настройките на свойствата, дефинирани от формуляра.

Пример

Следващият пример разглежда свойството ControlType за всички контроли във формуляр. За всяка контрола за етикет и текстово поле, процедурата превключва свойството SpecialEffect за тези контроли. Когато свойството SpecialEffect на контролата за етикет е настроено на Shadowed и свойството SpecialEffect на контролата за текстово поле е настроено на Нормален, а свойствата AllowAdditions, AllowDeletions и AllowEdits са зададени на True, променливата intCanEdit се превключва, за да се разреши редактирането на базовите данни.

Sub ToggleControl(frm As Form)
    Dim ctl As Control
    Dim intI As Integer, intCanEdit As Integer
    Const conTransparent = 0
    Const conWhite = 16777215
    For Each ctl in frm.Controls
        With ctl
            Select Case .ControlType
                Case acLabel
                    If .SpecialEffect = acEffectShadow Then
                        .SpecialEffect = acEffectNormal
                        .BorderStyle = conTransparent
                        intCanEdit = True
                    Else
                        .SpecialEffect = acEffectShadow
                        intCanEdit = False
                    End If
                Case acTextBox
                    If .SpecialEffect = acEffectNormal Then
                        .SpecialEffect = acEffectSunken
                        .BackColor = conWhite
                    Else
                        .SpecialEffect = acEffectNormal
                        .BackColor = frm.Detail.BackColor
                    End If
            End Select
        End With
    Next ctl
    If intCanEdit = IFalse Then
        With frm
            .AllowAdditions = False
            .AllowDeletions = False
            .AllowEdits = False
        End With
    Else
        With frm
            .AllowAdditions = True
            .AllowDeletions = True
            .AllowEdits = True
        End With
    End If
End Sub