Code:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("FetchTable", dbOpenDynaset)
rs.AddNew
rs!Aantal = Forms!MainForm.FetchAantalBox.Value
rs!Omschrijving = Forms!MainForm!SearchTableControl!Omschrijving
rs!Locatie = Forms!MainForm!SearchTableControl!Locatie
Leave a comment: