Password for et felt

Hej, her er koden til spærring af et felt:
  Dim intSvar As Integer
     
    intSvar = InputBox("Password er 1234", "Indtast et tal")
   
    Select Case intSvar
   
        Case Is = 1111
        DoCmd.OpenForm "Formular1"
        Case Is = 1234
        DoCmd.OpenForm "Formular1"
        Case Else
        Me.Undo
    End Select
Jeg har lavet en test db til dig så du kan se det kører.
Mvh Henrik13

Gerne...
hvis du vil sende den til bladerunner@fiction.dk

Vh
*******

roder lidt med det, men DoCmd.OpenForm var ikke hensigten...for formularen ER åben iforvejen..det er blot et enkelt felt i den aktuelle form det skal spæres og aktiveres ved passwd

Jeg har sletted formkommandoen , og har sendt den. Det er navne felted der er spærret med kode, og adressen du kan rette frit i.  :o)

funktionen virker ikke helt efter det jeg var ude efter...
har i mellemtiden fundet det jeg ledte efter.
Me!felt.locked = false
men tak alligevel

løst

Ja. Det er der jo bare ikke meget password i.  :o(

nej, men som jeg skrev var meningen at man ikke ved et uheld skal komme til at ændre i feltet..dette kan med Me!felt.locked forhindre dette... for feltet er låst hvis ikke man taster korrekt password...

Hvor kommer den password sætning fra, du kan ikke nøjes med at skrive "Me!felt.locked = false"

passwordet er stadig en case sætning, men der skal ikke laves en openform sætning, for det er ikke formularen der skal beskyttes. blot et enkelt felt i den aktive formular. Jeg forsøgte egentlig at se om jeg kunne give dig 50% af pointene, for du gav mig en lidt bedre vinkel at se problemet fra, meeeen...det kan man vist ikke...

Jov du kunne havde gået i avanceret, det gør andre når de deler poient ud, men du kan jo oprette et nut med de poient du mener jeg skal havde. Der skriver du poient til Henruk13, og i teksten skriver du:
http://www.eksperten.dk/spm/415031
Det er henvisningen til dette spørgsmål.

den kode jeg har lavet ser ud således, så du kan se jeg fik lidt needed guidence fra dig :-)
Private Sub bruger_init_GotFocus()
Dim Passwd As Date
     
    Passwd = InputBox("Indtast adgangskode", "Feltet er låst")
   
    Select Case Passwd
        Case Is = Date
        Me!bruger_init.Locked = False
        Case Else
        Me!bruger_init.Locked = True
        MsgBox "Forkert adgangskode"
    End Select
End Sub

søg her
http://www.eksperten.dk/spm/415031

som ? oversigt altså... kan ikke lige finde en advanced funktion

Det skal gøres inden poient uddelingen. Der står det nederst.