heb een stukje code gemaakt
helaas geeft hij alleen de Projectid
hoe moet ik dit veranderen zodat die wel projectnaam aangeeft
code<>Private Sub Combo13_AfterUpdate()
Me.ProjectNaam = DLookup("[projectId]", "[tblprojecten]", "projectnaam='" & Me.ProjectNaam & "'")
Me.ProjectNaam = Me.Combo13.Column(1)
Dim rs As DAO.Recordset
ssql = "SELECT ProjectId FROM TblProjecten WHERE projectnaam ='" & Me.ProjectNaam & "'"
Set rs = CurrentDb.OpenRecordset(ssql)
Me.ProjectNaam = rs!ProjectID
End Sub
code</>