Combobox - når navnet ikke er der, skal den pænt spørge om man vil oprette

Hvorfor skal der komme en ny formular frem? Er det ikke nok at kende \"FastWrite\"?

he... Ser du - jeg har en formular F-01 - i den kan jeg indskrive alle de navne jeg har lyst til. Når jeg så kigger i min combobox, står der alle de nye navne jeg har skrevet.

MEN! Hvis jeg nu har skrevet et navn i min combo som IKKE findes, så skriver den nu at \"BUU - findes ikke i min liste\" - uden at gøre mere. Der vil jeg have VB\'en til at sende mig over i min navne-formular f01..

hvordan gøres det?

Kom nu med nogle svar.. ;o)

rolig nu...:o)

cbo-01 har en hændelse, som heder \"VedIkkePåListe\".
Her kan du skrive:

docmd.openform \"F-01\",,,,,acdialog
response = acdataerradded

/Thomas

Helt præcist hvad skal jeg skrive?

Er det i hændelsen \"after update\" ? Jeg har en engelsk version af access (internation virksomhed, du v\'..)

Men jeg prøver lige.
i aften...
for nu har jeg fri fra arbejde....

Du kan bruge hændelsen \"NotInList\":

Private Sub KmbBoxNglOrd_NotInList(NewData As String, Response As Integer)
  Response = acDataErrAdded
  DoCmd.OpenForm \"F-01\", acNormal, , , acAdd, acDialog, Me!Combobox.Text
End Sub

Hvor værdien fra combobox\'en overføres til formularen F-01. Denne formular skal så tage hånd om disse data.

mvh/Jens-Peter

Det er selvfølgelig lidt forskellig hvordan databasen er bygget op - og hvordan man vil have det til at virke.

Jeg har løst et tilsvarende problem hvor comboboksen slår op i en tabel og indsætter det valgte i en anden tabel.
Fidusen er at sætte relationen mellem tabellerne til IKKE \'gennemtving referentiel integritet\'.
Derved tjekker Access ikke om værdien i comboboksen findes i opslagstabellen.

Niels

Here is an example.
In the combo boxes NOT IN LIST EVENT you add a procedure that looks like this.

Private Sub cboGade_NotInList(NewData As String, Response As Integer)
Dim prompt As String
   
    Response = acDataErrContinue
   
    prompt = \"Denne gade findes ikke i listen, ønsker du at oprette den?\"
    If MsgBox(prompt, vbYesNo, \"Gade findes ikke!\") = vbYes Then
   
    DoCmd.OpenForm \"frmStreetMaintenance\", , , , acFormAdd, acDialog, NewData
        If DLookup(\"StreetID\", \"tblStreet\", \"StreetName = \'\" & NewData & \"\'\") Then
       
            Response = acDataErrAdded
           
        End If
   
    End If
End Sub

Then in the form you use to enter the new data add this to the ON LOAD EVENT.

Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then Me.StreetName = Me.OpenArgs
End Sub

An explanation:
In the example the user enters a strret name in the combo. If the name is NOT found then the user is asked if they want to create a new one. If they answer yes then the form for doing this gets opened, where they can create it. NOTE that the entered value gets passed to the form and is displayed in the field named Me.StreetName. 
When the form is closed I make a dlookup to make sure they actually did add a new record.
If they did then I set Response = acDataErrAdded
which tells Access to refresh the combo.

Easy IKKE?

NOTE: The combos LIMIT TO LIST property must be set to YES!

Hej Terry...

Jeg bliver NØDT til at afprøve dit eksempel!

DET VIRKER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

YES!!!!!!!!!!!!!!!!!!!!!! (ja, ok - min !-ration må være blevet brugt for idag)

Men de andre får også lige nogle point... som tak for deres indsats...

Forslag - jeg tror jeg printer alle forslagene ud - på alle spørgsmålene - og laver en kæmpe access-mappe!

Good idea fastwriter:)
I am sure I had answerd a similar question but just couldnt find it, so your suggestion may help!

Oh, and thank!

mvh
Terry