Lås for ændring af felt i Access

Du kan teste på, om det er en ny record således:

If Me.Dirty then
  Me.Cvr.Locked = False
Else
  Me.Cvr.Locked = True
End If

Du bør teste kombinationerne af .Locked og .Enabled - fx

If Me.Dirty then
  Me.Cvr.Locked = False
  Me.Cvr.Enabled = True
Else
  Me.Cvr.Locked = True
  Me.Cvr.Enabled = False
End If

du kunne - hvis det skal være lidt avanceret - når cvr udfyldes. Kendes det ikke så slår du op i
http://www.cvr.dk/Site/Forms/PublicService/DisplayCompany.aspx?cvrnr=
med cvrnummer, og via den hentede side aflæser du data, som fyldes i de ønskede rubrikker.
Bare et forslag til brugervenligt interface.

Use Dcount in the forms on current event to see if the cvr exists and only do that if the records is not a new record


If Not Me.NewRecord Then

  If DCount(....  ) > 0 Then

    Me.CVR.Enabled = False
  Else
    Me:CVR.Enabled = True
  Endif


End If

Tak til alle tre

Jeg har anvendt Terrys forslag, og det virker perfekt. jeg har dog slettet linien:
DCount ....
da den ikke anvendes. Resten af koden tester vel bare, om der er tale om en ny post - er det tilfældet kan Cvr indberettes. Åbnes formularen med Cvr udfyldt deaktiveres feltet. Og det var netop min mening ...

Øh - hvad skulle der i øvrigt stå i parentesen, hvis den skulle udfyldes?

Tak til claes57 for en henvisning til, hvorledes man slår op i Cvr-registret - det virker.

Jeg har ikke fået testet dit forslag MSchlamovitz, den ser rigtig ud. Skal den kode også sættes på Ved aktuel?

Kunne jeg fordels points med 40 til Terry og 10 til hver af jer andre?
Jeg vil gerne give flere points, men kan det lade sig gøre, efter at spørgsmålet et oprettet?
Og hvordan får jeg lige givet points - det har jeg altid besvær med?

You split the points as you like.

Before you can give points you need answers from us, and heres mine.

thanks