[Access2007] Navigatieknoppen vernieuwen

[Verwijderd]

Ik heb links op het formulier een keuzelijst met items. Als een item geselecteerd wordt update hij het formulier met de juiste gegevens. De navigatieknoppen worden echter niet vernieuwd (recordnummer blijft bv op 1 staan. Als je het formulier probeert te sluiten wil hij de record weer toevoegen en zegt dat dat een conflict oplevert met de primary key. Hij probeert de huidige velden dus toe te voegen als nieuw record maar die bestaat al.Hoe kan ik dit probleem oplossen zodat hij de geselecteerde record bijwerkt?

Visual Basic:

Private Sub kzl_id_number_AfterUpdate()
Dim strSQL As String
Dim rst0001 As Recordset
Dim dbs As Database

Set dbs = CurrentDb

strSQL = "SELECT * FROM [tbl_0001] WHERE [tbl_0001].id_number = '" & kzl_id_number & "'"

Set rst0001 = dbs.OpenRecordset(strSQL)

With rst0001
.MoveFirst
Me.txt_0 = .Fields(0)
Me.txt_1 = .Fields(1)
Me.txt_basic_weight = .Fields(2)
Me.txt_4 = .Fields(3)
Me.txt_5 = .Fields(4)
Me.txt_6 = .Fields(5)
Me.kzl_location = .Fields(6)
Me.txt_7 = .Fields(7)
Me.txt_8 = .Fields(8)
Me.txt_9 = .Fields(9)
Me.txt_10 = .Fields(10)
Me.txt_11 = .Fields(11)
Me.txt_12 = .Fields(12)
Me.txt_13 = .Fields(13)
Me.txt_14 = .Fields(14)
Me.txt_15 = .Fields(15)
Me.txt_GCA1 = .Fields(16)
Me.txt_GCA2 = .Fields(17)
Me.txt_GCA3 = .Fields(18)
Me.txt_GCA4 = .Fields(19)

rst0001.Close
End With
End Sub

[Verwijderd]

Ben er ondertussen achter dat wat ik wil ook kan met domcmd.gotorecord. Dan moet alleen nog de voorwaarde erin dat hij de record selecteert die overeenkomt met de selectie uit de keuzelijst. Dus zoiets als id_number = kzl_id_number

Kan er zo'n criteria worden gezet in de gotorecord?

[ Voor 5% gewijzigd door Verwijderd op 17-10-2008 13:42 ]