rækkekilde fra function?

ved Rækkekildetype skal der stå tagliste

ikke ved rækkekilde

Her er en test funktion

lav en ubundet formular, i den sætter du en listbox
ved listboxens Rækkekildetype skal der stå VisDato
kopier denne funktion ind i formularmodulet

Public Function VisDato(fld As Control, id As Variant, row As Variant, col As Variant, code As Variant) As Variant
    Dim intOffset As Integer
    Select Case code
        Case acLBInitialize            ' Initialiser.
            VisDato = True
        Case acLBOpen                      ' Åbn.
            VisDato = Timer          ' Unikt ID.
        Case acLBGetRowCount                ' Hent rækker.
            VisDato = 90
        Case acLBGetColumnCount    ' Hent kolonner.

        VisDato = 1
        Case acLBGetColumnWidth    ' Hent kolonnebredde.
            VisDato = -1            ' Brug standardbredde.
        Case acLBGetValue                  ' Hent dataene.
         
            intOffset = Abs((9 - Weekday(Now)) Mod 1)
            VisDato = Format(Now() + intOffset - 1 * row, "dd-mm-yyyy")
   
    End Select
End Function

Ser godt ud - men kan man så angive en sql-sætning under aclLBGetValue?

ps: du skal vist svare (og ikke kommentere for at jeg kan give point)

sql er ikke min stærke side,og jeg ved ikke om man kan bruge sql i en funktion.

Der må du nok have nørderne til hjælp.

Jeg arbejder videre med ideen - tak for hjælpen!