Jack Muijtjens
Gebruiker
- Lid geworden
- 23 dec 2004
- Berichten
- 16
Het aanvankelijk probleem (d.d. 23-12-2004 20.32) is dank zij het advies van Mark van Bree opgelost. Ik heb de code toegepast in mijn "testbestand" en het werkte. Waarvoor dank Mark.
Nu heb ik deze code toegepast in werkelijke adressenbestand (uiteraard met de noodzakelijke aanpassingen). Er ontstaat echter een nieuw probleem.
De tabellen zijn:
tbl_plaats (de opzoektabel) met de velden:
plaats_id (autonummering + sleutel)
plaatsnaam (tekst)
tbl_adressen met o.a. de velden:
id_adres (autonummering + sleutel)
plaats_id (numeriek en gekoppeld aan opzoektabel)
De programmacode is:
Private Sub plaats_id_NotInList(NewData As String, Response As Integer)
Dim strMessage As String
Dim dbstbl_adressen As Database
Dim rstTypes As DAO.Recordset
If MsgBox("Nieuwe plaatsnaam '" & NewData & "', toevoegen?", vbYesNo) = vbYes Then
Set dbstbl_adressen = CurrentDb
Set rstTypes = dbstbl_adressen.OpenRecordset("tbl_plaats")
rstTypes.AddNew
rst!plaatsnaam = NewData
rstTypes.Update
Responses = acDataErrAdded
Probleem:
Bij het ingeven van een naam die nog niet in de lijst voorkomt volgt de vraag:
Nieuwe plaatsnaam "..." toevoegen? ja / nee
Na drukken op "ja" volgt foutmelding:
"Fout 424 tijdens uitvoering
Object vereist"
In de programmacode is regel
"rst!plaatsnaam = NewData"
gemarkeerd.
Wat is hiervan de oorzaak c.q. hiervoor de oplossing.
Bij voorbaat hartelijk dank.
Jack Muijtjens
Nu heb ik deze code toegepast in werkelijke adressenbestand (uiteraard met de noodzakelijke aanpassingen). Er ontstaat echter een nieuw probleem.
De tabellen zijn:
tbl_plaats (de opzoektabel) met de velden:
plaats_id (autonummering + sleutel)
plaatsnaam (tekst)
tbl_adressen met o.a. de velden:
id_adres (autonummering + sleutel)
plaats_id (numeriek en gekoppeld aan opzoektabel)
De programmacode is:
Private Sub plaats_id_NotInList(NewData As String, Response As Integer)
Dim strMessage As String
Dim dbstbl_adressen As Database
Dim rstTypes As DAO.Recordset
If MsgBox("Nieuwe plaatsnaam '" & NewData & "', toevoegen?", vbYesNo) = vbYes Then
Set dbstbl_adressen = CurrentDb
Set rstTypes = dbstbl_adressen.OpenRecordset("tbl_plaats")
rstTypes.AddNew
rst!plaatsnaam = NewData
rstTypes.Update
Responses = acDataErrAdded
Probleem:
Bij het ingeven van een naam die nog niet in de lijst voorkomt volgt de vraag:
Nieuwe plaatsnaam "..." toevoegen? ja / nee
Na drukken op "ja" volgt foutmelding:
"Fout 424 tijdens uitvoering
Object vereist"
In de programmacode is regel
"rst!plaatsnaam = NewData"
gemarkeerd.
Wat is hiervan de oorzaak c.q. hiervoor de oplossing.
Bij voorbaat hartelijk dank.
Jack Muijtjens