Geachte mede forum leden.
Ik zit met een vraag.
Ik heb een formulier ( klanten ) en in dit formulier wil ik een ander formulier openen (Prijs_scherm) waarin ik offertes van die desbetreffende klant kan invoeren.
Het formulier openen met het Id nummer lukt me maar als ik in het Prijs_scherm een nieuw record wil toevoegen blijft het Id nummer blank.
Private Sub PreiseScreen_Click()
On Error GoTo Err_Gaat_naar_Prijs_scherm_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Prijs_scherm"
stLinkCriteria = "[Klanten.Id]=" & Me![Id]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Gaat_naar_Prijs_scherm_Click:
Exit Sub
Err_Gaat_naar_Prijs_scherm_Click:
MsgBox Err.Description
Resume Exit_Gaat_naar_Prijs_scherm_Click
End Sub.
Dit is de routine die ik nu heb om het Prijs_scherm te openen , maar ik heb geen idee hoe ik bij een nieuwe enrty het Id nummer in dat veld krijg
Wie kan mij verder helpen
Alvast bedankt,
Jan
Ik zit met een vraag.
Ik heb een formulier ( klanten ) en in dit formulier wil ik een ander formulier openen (Prijs_scherm) waarin ik offertes van die desbetreffende klant kan invoeren.
Het formulier openen met het Id nummer lukt me maar als ik in het Prijs_scherm een nieuw record wil toevoegen blijft het Id nummer blank.
Private Sub PreiseScreen_Click()
On Error GoTo Err_Gaat_naar_Prijs_scherm_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Prijs_scherm"
stLinkCriteria = "[Klanten.Id]=" & Me![Id]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Gaat_naar_Prijs_scherm_Click:
Exit Sub
Err_Gaat_naar_Prijs_scherm_Click:
MsgBox Err.Description
Resume Exit_Gaat_naar_Prijs_scherm_Click
End Sub.
Dit is de routine die ik nu heb om het Prijs_scherm te openen , maar ik heb geen idee hoe ik bij een nieuwe enrty het Id nummer in dat veld krijg
Wie kan mij verder helpen
Alvast bedankt,
Jan