Hallo,
ik ben bezig met een access applicatie bouwen, nu kom ik iets tegen wat ik niet kan oplossen..
ik heb een formulier klant aangemaakt.. en een formulier vraag/klacht..
eerst zoek ik het klant op, vervolgens heb ik een knop om klacht/vraag toetevoegen..
ik wil graag dat bijvorbeeld klantid/ achternaam en voornaam. meegenomen wordt en dus automatisch wordt ingevuld in de formulier vraag/klacht kan iemand me hierbij ondersteunen
alvast bedankt
btw ik heb het volgende alleen hij neemt het niet mee..
Private Sub Knop196_Click()
On Error GoTo Err_Knop196_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "formuliernaam"
stLinkCriteria = "veldnaam=" & Me.veldnaam
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , Me.veldnaam
Exit_Knop196_Click:
Exit Sub
Err_Knop196_Click:
MsgBox Err.Description
Resume Exit_Knop196_Click
End Sub
ik ben bezig met een access applicatie bouwen, nu kom ik iets tegen wat ik niet kan oplossen..
ik heb een formulier klant aangemaakt.. en een formulier vraag/klacht..
eerst zoek ik het klant op, vervolgens heb ik een knop om klacht/vraag toetevoegen..
ik wil graag dat bijvorbeeld klantid/ achternaam en voornaam. meegenomen wordt en dus automatisch wordt ingevuld in de formulier vraag/klacht kan iemand me hierbij ondersteunen
alvast bedankt
btw ik heb het volgende alleen hij neemt het niet mee..
Private Sub Knop196_Click()
On Error GoTo Err_Knop196_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "formuliernaam"
stLinkCriteria = "veldnaam=" & Me.veldnaam
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , Me.veldnaam
Exit_Knop196_Click:
Exit Sub
Err_Knop196_Click:
MsgBox Err.Description
Resume Exit_Knop196_Click
End Sub
Laatst bewerkt: