Standaad waarden opzoeken in tabel

[Robby2]

Dag allemaal,

Ik wil graag in een formulier een standaardwaarden laten invoeren die moet worden opgezocht uit een andere tabel. Ik heb daar het volgende van gemaakt:

=(Select tblClientgegevens.c_tc From tblClientgegevens Where ((tblClientgegevens.c_nr = Me!d_nr)) )

Deze code staat in het tekstveld bij Standaardwaarden. Dat zou toch moeten werken? Ik krijg geen foutmeldingen, maar er wordt geen waarden ingevuld. Heeft iemand een idee wat ik fout doe?

Groeten Rob

 

[dropl]

Ik zou het met DLookup() proberen

 

[Robby2]

Volgens mij doet Dlookup precies het zelfde...

Ik heb het voor de zekerheid ook even geprobeerd, met precies het zelfde resultaat. (Geen resultaat dus ).

 

[dropl]

Volgens mij moet je dat niet invullen bij standaardwaarde. Ik meen, uit m'n hoofd, dat die alleen statische waarden kan hebben. Je moet het bij de waarde invullen

 

[Robby2]

Hoi Drop!

Dat zou kunnen..., ik heb het nu omgebouwd naar een gegevensprocedure

Private Sub d_nr_AfterUpdate()
On Error GoTo ErrorHandler


Me!d_t1 = (DLookup("c_tc", "tblClientgegevens", "c_nr='" & Me![d_cd] & "'"))
Me!d_t2 = (DLookup("c_tz1", "tblClientgegevens", "c_nr='" & Me![d_cd] & "'"))
Me!d_t3 = (DLookup("c_tz2", "tblClientgegevens", "c_nr='" & Me![d_cd] & "'"))
Me!d_t4 = (DLookup("c_tzo", "tblClientgegevens", "c_nr='" & Me![d_cd] & "'"))
Me!d_bt = (DLookup("c_bt", "tblClientgegevens", "c_nr='" & Me![d_cd] & "'"))

ErrorHandlerExit:
Exit Sub

ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
Resume ErrorHandlerExit


End Sub

Maar ook dit heeft het zelfde resultaat...
Heb je nog andere ideeën?

Groeten Rob

 

[Robby2]

Probleem opgelost...

De gegevensprocedure leverde een NULL op. Nu gaat het goed. Bedankt, ik had al uren zitten puzzelen en had niet door dat die standaardwaarde zo niet benaderd kon worden.

Groet Rob