Låsning af record

LoL - fantastisk motivering.

Du sætter bare Locked = True på din form.

Data der ikke skal editeres findes i TxtBox2

TxtBox2.Locked = True

Så er der ingen ændringer!

Beklager, det løste ikke problemet !!

Der er 8 kombibokse og 7 tekstbokse der skal låses når brugeren har valgt "ja"

Prøv igen !!!

Prøv denne her.
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.AllowEdits = False

DoCmd-sætningen gemmer posten og derefter lukkes formen for dataændringer.

Den korrekte løsning for en hel formular er, at vælge følgende properties for formen:

Når han har trykket på knappen:
Allow Edits = False

Ellers....

Hvis han kun skal kunne indsætte en ny record, og slet ikke skal kunne se alle de eksisterende, så sæt:
Data Entry = True

Hvis han ikke må slette eksisterende records, så sæt:
Allow Deletions = False

Alt imens skal
Allow Additions = True
ellers går det jo ikke.

Det er desuden en god ide, at placere dine ja/nej knapper udenfor Detail-sektionen i formularen.
Det gør, at record'ens felter ikke er under redigering idet du trykker på knappen.

Ok, det virker.......næsten !

Hvor vil du foreslå jeg sætter det ind !

Hvis jeg sætter det ind ved |Løst| på After-update virker den ikke !!!

Foregående kommentar var til mckelly  !!

Moses >> Brugeren vælger en værdi i en komboboks !! Herefter skal det enter være muligt eller ikke være muligt at editerer den record i den formular !!!

Lige et øjesteblik !!

Vi ta'r en komboboks - giver den to værdimuligheder - Pille og NixPille.
Når brugeren vælger Pille, så skal felterne være åbne for redigering - ellers skal de være låste.

Hvis det er tilfældet så har jeg faktisk noget lignende.
Et arkiv, hvor jeg har en knap midt i det hele, som man kan skifte imellem Edit og NoEdit.

Knappen har følgende definition:
(EditStatus er en Global Boolean)

Sub EditNoEdit_Click()
On Error GoTo Err_EditNoEdit_Click
   
    EditStatus = Not EditStatus
    If [EditStatus] = True Then
        EditNoEdit.Caption = "Edit"
        Me.AllowEdits = True
    Else
        EditNoEdit.Caption = "No Edit"
        Me.AllowEdits = False
    End If

Exit_EditNoEdit_Click:
    Exit Sub

Err_EditNoEdit_Click:
    MsgBox Err.Description
    Resume Exit_EditNoEdit_Click
   
End Sub

Hvis din komboboks hænger på den samme recordsource, som data'ene gør, så er det derfor du ikke kan få det til at virke.
Det er lidt a'la det jeg sagde 8:35:38.

Hvilken type objekt er |Løst|?. Hvis det er en knap så brug onClick.

[Løst] er vel din komboboks.

Så skal du bruge:
Sub Løst_AfterUpdate()
  Select case [Løst].Text
  case "Pille"
    Me.AllowEdits = True
  case "NixPille"
    Me.AllowEdits = False
  end select
end sub

Hvis din komboboks ligger på den formular, som du låser, så er komboboksen jo også låst.

Derfor bruger jeg en knap. Et klik skifter hele tiden mellem åben og lukket.

Moses >> Der skal ikke være mulighed for at ændre valget !!!

McKelly >> Tillykke, dit forslag satte mine tanker igang, så jeg har brugt din kode i modifiseret udgave, og det virker !!!

Mckelly >> Send et svar så får du dine point !!

Ok - Tak.