records blokkeren in Access-formulier

[anoniem]

Op onze school ben ik bezig met het opzetten van een database, waarin reserveringen gedaan kunnen worden voor een tweetal computerlokalen. Op zich werkt de database prima, maar mensen kunnen wel ingeroosterde uren veranderen. Ik heb bijv. een tabel met de primaire sleutel op Weeknr (1-52), Dagnr(1-5 = ma t/m vr) en uur (1-8). Elke maandag (dagnr 1) zijn de computerlokalen de eerste 2 uur (uur 1 en 2) en de laatste 2 uur (uur 7 en 8) ingeroosterd. De uren 3 t/m 6 mogen dus wel veranderd worden, maar uur 1, 2, 7 en 8 niet. Graag zou ik willen weten of ik binnen een formulier records kan blokkeren, zodat niemand de vaste reserveringen kan veranderen. Alvast bedankt

[anoniem]

Ja natuurlijk kan dat. Maar ik denk niet dat je records wilt blokkeren maar slechts enkele velden op je formulier?! Ga naar formulierontwerp, klik het vak aan en zet het op 'vergrendeld' = "Ja".

[anoniem]

Dat antwoord kreeg ik ook al van iemand anders. Het is wèl de bedoeling records te blokkeren, omdat in het record niets veranderd mag worden. Het is een enkelvoudig formulier met daarin een doorlopend subformulier. In dat subformulier wil ik records kunnen blokkeren. Het zier er ongeveer zo uit: Hoofdformulier: Week: 44 Dag: Maandag Subformulier: uur - klas - docent - vak - aantal pc's 1 - 1b1 - Karelson - 4Y-project - 20 2 - 1b1 - Karelson - 4Y-project - 20 3 4 5 6 7 - 1c1 - Nielson - 4Y-project - 20 8 - 1c1 - Nielson - 4Y-project - 20 De lessen 3 t/m 6 mogen door docenten zelf ingevuld worden. De eerste 2 uren en laatste 2 uren dus niet. Elk uur is een record (gekoppeld aan de week en de dag). Als ik een veld blokkeer, kan ik nergens in de tabel dat specifieke veld invullen...

[anoniem]

Dan moet je aan het programmeren slaan. Je zet een extra veld (ja/nee type) in je tabel. Met een if - then - else moet je het voor elkaar kunnen krijgen. Access heeft daar uiteraard geen standaardoplossing voor.

[anoniem]

Het is me al wel een heel aardig eind gelukt om een record te blokkeren. Als je in het formulierontwerp de eigenschappen van het veld kiest, kun je daar bij "Gebeurtenis" onder de optie "Bij kiezen" een programmacode invoegen. Met een If...Then...Else functie en de coderegel Me.AllowEdits = True/False Je krijgt dan zoiets als: Private Sub Naam_Enter () If voorwaarde Then Me.AllowEdits = False Else Me.AllowEdits = True End If End Sub Even mee stoeien en je hebt het voor elkaar :P