Ik wil met behulp van een opdrachtknop een subformulier openen die het resultaat van een query laatzien. Hiervoor heb ik de volgende vba code gebruikt:
Private Sub Knop75_Click()
Dim SQL As String
SQL = "SELECT [Test van prbtabel].Post_ID, posten.naam_post, [Test van prbtabel].MaandID, Maanden.Maand, [Test van prbtabel].Bedrag " & vbCrLf & _
"FROM posten INNER JOIN (Maanden INNER JOIN [Test van prbtabel] ON Maanden.id = [Test van prbtabel].MaandID) ON posten.post_id = [Test van prbtabel].Post_ID " & vbCrLf & _
"WHERE ((([Test van prbtabel].Post_ID)=[geef postid]));"
DoCmd.RunSQL SQL
End Sub
Maar in de code zit een fout en ik krijg het ook niet voor elkaar om het resultaat in een subformulier te plaatsen. Wie kan en wil mij verder helpen. Alvast bedankt
Private Sub Knop75_Click()
Dim SQL As String
SQL = "SELECT [Test van prbtabel].Post_ID, posten.naam_post, [Test van prbtabel].MaandID, Maanden.Maand, [Test van prbtabel].Bedrag " & vbCrLf & _
"FROM posten INNER JOIN (Maanden INNER JOIN [Test van prbtabel] ON Maanden.id = [Test van prbtabel].MaandID) ON posten.post_id = [Test van prbtabel].Post_ID " & vbCrLf & _
"WHERE ((([Test van prbtabel].Post_ID)=[geef postid]));"
DoCmd.RunSQL SQL
End Sub
Maar in de code zit een fout en ik krijg het ook niet voor elkaar om het resultaat in een subformulier te plaatsen. Wie kan en wil mij verder helpen. Alvast bedankt