Twee maal wegschrijven.

[Eibert]

Vanuit een formulier familieleden wordt een 2e formulier geopend, met alleen niet-afhankelijke elementen.
Hier wordt o.a. een nummer ingevoerd.
Dit nummer wordt weer teruggeleid naar het eerste formulier, en daarmee naar de betreffende persoon.
Ik wil graag dat nummer ook bij een tweede persoon invoeren.
Hoe doe ik dat?
Ik voer de volgende code in:

 Dim db As Database
   Set db = CurrentDb
   Dim rs As Recordset
   Set rs= Forms!personen.RecordsetClone

Dit gaat goed, rs blijkt het goede aantal records te hebben.

With rs
	.FindFirst "[id]='" & ID2 & "'"	
ID2 is de id van de 2e persoon
	If .NoMatch = False Then
		rs.Fields("Bronnen") = "nummer"
	End if
   End with

Er wordt nu geen waarde weggeschreven naar de recordset.
Hoe bereik ik dat dit wel gebeurt?

NB: Ik werk met Access 2003

 

[OctaFish]

Ik denk dat er nog een regel bijmoet:

rs.Fields("Bronnen") = "nummer"
rs.Update
End if

Dit om de ingestelde waarde ook weg te schrijven in de tabel.

Michel

 

[Eibert]

foutmelding Update zonder AddNew of Edit

Helaas, ik krijg een foutmelding:
Fout 3020 tijdens uitvoering:
Update of CancelUpdate zonder AddNew of Edit.
Bij foutopsporing wordt aangegeven dat deze melding slaat op de regel

rs.Fields("Bronnen") = "nummer"

.

 

[Eibert]

Eureka

Ik heb iets aan het find-criterium gedaan, een regel rs.edit toegevoegd, en ziedaar: het werkt.
Bedankt voor de tip.