Code:
Option Compare Database
Private Sub Command119_Click()
DoCmd.OpenForm "TekeningenFrm"
a = TekeningnummerIdHoofdindelingen
d = Tekeningnummer
b = DLookup("Hoofdindeling", "HoofdindelingenTabel", "IdHoofdindelingen=" & a)
C = b & "Frm"
DoCmd.OpenForm C
' Set C.Tekeningnummer = d
End Sub
Wens is nu om in Formulier C, veld "tekeningnummer" met variabele d alvast te vullen