Hallo allemaal,
Ik probeer automatisch een nieuw record aan te maken. Het is mijn bedoeling om het veld ProjectID in te vullen met de ID nummer van een project. Het project nummer moet dan hetzelde project nummer zijn van de laatst aangemaakte record in splitupexport.
Het veld "splitupID" moet ditzelfde laatst aangemaakte record zijn
en het veld "splituptype" moet detzelfde tekst zijn als "Pricetype" in het tabel Splitupexport van de laatst aangemaakte record in splitupexport.
Hopelijk is dit niet te ingewikkeld.
De tabellen zijn:
"Projects"
"Splituptype"
"Splitupexport"
en dit moet allemaal in het tabel "Project_splitup"
Nu werkt het niet en ik begrijp helaas niet waarom. Ik heb niet veel kennis van VBA maar ik zou het enorm waarderen als iemand mij hierbij kan helpen.
gr. steven
Ik probeer automatisch een nieuw record aan te maken. Het is mijn bedoeling om het veld ProjectID in te vullen met de ID nummer van een project. Het project nummer moet dan hetzelde project nummer zijn van de laatst aangemaakte record in splitupexport.
Het veld "splitupID" moet ditzelfde laatst aangemaakte record zijn
en het veld "splituptype" moet detzelfde tekst zijn als "Pricetype" in het tabel Splitupexport van de laatst aangemaakte record in splitupexport.
Hopelijk is dit niet te ingewikkeld.
De tabellen zijn:
"Projects"
"Splituptype"
"Splitupexport"
en dit moet allemaal in het tabel "Project_splitup"
Code:
Private Sub Command1585_Click()
Dim Project_splitup As DAO.Recordset
Set Project_splitup = CurrentDb.OpenRecordset("Project_splitup")
Project_splitup.AddNew
Project_splitup![ProjectID] = DLookup("ID", "Projects", "[Splituptype![ProjectnumberinPricesplitup]] = " & [Projects![ProjectNumber]] & " AND [Splitupexport![Id]] = " & DMax("ID", "Splitupexport") & "")
Project_splitup![SplitupID] = DMax("ID", "Splitupexport")
Project_splitup![Splituptype] = DLookup("ID", "Splituptype", "[Splituptype![Splituptype]]] = " & [Splitupexport![Pricetype]] & " AND [Splitupexport![Id]] = " & DMax("ID", "Splitupexport") & "")
Project_splitup.Update
Project_splitup.Close
Set Project_splitup = Nothing
DoCmd.Close
End Sub
Nu werkt het niet en ik begrijp helaas niet waarom. Ik heb niet veel kennis van VBA maar ik zou het enorm waarderen als iemand mij hierbij kan helpen.
gr. steven