Jamen, var det bare det
Tusind tak for hjælpen!
Mads
"Mikkel Bundgaard" <mikkelbu@teliamail.dk> wrote in message
news:aaehf8$oh2$1@sunsite.dk...
> Mads Kristensen <madsjuhl423@hotmail.com> wrote:
> > Så mit spørgsmål er ganske simpelt: Hvordan kan jeg returnere en
> > Collection/Dictionary/Recordset fra en function?
> >
> > Mvh. Mads
> Hej Mads
>
> Nedenstående returnerer et recordset fra en funktion (VBA, men
> princippet er det samme).
>
> Private Function getRecordset() As Recordset
> Set getRecordset = CurrentDb.OpenRecordset("adr1")
> End Function
>
> og denne en Collection
>
> Private Function getCollection() As Collection
> Dim res As Collection
>
> Set res = New Collection
> res.Add ("Mikkel")
> res.Add ("Bundgaard")
> Set getCollection = res
> End Function
> --
> Mikkel Bundgaard
> IT University of Copenhagen
>
http://officehelp.gone.dk
> Codito, Ergo Sum
>
>