Ik loop vast op het meest elementaire element van mijn database. ergens ben ik blijkbaar vergeten hoe het moet. Ik heb oudere databases met de oplossing maar het lukt me niet om het te reproduceren.
Ik heb een formulier nu wil ik in het eerste veld iets opzoeken in een tabel mbv een keuzelijst. Dit gaat prima.
vervolgens wil ik dat de andere velden automatisch gevuld worden met de bijbehorende gegevens. Dit lukt helaas niet.
volgens mij denk ik te moeilijk of ik doe iets elementairs verkeerd. graag hulp.
Ik heb een poging gedaan met een dlookup. maar nu wordt het veld in al mijn records bij gewerkt ipv alleen het eerste. Maar even de hele code zodat jullie kunnen zien wat ik nog meer geprobeert had. als ik het code stukje met r("artikelnr") = p gebruik geeft de msgbox wel de juiste waarde voor p maar hij vind niet het juiste record.
Ik heb een formulier nu wil ik in het eerste veld iets opzoeken in een tabel mbv een keuzelijst. Dit gaat prima.
vervolgens wil ik dat de andere velden automatisch gevuld worden met de bijbehorende gegevens. Dit lukt helaas niet.
volgens mij denk ik te moeilijk of ik doe iets elementairs verkeerd. graag hulp.
Ik heb een poging gedaan met een dlookup. maar nu wordt het veld in al mijn records bij gewerkt ipv alleen het eerste. Maar even de hele code zodat jullie kunnen zien wat ik nog meer geprobeert had. als ik het code stukje met r("artikelnr") = p gebruik geeft de msgbox wel de juiste waarde voor p maar hij vind niet het juiste record.
Code:
Private Sub SondeAlternatief_AfterUpdate()
Dim d As DAO.Database
Dim r As DAO.Recordset
Dim p As String
Set d = CurrentDb
Set r = d.OpenRecordset("tblSondeArt")
p = Me.SondeAlternatief
Me.txtaltmemo = DLookup("[altmemo]", "qrysondealt", "[altartnr]=" & p)
'If r("artikelnr") = p Then
'
'Me.txtaltmemo = SondeMemo
'Else
'MsgBox p
'MsgBox AltMemo
'MsgBox "artikel niet gevonden"
'
'
'End If
'
End Sub