lås data

Hej knudj
På formens Ved Aktuel hændelse kan du prøve at skrive nedenstående kode:

If Me.NewRecord Then
Me.NavnPåNøgleFelt.Enable = True
Else
Me.NavnPåNøgleFelt.Enable = False
End IF

Du kan ikke låse nøglefeltet i selve tabellen men ovenstående låser nøgefeltet på formniveu hvis ikke form er i tilstand ny post, ellers er feltet ikke låst så bruger kan indtaste en værdi i nøglefelt direkte på formen.

Ovenstående forudsætter naturligvis at der oprettes og redigeres i poster i en formular, og ikke direkte i tabellen.

Hej aandersen og tak for hurtig svar

jeg prøver lige når jeg kommer hjem fra arbejde

Hilsen knud

Selv tak, og god arbejdslyst :o)

Tip: Du kan også placere et ubundet felt på formen og lade markøren starte i det.

you could also concider putting a button on the form to lock/unlock the form. This requires the user to make a decision befor ethey can alter an existing record

aandersen

hvis jeg bruger dit forslag for jeg følgende meddelelse når jeg ændrer  i nøglefeltet og taster videre

"run time error 2164"
"Du kan ikke deativere et kontrolelement sålænge det har focus"


hvad har jeg glemt?

Knud

move focus to another field

har prøvet - hjælper ikke  - alle poster bliver låst og der kan ikke indtastes nye poster.
KNUD

hmm det lyder mystisk, jeh har testet her, og det virker fint, det kunne være noget med dine tabulatorstop. Har du mulig for at sende db som .zip fil, så kikker lige på det, du finder min mailadresse ved at klikke på mit brugernavn. Du kunne også prøve at benytte Locked = True eller False i stedet for Enable = True eller true, så kam man håndtere tabulatorstop på feltet uden fejl, og feltet er på denne måde også låst mod redigering

Man kan faktisk ikke benytte Enable = True eller False på et felt hvis dette felt har fokus som det første når formen åbnes, men det virker Locked = True eller False

Du er jo ude i en konflikt. Selv om du disabler nøglefeltet, kan brugeren jo stadig "ødelægge" de øvrige felter. Du skulle måske overveje at beskytte hele posten:

Private Sub Form_Current()
  Me.AllowEdits = Me.NewRecord
End Sub

og så placere en knap på formen, som åbner for rettelser:

Private Sub Kommandoknap1_Click()
  Me.AllowEdits = True
End Sub

Det er da i hvert fald enkelt  ;o)

Løsningen på mit problem blev den kommando knap som i foreslog, og sætte me.allowedits = true på denne, samt har jeg under EfterOpdatering og VedÅbning hændelserne indsat me.allowedits = false.

JEg tror vist at i skal dele de her point :)

Mange tak for hjælpen.

Velbekomme. Takker for point  ;o)

Selv tak, og tak for point