How do I pass a value

H

Henro

from a form to a macro to a query?

See code:

Private Sub Engineer_toevoegen_aan_relaties_Click()
On Error GoTo Err_Engineer_toevoegen_aan_relaties_Click

Dim Bericht, Titel, AfkEng
Bericht = "Geef de afkorting van de bewuste engineer"
Titel = "Plaats bewuste engineer in relaties"
AfkEng = InputBox(Bericht, Titel)
DoCmd.RunMacro "Engineer Toevoegen aan relaties"

Exit_Engineer_toevoegen_aan_relaties_Cli:
Exit Sub

Err_Engineer_toevoegen_aan_relaties_Click:
MsgBox Err.Description
Resume Exit_Engineer_toevoegen_aan_relaties_Cli
End Sub

I want to pass the value AfkEng as a criterium to a macro "Engineer
Toevoegen aan relaties" which is running a query with the same name.

Thanks for thinking with me

Henro veijer
 
H

Henro

I already changed the code but now am I stuck on how to use the value AfkEng
in a query as an criterium
Idea's?

Private Sub Engineer_toevoegen_aan_relaties_Click()
On Error GoTo Err_Engineer_toevoegen_aan_relaties_Click

Dim Bericht, Titel, AfkEng
Bericht = "Geef de afkorting van de bewuste engineer"
Titel = "Plaats bewuste engineer in relaties"
AfkEng = InputBox(Bericht, Titel)
DoCmd.OpenQuery "Toevoegen engineer aan relatie"
DoCmd.OpenQuery "Bijwerken Engineer in relatie"
DoCmd.Requery "relatie"
MsgBox "Kies de engineer uit de lijst", vbOKOnly, "Engineer toegevoegd"

Exit_Engineer_toevoegen_aan_relaties_Cli:
Exit Sub

Err_Engineer_toevoegen_aan_relaties_Click:
MsgBox Err.Description
Resume Exit_Engineer_toevoegen_aan_relaties_Cli
End Sub
 
Top