combobox opdatering

me.combo.requery

:o) Og i hvilken event skal den proppes ind i?
on got focus? on click? on change?

I would also suggest that you look at the NotInListe event. From here you can Use the event procedure constants acDataAdded, acDataErrContinue and accDataErrDisplay to switch off standard messages and AUTOMATICALLY update your combo!

Terry - bor du herinde hos Eksperten?! :o)

HEY - hvordan gør jeg det?! fortæl fortæl...

Well I dont know where your opening the other form so I cant exactly say, but take a look at this!

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

The dLookup just checks to make sure you did actually add a record!

just read your comment \"Terry - bor du herinde hos Eksperten?! :o)\"

No but my second name is \"fastwriter\"! No just jocking, only one of them!

ur sencond name is fastwriter?! kewl.....

Jeg prøver lige din access-dims.

jeg har tabellen T-kategori hvor jeg har to felter kategorid og kategori

Skal de ikke sættes ind i \"If dlookup(\"

?

I assume that your combo has two columns where the kategorid column is hidden. So you entered a new kategor. Your Dlookup will look something like this.

DLookup(\"kategorid \", \"T-kategori\", \"kategori = \'\" & NewData & \"\'\")

IT WORKED!!!!!!!!!!!!!!!!!!!!! YYYYYYYYYYYEEEEEEEEEEEEEESSSSSSSSSSSSSs...

Mand - hvis jeg bare havde din hjerne!!!!!!

Jeg takker for hjælpen!!!!! Du er din vægt værd i guld - medmindre du vejer 200 kilo..hehe..