Beskytte formularfelt

Du kan evt lave en Lås/Lås op-knap på formularen (kald knappen cmdRediger og giv den teksten "&Lås op"). Læg denne kode på klik-hændelsen:

Private Sub cmdRediger_Click()
    If Me.NewRecord And Me.Dirty = False Then Exit Sub
    Me.AllowEdits = Not Me.AllowEdits
    If Me.AllowEdits Then
        Me!cmdRediger.Caption = "&Lås"
    Else
        Me!cmdRediger.Caption = "&Lås op"
    End If
End sub

/Thomas

En måde kunne være at du sætter formularens egenskaber vedr. 'Tillad Tilføjelser' - 'Tillad Sletninger' - Tillad Redigering' til Nej. Så kan du oprette en knap med en bagvedliggende makro der ophæver 'beskyttelserne' ved hjælp af makrokommandoen 'Angiv værdi' - Makroen kunne udbygges med et password der skulle indtastes....

Ok, den virker....men nu er alle poster låst og den vil ikke låse op igen, hvad har jeg gjort forkert ? Jeg har fulgt din anvisning og faktisk copy/pastet teksten fra dit indlæg ind i knappens kode

In the forms BEFORE UPDATE event place the following code

If MsgBox("Do you want to update record", vbQuestion + vbYesNo, "Update ?") = vbNo Then
    Cancel = True
End If

Hej terry
Nu ser det ud til at virke, sådan da. Når jeg åbner formularen er posterne låst. Så kan jeg låse dem op ved klik på knappen og redigere i posterne. Men jeg kan ikke låse dem. Hvis jeg lukker formularen og åbner den igen så er posterne låst igen.

janriis>Why do you need to lock them? If you use the answer I gave 27/01-2004 16:57:49 then if you dont want to update you just press NO and the record will not be updated.

If you do want to lock them then I suggest you replace the button with a Toggle button, this has two states True and False and you can use this to set allowedits to the value of the toggle button!

Hej terry

Det virker med koden Before Update.

Takker

selv tak :o)