[Access 97] 'Item not in list' melding *

[Verwijderd]

Ik heb op een form een listbox die gekoppeld is aan een tabel. Als de gebruiker een waarde wil invoeren die niet in de tabel staat wil ik deze laten toevoegen.

Er is een event ' On not in list'. Dat gebruik ik om via een MsgBox aan de gebruiker te vragen of het item moet worden toegevoegd.
Tot zover geen probleem, echter, na mijn code komt Access ook weer zelf met een MsgBox ' Item not in list' etc.
2 vragen:
1. hoe ondervang ik dat
2. deze code voegt niets toe aan de betreffende tabel, maar geeft geen foutmelding.

Wat ik ook probeer, krijg het niet weg.

Code:
Private Sub HW_ID_NotInList(NewData As String, Response As Integer)
Dim aChoice As Integer
If aChoice = MsgBox("Niet gevonden, toevoegen aan lijst?", vbOKCancel) = vbOK Then
DoCmd.OpenTable "hardware", acViewNormal, acAdd
DoCmd.GoToRecord , , acNewRec
[Hardware]![HW_OMSCHR] = NewData
DoCmd.Close acTable, "hardware", acSaveYes
End If
End Sub

Wie weet een oplossing?

[Verwijderd]

Ik doe dat altijd op deze manier:

code:

Private Sub Name_NotInList(NewData As String, Response As Integer)

    Dim lastno As Variant
    Dim rst As ADODB.Recordset
        If MsgBox("Do you want to add : '" & NewData & "' to this list ?", vbYesNo, ) = vbYes Then
        rst.Open "SELECT * FROM codes..c_drug order by drug_nr", connectie string met je database
        rst.AddNew
        rst![veld] = NewData
        rst.Update
        rst.Close
        Response = acDataErrAdded
    Else
        Me.Undo
    End If
    
    Set rst = Nothing
    
    
End Sub

[ Voor 7% gewijzigd door Verwijderd op 11-07-2003 13:21 ]

[Rafe]

Titel afgemaakt

[Verwijderd]

Mmmm... ik maak geen gebruik van ADO, maar open de database en tabellen gewoon in Access 97.

[Verwijderd]

Dan kan je altijd DAO gebruiken. Werkt net zo makkelijk. Alleen iets andere aanroepcode.