opzoeken in een tabel

[JEPEDEWE]

Hallo

Ik heb volgende code:

Dim db As Database
Dim rs As Recordset
Dim SQL As String
Dim code_doelstelling As String
Set db = CurrentDb()
SQL = "SELECT Doelstellingen_per_project.code, Doelstellingen_per_project.doelstelling FROM Doelstellingen_per_project WHERE Doelstellingen_per_project.code= '" & [Forms]![Planningkeuze]![Codenummer] & "';"
Set rs = db.OpenRecordset(SQL)
rs.MoveFirst
Do Until rs.EOF
code_doelstelling = rs!doelstelling
rs.MoveNext
Loop

Ik heb dus nu telkens een waarde voor code_doelstelling

die code moet ik opzoeken in een tabel, eens de record gevonden moet ik het veld keuze gelijk stellen aan "True"

vroeger schreef ik een SQL daarvoor maar ik heb begrepen dat er ook een soort Lookup-commando zou bestaan
Ik heb in de help gezocht en ge-googled maar niks gevonde omdat ik waarschijnlijk de correcte syntax niet ken
Wat moet ik in mijn geval schrijven?

 

[Bakk4318]

Zoek in de Help van de VBA editor op DLookup.

 

[OctaFish]

Wat wil je precies doen met die code? Je opent een recordset, die vervolgens in een formulier één veld steeds opnieuw vult met de volgende waarde uit die recordset. Ik zie niet waar de DLookup moet komen...

 

[JEPEDEWE]

Na

code_doelstelling = rs!doelstelling

ik ga in een andere tabel de waarde code_doelstelling opzoeken en verander in die 2de tabel eeb Yes/no veld

Hoe ik dat dan moet programmeren met die Dlookup weet ik eigenlijk nog niet

De record vinden is mi. niet zo moeilijk

Handje???

Bedankt iedereen
JP

 

[OctaFish]

De syntaxis is ongeveer zo:

NieuweWaarde=DLookup("[Veld]";"Tabel2";"

=" & code_doelstelling)

 

[JEPEDEWE]

Ik druk me waarschijnlijk weer verkeerd uit...


NieuweWaarde=DLookup("[Primair]";"Competenties";"

=" & code_doelstelling) 

Competenties is de tabel
Primair is een keuzevakje Yes/no
Code is een veld binnen competenties

Via Dlookup zal ik dus waarschijnlijk op de correcte record komen
Het enige wat ik wil is het keuzevakje Primair op True zetten
Ik moet dus geen waarde hebben, ik wil alleen iets DOEN in die record...

Hoe doe je dat dan? of kan dat niet met lookup?

Merci
JP