Kurt
If memory serves me right,
Dim Parent, Child As Object
Parent = caFactory1.New("Test.Album")
Parent.Naam = "Vakantie 2004"
Parent.Omschrijving = "Spanje !!!"
> Parent.sys_Save() ' First we save parent...
Child = caFactory2.New("Test.Foto")
Child.Bestand = "Foto_Aankomst.JPG"
Child.Omschrijving = "Aankomst in Spanje."
> ParentID = Parent.sys_Id() 'Now we get the ID
Child.ToAlbumSetObjectId (PARENT_ID) -> What is the ID of Parent
Child.sys_Save()
Child = caFactory2.New("Test.Foto")
Child.Bestand = "Foto_Vertrek.JPG"
Child.Omschrijving = "Vertrek naar Belgi?."
Child.ToAlbumSetObjectId(PARENT_ID)
Parent.sys_Close()
HTH,
Ram�n
