Hallo,
Onderstaande functie wil ik geschikt maken zodat ik voor verschillende subformulieren kan aanroepen en een nieuwe record kan toevoegen. De functie staat in een algemene module en wordt aangeroepen vanaf een commandbar.
De vetgedrukte teksten moeten dus variabel worden. Iemand een suggestie hoe ik dit voor elkaar kan maken?
Onderstaande functie wil ik geschikt maken zodat ik voor verschillende subformulieren kan aanroepen en een nieuwe record kan toevoegen. De functie staat in een algemene module en wordt aangeroepen vanaf een commandbar.
De vetgedrukte teksten moeten dus variabel worden. Iemand een suggestie hoe ik dit voor elkaar kan maken?
Code:
Public Function InsertNew(lngID As Long)
Debug.Print "lngID: " & lngID
Dim frm As Form_[U][/U][B]fsubPrjObj[/B]
Forms("frmTree").sfmGeneric.SourceObject = "[B]fsubPrjObj[/B]"
Set frm = Forms("frmTree").sfmGeneric.Form
frm.[B]txtPrjVeldID[/B].DefaultValue = lngID
frm.Recordset.AddNew
Set frm = Nothing
End Function