Simpel opdatering i relation i formular

Lad os kalde den tabel du indtaster i for Tabel1. Den anden for Tabel2. Jeg antager at med med id mener tabellernes primære nøgler (PK).

Når du relaterer tabellernes PK, har du samtidig sat egenskaben Indekseres til Ja - Dubletter ikke tilladt. Derfor skal du lukke formularen og åbne den igen, inden du kan se den nye post. Herved bliver den nye post lagret i Tabel1 og feltet valideret.

En løsning vil være at ændre id i Tabel således, at feltet's egenskab Indekseres sættes til Ja - Dubletter tilladt. Du kan evt. oprette en ny nøgle (Autonummer).

Problemet er så, at du risikerer at indtaste dubletter i Tabel1, hvilket jeg antager ikke må være tilfældet. Det kna du komme ud over, ved at lave en programmering i formularen, der inden posten lagres, tæller antallet af forekomster i af den nye værdi i Tabel1, og hvis denne er større end 0 annulleres indtastningen. Et hurtigt forslag:

Dim VARa As Long
If Me.NewRecord Then
VARa = Me.id
If DCount("*", "Tabel1", "[id] =" & VARa) > 0 Then
MsgBox "Der er allerede poster med denne værdi."
Me.Undo
Exit Sub
End If
End If