Keuzelijst met invoervak beveiligen

[malawi]

Hallo

Ik loop tegen een probleem aan met een beveiliging.

Ik heb een Keuzelijst met invoervak beveiligd tegen wijzigen. Als ik in een nieuwe record dit veld gebruik, dan moet het daarna beveiligd worden tegen op nieuw bewerken.
Met onderstaande werkt het

Private Sub Idaanvraag_Dirty(Cancel As Integer)
Me.IdAanvraag.Enabled = True
Me.IdAanvraag.Locked = True
End Sub

als ik maar in het formulier blijf, echter wanneer ik dit formulier sluit, en het later weer open kan ik deze lijst gewoon weer wijzigen. Hoe kan ik dit oplossen.

Ewald

 

[OctaFish]

Je denkt verkeerd om; in jouw geval is het record altijd te bewerken, behalve als je iets wijzigt op het formulier. Dat betekent dat je in het formulier alleen maar op <Ctrl>+<s> hoeft te drukken om de status Dirty te veranderen. En als Dirty weer op False staat, kun je weer van alles doen. Dus: omdraaien de actie, en de keuzelijst standaard op Locked zetten, en juist aanzetten als je in een nieuw record zit. Zolang je in het nieuwe record werkt, is de keuzelijst open, en als het record is opgeslagen, is hij weer gelocked.

 

[malawi]

Ik heb de keuze lijst nu standaard op locked staan. Maar krijg het niet voor elkaar om wanneer ik een nieuwe record aanmaak deze op unlocked te zetten. Waar kan ik dit bewerkstelligen.

Ewald

 

[OctaFish]

In de formuliergebeurtenis <Bij aanwijzen>. Maak daar een If...End If die controleert op de status Newrecord.

Private Sub Form_Current()
    If Me.NewRecord Then
        Me.IdAanvraag.Enabled = False
        Me.IdAanvraag.Locked = False
    Else
        Me.IdAanvraag.Enabled = True
        Me.IdAanvraag.Locked = True
    End If
End Sub