Atomatisk opdatere liste

Se under egenskaben NotInList.

Søg evt. i ekspertens vidensbase. Emnet har været oppe adskillige gange.

Private Sub InvestmentTypeID_NotInList(NewData As String, Response As Integer)
Dim prompt As String
   
    Response = acDataErrContinue
   
    prompt = "Denne type findes ikke i listen, ønsker du at oprette den?"
    If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then
   
        DoCmd.OpenForm "frmTypeMaintenance", , , , acFormAdd, acDialog, NewData
        If DLookup("TypeID", "tblType", "TypeName = '" & NewData & "'") Then
       
            Response = acDataErrAdded
           
        End If
   
    End If
         
End Sub

OK, jeg kan se at det er "NotInList" event'en jeg skal bruge, men hvordan skal koden som gemmer den nye værdi i Tabel1 se ud?

Prøver lige Terry's forslag. Jeg vil dog ikke have nogen msgbox, det skal ske automatisk.

In this example I open another form to enter further information. If there is only one field you need to enter then you can do it directly in code

Private Sub InvestmentTypeID_NotInList(NewData As String, Response As Integer)
Dim prompt As String
   
    Response = acDataErrContinue
   
    prompt = "Denne type findes ikke i listen, ønsker du at oprette den?"
    If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then
    docmd.runsql "INSERT into YourTable (TheField) VALUES ('" & NewData  & "')"
            Response = acDataErrAdded
           
        End If
   
    End If
         
End Sub

Private Sub InvestmentTypeID_NotInList(NewData As String, Response As Integer)
   
    docmd.runsql "INSERT into YourTable (TheField) VALUES ('" & NewData  & "')"
            Response = acDataErrAdded
           
End Sub

>Terry
Gider du at rette den til med mine tabel- og formularnavne.
Feltliste = Tabel1
Gemte værdier = Tabel2
Formular = Formular1

Når du automatisk vil tilføje poster, er det ikke nødvendigt med en combo. Hvis du laver en stavefejl, vil den nye post automatisk blive tilføjet med stavefejl og hvad værre er ukurante data til følge.

Jeg bruger combo for at få autoudfyldning med.

I need to know the name of the table and field you are using in the combo

combo = værdi
table = tabel1
field = liste

docmd.runsql "INSERT into tabel1(liste) VALUES ('" & NewData  & "')"
            Response = acDataErrAdded

I am assuming that the field (liste) is a text value!

Det virker efter at jeg satte "BegrænsTilListe" til ja, men den kommer med en irierterende advarselsboks om at jeg er ved at tilføje en række, den vil jeg gerne undgå?

Docmd.setwarnings false

Then after the insert

Docmd.setwarnings True

>>Terry
Perfect! , tak for hjælpen

selv tak :o)