Dear reader,

on lessons Access 324
using Access 2002

I followed the steps as given but failed to get it working properly.

at the line "dim db as database" there pops up a list to pick from but "database" is not in it
On saving the instructions a message pops up:
tranlated from Dutch it says something like: "a user defined datatype is not defined"

trying to sort it out I come to the conclusion that "database" is not the right ìnstruction anymore,
can you help me out?


this is the code:
Private Sub StateCombo_NotInList(NewData As String, Response As Integer)

'(drie keuzemogelijkheden als comentaar ingegeven)
'acDataErrDisplay  (=default error message van access)
'acDataErrContinue (verteld access om de message niet te tonen maar gewoon door te gaan)
'acDataErrAdded (geeft aan dat we de stappen ondernomen hebben die nodig zijn om die waarde toe te voegen in alle velden die nodig zijn)

'eerst gaan we de gebruiker vragen of hij de waarde willen toevoegen

'intypen:
If MsgBox("Add" & NewData & "to list of states?", vbYesNo) <> vbYes Then
    Response = acDataErrContinue
    Exit Sub
End If


'nu moeten we access laten weten dat en waar we de dat willen opslaan

Dim db As database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.openrecordset("StateT")
rs.AddNew
rs!State = NewData
rs.Update
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing


'Dim db As database
'Dim rs As Recordset
'Set db = CurrentDb
'Set rs = db.openrecordset("StateT")    '("StateT" is de tabel die hier gebruikt wordt)
'rs.AddNew
'rs!State = NewData    '(State is het veld dat gebruikt wordt)
'rs.Update
'rs.Close
'db.Close
'Set rs = Nothing
'Set db = Nothing

'Response = acDataErrAdded

'dit ververst de query en de tabellen



End Sub