opdatere manglende elementer på listen

Hvis elementet ikke findes i teksttabellen, er der vel ingen anden udvej end at tilføje det.

du kan lave en kommandoknap på transaktionsformularen og i knappens \"Ved klik\" event indsætte flg. kode.

Docmd.OpenTable \"teksttabel\"

Det kan dog forfines lidt, ved at lave formular der er baseret på teksttabellen. Du skal så i transaktionsformularen laver en kommandoknap med koden:

Docmd.OpenForm \"formularnavn\", acnormal, \"\", \"\", asAdd, acNormal

der åbner formularen og kun tillader indtastning af en ny post. På denne formular laver du en ny kommandoknap og tilføjer flg.kode i knappens \"Ved klik\" Event:

Docmd.Close

som lukker det aktive databaseobjekt (formularen) og vender tilbage til sted du kom fra.

Mvh / mugs

Hej Rubato,

Jeg går ud fra, at du benytter en Kombinationsboks som opslag?

KOmbinationsbokse har en egenskab, som hedder \"Begræns til liste\", denne skal være sat til \"Ja\" (hvad den nok også er)

Ligeledes har du hændelse, som hedder \"VedIkkePåListe\", her lægger du følgende kode:

Private Sub Tekstfelt_NotInList(NewData As String, Response As Integer)
    If Msgbox(\"Du har indtastet en tekst, som ikke findes i forvejen!@@Vil du oprette den nye tekst?\", vbQuestion + vbYesNo + vbDefaultButton2, \"Ny tekst?\") = vbYes Then
            currentdb.Execute \"INSERT INTO [Teksttabel]( Tekst ) SELECT \'\" & NewData & \"\';\"
            Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
End Sub

Jeg har benyttet tabelnavnet \"Teksttabel\" og feltnavnet \"Tekst\". Disse skal naturligvis udskiftes, så det passer med din egen tabel!

/Thomas

(...fortsat)

Jeg glemte lige at sige, at koden benytter DAO, så hvis du arbejder i Access 2000 eller XP, skal du lave en reference til \"Microsoft DAO 3.6 Object Library\"

/Thomas

Kære hjælpere - jeg har selv fundet en utrolig simpel løsning. Jeg har teksttabellen og en tabel med tekst og diverse andre felter. Her opretter jeg tekstfeltet vha. Guiden. Jeg opretter ikke nogen relation. Når brugerne nu forsøger at indtaste en tekst som ikke findes i teksttabellen taster de blot direkte ind i feltet og de får ingen info om at det er en hidtil ukendt tekst.

Når brugeren lukke formularen har jeg oprettet en hændelsesprocedure som opretter de nye elementer i teksttabellen, så de eksisterer næste gang der bliver brug for det.

tak for jeres assistance.
Rubato