Hej
Jag undrar om någon har lösning på följande problem:

Jag har ett form med ett underform som bygger på 2 tabeller, jag vill kunna låsa posten
i form och underform med ex EN ja/nej ruta eller kryssruta och avmarkera rutan när jag vill rediga posten.

När jag markerar kryssrutan så bör ju posterna i båda tabellerna låsas.

Förtydligad:
Jag har en DB för Rekvisitioner och artiklarna ligger i en egen tab.
När man har skrivit en Rekvisition så har jag önskemål om att via en knapp eller kryssruta kunna skrivskydda de rekvisitionerna som är klara, men jag vill kunna ta bort skrivskyddet om jag vill, via samma knapp eller kryssruta.

Hoppas att det är någon som förstår min fråga!

Mvh
Jörgen

Du kan låsa kontrollerna och på så sätt förhindra användarna att ändra en post. För att låsningen ska hänga med när man bläddrar måste det finnas något fält i den underliggande tabellen som anger om posten ska vara låst eller inte. I mitt exempel har jag bundit ett Ja/Nej fält till kryssrutan chkLocked.

När man ändrar kryssrutan eller bläddrar mellan poster så låses i det här exemplet alla textrutor, kryssrutor, komboboxar och underformulär:

<code>
Option Compare Database
Option Explicit

Private Sub chkLocked_Click()
ToggleFormLock
End Sub

Private Sub Form_Current()
ToggleFormLock
End Sub

Private Sub ToggleFormLock()
Dim ctr As Control

For Each ctr In Me.Controls
Select Case TypeName(ctr)
Case "ComboBox", "CheckBox", "TextBox", "SubForm"
ctr.Locked = Me.chkLocked
End Select
Next ctr
End Sub
</code>

KANON! Tack Åsa

Tack så mycket för hjälpen, det funkar precis så som jag hade önskemål om...

Mvh
Jörgen