code<>Private Sub Combo13_AfterUpdate()
Me.ProjectNaam = DLookup("[projectId]", "[tblprojecten]", "AText='" & Me.ProjectNaam & "'")
Me.ProjectNaam = Me.Combo13.Column(1)
Dim rs As DAO.Recordset
ssql = "SELECT Id FROM Table1 WHERE AText ='" & Me.ProjectNaam & "'"
Set rs = CurrentDb.OpenRecordset(ssql)
Me.ProjectNaam = rs!ProjectID
End Subcode</>
in the for a have vield name Projectnaam
and vield whit name combo13
the search is in the combo13 en vield vilt whit this date.
but i dont work
what is wrong?