Aangepast: Heb afbeelding toegevoegd.
Doel is een database met genealogie documenten (nu in excel met vba, maar wordt traag door omvang)
Hoofdtabel is PersonenT en een tabel met DocumentenT
Hier zijn 3 Queries:
- PersonenQ,
- DocumentenQ (dit zijn de records uit DocumentenT waarbij ID overeenkomt met ID in PersonenF (form)
- KinderenQ (dit zijn de records uit PersonenT waarbij Vader-ID of Moeder-ID overeenkomt met ID in PersonenF (form)
Er is een formulier PersonenF met 2 subformulieren : KinderenF en DocumentenF
In het hoofdformulier kan ik op velden klikken en via gebeurtenis (event) daar een actie aan koppelen.
Door op het vader_id of Moeder-ID te klikken, waarbij dan naar die persoon wordt gegaan, met die informatie
Zelfde voor partners.
Tot zover werkt het
Echter met subformulieren werkt dit niet.
Als ik op het kind klik zie ik wel het juiste ID (zoekID)
Maar hoe ga in het hoofdformulier PersonenT naar dat record?
Ik doe waarschijnlijk iets fout in het DoCmd opdracht
Code:
Public Sub ID_Click()
On Error GoTo Err_ID_Click
Dim myValue
Dim ZoekID
myValue = Forms!PersonenF!KinderenF.Form!ID
ZoekID = DLookup("ID", "PersonenT", "ID = " & myValue & "")
MsgBox ZoekID
DoCmd.OpenForm "PersonenT", GoToRecord, , acGoTo, ZoekID
Exit_ID_Click:
Exit Sub
Err_ID_Click:
MsgBox Err.Description
End Sub
Bijlagen
Laatst bewerkt: