nieuw record

[daveke]

Hoi,

Hoe kan ik een nieuw record aanmaken met puur code
Op een formulier heb ik een menu. Door op een bepaald e knop te klikken, wordt een een ander formulier geopend. Daar worden dan waarden ingvuld(textboxen) en vervolgens moet men op een knop klikken om het nieuwe record op te slaan.
Moet ik het formulier koppelen aan mijn tabellen?
Want als ik dat doe dan kan ik ook alle andere records zien ( door te navigeren) en dat is niet te bedoeling.
Als ik dan op de knop opslaan klik moet het nieuwe record natuurlijk naar de database geschreven worden.

Ik heb al geprobeert met iets dergelijks:
dim db as database
dim rs as recordset

set db=CurrentDb
set rs=db.OpenRecordset("Tabel1")

rs.Addnew

Maar ik krijg altijd foutmeldingen

Alvast bedankt voor de hulp

Greetz

 

[silkcom]

Onderstaande code zou moeten werken:
================================
dim db as database
dim rs as recordset

set db=currentdb
set rs=db().openrecordset("Table1", db_open_dynaset)
rs.addnew
rs("Veld1") = formulierveld1
rs("Veld2") = formulierveld2
rs("Veld3") = formulierveld3
rs.update
rs.close
================================
Let wel: navigatieknoppen op het formulier uitzetten.

Suc6

 

[daveke]

Nu krijg ik de melding "Kan methode of gegevenslid niet vinden" (slaat op db)

 

[cbhonda]

Verwijzing niet goed ingesteld ?

1 Het zou kunnen dat je geen verwijzing hebt ingesteld naar de DAO bib.
Je vindt die in de VBA editor, extra/verwijzingen
daar moet je controleren of "Microsoft DAO 3.6 object library" is aangevinkt (anders doen).
2 Ik denk dat er een foutje zit in voorgaande oplossing volgens mij moeten die twee haakjes er niet staan na db en de tweede parameter van openrecorset is niet vereist "db_open_dynaset"
silkcom 'schiet nie op de pianist'

set rs=db.openrecordset("Table1")

Probeer maar eens en laat iets weten.