Jeg har lavet en simpel database med nogle sportsudøvere (tblDeltagere) som kan tilmelde sig en række konkurrencer (tblDiscipliner). Det er en mange-til-mage relation og jeg har således lavet en ekstre tabel kaldet tblDeltagertilmelding. Her skal man taste nye tilmeldiner ind samt den data man tilmelder sig (=Now()). Hver konkurrence har dog en deadline for tilmelding. Jeg vil gerne have en valideringsregel, således at den dato man indtaster skal være mindre end (altså være før) en datoværdi som Access selv skal finde alt afhængig af hvilken konkurrence man tilmelder sig. HVad skal jeg skrive som valideringsregel. Man kan ikke skrive "[tbldiscipliner.deadlinefortilmelding]>[Now()]", men hvad så?
Det kan ikke laves som valideringsregel, da valideringsreglerne kun kan håndtere simple funktioner.
Terry's kode skal lægges på formularen (du indtaster vel gennem en formular, ikk'?) JEg vil dog lægge koden et lidt andet sted end Terry.
Jeg foreslår derfor at du, i designvisning, klikker på feltet Diciplin og derefter på den egenskab, som hedder FørOpdatering. Til højre i egenskaben fremkommer en knap med 3 prikker. Når du klikker på denne, kommer en dialogboks frem, hvor du vælger "Kodegenerator".
Herefter skriver du: Private Sub Disciplin_BeforeUpdate(Cancel as Integer) If Date() > Dlookup("deadlinefortilmelding", "tbldiscipliner", "disciplin = " & Me.disciplin ) Then msgbox "Too Late" Me!Disciplin.Undo docmd.Cancelevent endif End sub
/Thomas
NB: Feltnavne og tabelnavne skal selvfølgelig tilpasses.
If you are having problems with this then you can send me your dB and I will make an example so you can see how it works. NOSPAM@eksperten@santhell.dkNOSPAM
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
